equal
deleted
inserted
replaced
13 # Common constants for the raptor parser suite |
13 # Common constants for the raptor parser suite |
14 |
14 |
15 package RaptorCommon; |
15 package RaptorCommon; |
16 |
16 |
17 our $CATEGORY_GENERAL = 'general'; |
17 our $CATEGORY_GENERAL = 'general'; |
|
18 |
18 our $CATEGORY_RAPTORERROR = 'raptor_error'; |
19 our $CATEGORY_RAPTORERROR = 'raptor_error'; |
|
20 our $CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION = 'cannot_process_schema_version'; |
|
21 our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found'; |
19 |
22 |
20 our $SEVERITY_UNKNOWN = 'unknown'; |
23 our $SEVERITY_UNKNOWN = 'unknown'; |
21 our $SEVERITY_CRITICAL = 'critical'; |
24 our $SEVERITY_CRITICAL = 'critical'; |
22 |
25 |
|
26 sub dump_fault |
|
27 { |
|
28 my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_; |
|
29 |
|
30 open(SUMMARY, ">>$::basedir/summary.csv"); |
|
31 print SUMMARY "$category,$subcategory,$severity,$component,$phase,$recipe,$file,$line\n"; |
|
32 close(SUMMARY); |
|
33 } |
|
34 |
23 1; |
35 1; |