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;