common/tools/raptor/RaptorCommon.pm
changeset 324 f1baeb3f075f
parent 244 9544c55a7fd0
child 327 61f2add750f0
--- a/common/tools/raptor/RaptorCommon.pm	Tue Jul 21 13:32:34 2009 +0100
+++ b/common/tools/raptor/RaptorCommon.pm	Wed Jul 22 10:58:34 2009 +0100
@@ -23,6 +23,17 @@
 our $SEVERITY_UNKNOWN = 'unknown';
 our $SEVERITY_CRITICAL = 'critical';
 
+sub init
+{
+	my $filename = "$::basedir/summary.csv";
+	if (!-f$filename)
+	{
+		print "Writing summary file $filename\n";
+		open(SUMMARY, ">$filename");
+		close(SUMMARY);
+	}
+}
+
 sub dump_fault
 {
 	my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;