equal
deleted
inserted
replaced
21 our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found'; |
21 our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found'; |
22 |
22 |
23 our $SEVERITY_UNKNOWN = 'unknown'; |
23 our $SEVERITY_UNKNOWN = 'unknown'; |
24 our $SEVERITY_CRITICAL = 'critical'; |
24 our $SEVERITY_CRITICAL = 'critical'; |
25 |
25 |
|
26 sub init |
|
27 { |
|
28 my $filename = "$::basedir/summary.csv"; |
|
29 if (!-f$filename) |
|
30 { |
|
31 print "Writing summary file $filename\n"; |
|
32 open(SUMMARY, ">$filename"); |
|
33 close(SUMMARY); |
|
34 } |
|
35 } |
|
36 |
26 sub dump_fault |
37 sub dump_fault |
27 { |
38 { |
28 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
39 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
29 |
40 |
30 open(SUMMARY, ">>$::basedir/summary.csv"); |
41 open(SUMMARY, ">>$::basedir/summary.csv"); |