--- a/common/tools/raptor/RaptorCommon.pm	Mon Jul 13 11:38:30 2009 +0100
+++ b/common/tools/raptor/RaptorCommon.pm	Mon Jul 13 17:52:05 2009 +0100
@@ -15,9 +15,21 @@
 package RaptorCommon;
 
 our $CATEGORY_GENERAL = 'general';
+
 our $CATEGORY_RAPTORERROR = 'raptor_error';
+our $CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION = 'cannot_process_schema_version';
+our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found';
 
 our $SEVERITY_UNKNOWN = 'unknown';
 our $SEVERITY_CRITICAL = 'critical';
 
+sub dump_fault
+{
+	my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;
+	
+	open(SUMMARY, ">>$::basedir/summary.csv");
+	print SUMMARY "$category,$subcategory,$severity,$component,$phase,$recipe,$file,$line\n";
+	close(SUMMARY);
+}
+
 1;