common/tools/raptor/RaptorCommon.pm
changeset 408 0c558d696e7a
parent 364 4dc3b5b1577c
child 383 52675b624b66
equal deleted inserted replaced
407:57a2cac6870f 408:0c558d696e7a
    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';
       
    25 
       
    26 our $CATEGORY_RAPTORWARNING = 'raptor_warning';
       
    27 our $CATEGORY_RAPTORWARNING_MISSINGFLAGABIV2 = 'missing_enable_abiv2_mode';
    22 
    28 
    23 our $SEVERITY_UNKNOWN = 'unknown';
    29 our $SEVERITY_UNKNOWN = 'unknown';
    24 our $SEVERITY_CRITICAL = 'critical';
    30 our $SEVERITY_CRITICAL = 'critical';
       
    31 our $SEVERITY_MAJOR = 'major';
       
    32 our $SEVERITY_NORMAL = 'normal';
       
    33 our $SEVERITY_MINOR = 'minor';
       
    34 
       
    35 sub init
       
    36 {
       
    37 	my $filename = "$::basedir/summary.csv";
       
    38 	if (!-f$filename)
       
    39 	{
       
    40 		print "Writing summary file $filename\n";
       
    41 		open(SUMMARY, ">$filename");
       
    42 		close(SUMMARY);
       
    43 	}
       
    44 }
    25 
    45 
    26 sub dump_fault
    46 sub dump_fault
    27 {
    47 {
    28 	my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;
    48 	my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;
    29 	
    49