88 print "Parsing " . $report . "... "; |
88 print "Parsing " . $report . "... "; |
89 my $current_report = XMLin("./$report", keeproot => 1, |
89 my $current_report = XMLin("./$report", keeproot => 1, |
90 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
90 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
91 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
91 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
92 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
92 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
93 'bc_severity', 'sc_severity', 'status', 'funcpos' ], keyattr => [] ); |
93 'bc_severity', 'sc_severity', 'status', 'comment', 'funcpos' ], keyattr => [] ); |
94 print "complete \n"; |
94 print "complete \n"; |
95 |
95 |
96 # Get number of libraries. |
96 # Get number of libraries. |
97 my $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
97 my $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
98 print "Number of all libraries with issues: $lib_num \n"; |
98 print "Number of all libraries with issues: $lib_num \n"; |
244 print "Parsing " . $report . "... "; |
244 print "Parsing " . $report . "... "; |
245 my $current_report = XMLin("./$report", keeproot => 1, |
245 my $current_report = XMLin("./$report", keeproot => 1, |
246 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
246 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
247 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
247 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
248 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
248 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
249 'bc_severity', 'sc_severity', 'status', 'funcpos' ], keyattr => [] ); |
249 'bc_severity', 'sc_severity', 'status', 'comment', 'funcpos' ], keyattr => [] ); |
250 print "complete \n"; |
250 print "complete \n"; |
251 print "Generating report for missing libraries... "; |
251 print "Generating report for missing libraries... "; |
252 # Get number of libraries. |
252 # Get number of libraries. |
253 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
253 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
254 $n = 0; |
254 $n = 0; |
295 print "Parsing " . $missing_destfile . "... "; |
295 print "Parsing " . $missing_destfile . "... "; |
296 my $current_report = XMLin("./$missing_destfile", keeproot => 1, |
296 my $current_report = XMLin("./$missing_destfile", keeproot => 1, |
297 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
297 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
298 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
298 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
299 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
299 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
300 'bc_severity', 'sc_severity', 'status', 'funcpos' ], keyattr => [] ); |
300 'bc_severity', 'sc_severity', 'status', 'comment', 'funcpos' ], keyattr => [] ); |
301 print "complete \n"; |
301 print "complete \n"; |
302 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
302 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
303 if (!defined($baselinedlldir)) { # Define baselinedlldir. |
303 if (!defined($baselinedlldir)) { # Define baselinedlldir. |
304 $n = 0; |
304 $n = 0; |
305 foreach (@{$current_report->{'bbcresults'}->{'header'}->[0]->{'cmdlineparms'}->[0]->{'parm'}}) { # Find baselinedlldir. |
305 foreach (@{$current_report->{'bbcresults'}->{'header'}->[0]->{'cmdlineparms'}->[0]->{'parm'}}) { # Find baselinedlldir. |
393 print "Parsing " . $missing_destfile . "... "; |
393 print "Parsing " . $missing_destfile . "... "; |
394 my $current_report = XMLin("./$missing_destfile", keeproot => 1, |
394 my $current_report = XMLin("./$missing_destfile", keeproot => 1, |
395 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
395 forcearray => [ 'header', 'baselineversion', 'currentversion', 'timestamp', 'day', 'month', 'year', 'hour', 'minute', 'second', # |
396 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
396 'laversion', 'formatversion', 'cmdlineparms', 'parm', 'pname', 'pvalue', 'knownissuesversion', 'os', 'version', 'buildweek', 'issuelist',# |
397 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
397 'library', 'name', 'comparefilename', 'shortname', 'baseplatform', 'currentplatform', 'issue', 'typeinfo', 'typeid', 'funcname', 'newfuncname', 'newfuncpos', # |
398 'bc_severity', 'sc_severity', 'status', 'funcpos' ], keyattr => [] ); |
398 'bc_severity', 'sc_severity', 'status', 'comment', 'funcpos' ], keyattr => [] ); |
399 print "complete \n"; |
399 print "complete \n"; |
400 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
400 $lib_num = @{$current_report->{'bbcresults'}->{'issuelist'}->[0]->{'library'}}; |
401 $n = 0; |
401 $n = 0; |
402 print "Processing libraries for $current_item... "; |
402 print "Processing libraries for $current_item... "; |
403 while ($n < $lib_num) { |
403 while ($n < $lib_num) { |