77 print "Parsing " . $report . "... "; |
77 print "Parsing " . $report . "... "; |
78 my $current_report = XMLin("./$report", keeproot => 1, |
78 my $current_report = XMLin("./$report", keeproot => 1, |
79 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
79 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
80 'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
80 'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
81 'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', # |
81 'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', # |
82 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity'], keyattr => [] ); |
82 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity', 'compilationerror'], keyattr => [] ); |
83 print "complete \n"; |
83 print "complete \n"; |
84 |
84 |
85 # Get number of header files. |
85 # Get number of header files. |
86 my $header_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}}; |
86 my $header_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}}; |
87 print "Number of all header files with issues: $header_num \n"; |
87 print "Number of all header files with issues: $header_num \n"; |
254 print "Parsing " . $destfile . "... "; |
254 print "Parsing " . $destfile . "... "; |
255 $temp_report = XMLin("./$destfile", keeproot => 1, |
255 $temp_report = XMLin("./$destfile", keeproot => 1, |
256 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
256 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
257 'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
257 'haversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
258 'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', # |
258 'headerfile', 'filename', 'comparefilename', 'status', 'comment', 'issue', 'checksum', 'shortname', 'issueid', 'typeid', 'identityid', # |
259 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity'], keyattr => [] ); |
259 'identitydescription', 'typestring', 'cause', 'documentation', 'ignoreinformation', 'linenumber', 'severity', 'scseverity', 'compilationerror'], keyattr => [] ); |
260 print "complete \n"; |
260 print "complete \n"; |
261 $n = 0; |
261 $n = 0; |
262 $header_num = @{$temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}}; |
262 $header_num = @{$temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}}; |
263 print "Processing header files for $current_pkg... \n"; |
263 print "Processing header files for $current_pkg... \n"; |
264 while ($n < $header_num) { |
264 while ($n < $header_num) { |
265 $file_name = $temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}->[$n]->{'shortname'}->[0]; |
265 $file_name = $temp_report->{'bbcresults'}->{'issuelist'}->[0]->{'headerfile'}->[$n]->{'shortname'}->[0]; |
266 $pkg_found = 0; |
266 $pkg_found = 0; |
267 open FILE, "<$tsv_file" or die("Failed to read $tsv_file: $!\n");; |
267 open FILE, "<$tsv_file" or die("Failed to read $tsv_file: $!\n"); |
268 while ($line = <FILE>) |
268 while ($line = <FILE>) |
269 { |
269 { |
270 chomp $line; |
270 chomp $line; |
271 ($hdr_to_pkg,$package) = split /\t/,$line; |
271 ($hdr_to_pkg,$package) = split /\t/,$line; |
272 $hdr_to_pkg =~ s/\//\\/g; |
272 $hdr_to_pkg =~ s/\//\\/g; |