Changeset 27701 for other-projects/nightly-tasks/diffcol/trunk/diffcol
- Timestamp:
- 2013-06-24T22:43:44+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
other-projects/nightly-tasks/diffcol/trunk/diffcol/gdbdiff.pm
r27696 r27701 11 11 use diffutil; 12 12 use Text::Diff; 13 use Cwd; 13 14 14 15 if ($^O =~ m/mswin/i) { … … 58 59 my $test_text = readin_gdb($test_cmd); 59 60 60 # my $savepath = "C:\\Research\\Nightly\\tools\\envi\\etc\\tasks\\diffcol\\"61 # my $savepath = &getcwd."/../"; # TASK_HOME env does not exist at this stage, but it's one level up from current directory 61 62 # print_string_to_file($test_text, $savepath.$dbname."_test.out"); 62 63 # print_string_to_file($model_text, $savepath.$dbname."_model.out"); 63 64 64 65 # filter out the fields that can be ignored in the two database files 65 my $ignore_line_re = "\n<(lastmodified|lastmodifieddate|oailastmodified|oailastmodifieddate)>([^\n])*"; 66 # The total_numbytes field can vary depending on how many backslashes exist in the urls in the main body text, as each 67 # of these windows slashes get escaped with another backslash, and the resulting string is used as key into rel link db 68 my $ignore_line_re = "\n<(lastmodified|lastmodifieddate|oailastmodified|oailastmodifieddate|total_numbytes)>([^\n])*"; 66 69 $model_text =~ s/$ignore_line_re//g; 67 70 $test_text =~ s/$ignore_line_re//g; 68 71 69 72 70 73 # if the OS doesn't match and one of them is windows, extra work needs to be done to bring the db files … … 129 132 130 133 # for the windows text, need to further get rid of the driveletter after [ or <meta> 131 $$win_text =~ s@^(\[|<[^>]*>)[a-zA-Z]:collect@$1collect@mg; 132 # now can go back to using $model_text and $test_text 133 # print_string_to_file($$win_text, $savepath.$dbname."_test.out"); 134 # print_string_to_file($$lin_text, $$savepath.$dbname."_model.out"); 134 $$win_text =~ s@^(\[|<[^>]*>)[a-zA-Z]:collect@$1collect@mg; 135 135 136 136 } # end of equalising differences between a windows collection's db file and linux coll's db file 137 137 138 139 138 # now can go back to using $model_text and $test_text 140 #print_string_to_file($test_text, "C:\\Research\\Nightly\\tools\\envi\\etc\\tasks\\diffcol\\".$dbname."_test.out"); 141 #print_string_to_file($model_text, "C:\\Research\\Nightly\\tools\\envi\\etc\\tasks\\diffcol\\".$dbname."_model.out"); 142 139 # print_string_to_file($test_text, $savepath.$dbname."_test.out"); 140 # print_string_to_file($model_text, $savepath.$dbname."_model.out"); 143 141 144 142 my $report_type = "OldStyle"; # Can not change this type.
Note:
See TracChangeset
for help on using the changeset viewer.