uh_parser/RaptorCommon.pm
changeset 177 6d3c3db11e72
child 186 b76adfbc6648
equal deleted inserted replaced
176:266a7e9b9237 177:6d3c3db11e72
       
     1 # Copyright (c) 2009 Symbian Foundation Ltd
       
     2 # This component and the accompanying materials are made available
       
     3 # under the terms of the License "Eclipse Public License v1.0"
       
     4 # which accompanies this distribution, and is available
       
     5 # at the URL "http://www.eclipse.org/legal/epl-v10.html".
       
     6 #
       
     7 # Initial Contributors:
       
     8 # Symbian Foundation Ltd - initial contribution.
       
     9 #
       
    10 # Contributors:
       
    11 #
       
    12 # Description:
       
    13 # Common constants for the raptor parser suite
       
    14 
       
    15 package RaptorCommon;
       
    16 
       
    17 our $SEVERITY_CRITICAL = 'critical';
       
    18 our $SEVERITY_MAJOR = 'major';
       
    19 our $SEVERITY_MINOR = 'minor';
       
    20 
       
    21 sub init
       
    22 {
       
    23 	my $filename = "$::raptorbitsdir/summary.csv";
       
    24 	if (!-f$filename)
       
    25 	{
       
    26 		print "Writing summary file $filename\n";
       
    27 		open(SUMMARY, ">$filename");
       
    28 		close(SUMMARY);
       
    29 	}
       
    30 }
       
    31 
       
    32 sub dump_fault
       
    33 {
       
    34 	my ($category, $subcategory, $severity, $location, $component, $mmp, $phase, $recipe, $file, $line) = @_;
       
    35 	
       
    36 	open(SUMMARY, ">>$::raptorbitsdir/summary.csv");
       
    37 	print SUMMARY "$category,$subcategory,$severity,$location,$component,$mmp,$phase,$recipe,$file,$line\n";
       
    38 	close(SUMMARY);
       
    39 }
       
    40 
       
    41 1;