17 our $CATEGORY_GENERAL = 'general'; |
17 our $CATEGORY_GENERAL = 'general'; |
18 |
18 |
19 our $CATEGORY_RAPTORERROR = 'raptor_error'; |
19 our $CATEGORY_RAPTORERROR = 'raptor_error'; |
20 our $CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION = 'cannot_process_schema_version'; |
20 our $CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION = 'cannot_process_schema_version'; |
21 our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found'; |
21 our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found'; |
|
22 our $CATEGORY_RAPTORERROR_CANTFINDMMPFILE = 'cant_find_mmp_file'; |
|
23 our $CATEGORY_RAPTORERROR_MAKEEXITEDWITHERRORS = 'make_exited_with_errors'; |
|
24 our $CATEGORY_RAPTORERROR_TOOLDIDNOTRETURNVERSION = 'tool_didnot_return_version'; |
22 |
25 |
23 our $SEVERITY_UNKNOWN = 'unknown'; |
26 our $SEVERITY_UNKNOWN = 'unknown'; |
24 our $SEVERITY_CRITICAL = 'critical'; |
27 our $SEVERITY_CRITICAL = 'critical'; |
|
28 our $SEVERITY_MAJOR = 'major'; |
|
29 our $SEVERITY_NORMAL = 'normal'; |
|
30 our $SEVERITY_MINOR = 'minor'; |
|
31 |
|
32 sub init |
|
33 { |
|
34 my $filename = "$::basedir/summary.csv"; |
|
35 if (!-f$filename) |
|
36 { |
|
37 print "Writing summary file $filename\n"; |
|
38 open(SUMMARY, ">$filename"); |
|
39 close(SUMMARY); |
|
40 } |
|
41 } |
25 |
42 |
26 sub dump_fault |
43 sub dump_fault |
27 { |
44 { |
28 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
45 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
29 |
46 |