18 our $SEVERITY_MAJOR = 'major'; |
18 our $SEVERITY_MAJOR = 'major'; |
19 our $SEVERITY_MINOR = 'minor'; |
19 our $SEVERITY_MINOR = 'minor'; |
20 |
20 |
21 sub init |
21 sub init |
22 { |
22 { |
23 my $filename = "$::basedir/summary.csv"; |
23 my $filename = "$::raptorbitsdir/summary.csv"; |
24 if (!-f$filename) |
24 if (!-f$filename) |
25 { |
25 { |
26 print "Writing summary file $filename\n"; |
26 print "Writing summary file $filename\n"; |
27 open(SUMMARY, ">$filename"); |
27 open(SUMMARY, ">$filename"); |
28 close(SUMMARY); |
28 close(SUMMARY); |
29 } |
29 } |
30 } |
30 } |
31 |
31 |
32 sub dump_fault |
32 sub dump_fault |
33 { |
33 { |
34 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
34 my ($category, $subcategory, $severity, $location, $component, $mmp, $phase, $recipe, $file, $line) = @_; |
35 |
35 |
36 open(SUMMARY, ">>$::basedir/summary.csv"); |
36 open(SUMMARY, ">>$::raptorbitsdir/summary.csv"); |
37 print SUMMARY "$category,$subcategory,$severity,$::raptor_config,$component,$phase,$recipe,$file,$line\n"; |
37 print SUMMARY "$category,$subcategory,$severity,$location,$component,$mmp,$phase,$recipe,$file,$line\n"; |
38 close(SUMMARY); |
38 close(SUMMARY); |
39 } |
39 } |
40 |
40 |
41 1; |
41 1; |