[Collab-qa-commits] r381 - svnbuildstat/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-08-13 11:25:51 +0000 (Mon, 13 Aug 2007)
New Revision: 381

Modified:
   svnbuildstat/script/svnbuildstat_import-new-report.pl
Log:
do not die anymore if svnbuildstat_import-new-report.pl doesnt know a package


Modified: svnbuildstat/script/svnbuildstat_import-new-report.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_import-new-report.pl	2007-08-11 01:59:03 UTC (rev 380)
+++ svnbuildstat/script/svnbuildstat_import-new-report.pl	2007-08-13 11:25:51 UTC (rev 381)
@@ -47,7 +47,6 @@
   if ((!$reporttarball =~ /.*\/(.+)_(\d+)_(.+)_(.+)\.tar$/) ||
   !$st || ($st->mtime < time - 3600)) {
   move($reporttarball, $rejecteddir);
-
     next;
   }
   print localtime().": new report ".$reporttarball."\n";
@@ -78,7 +77,12 @@
 
   my $package = $schema->resultset('Package')->search({name =>
       $report{source}})->first;
-  die unless $package;
+  
+  if (!$package) {
+    print "unknow package: $report{source}\n";
+    move($reporttarball, $rejecteddir);
+    next;
+  }
 
   my $host = $schema->resultset('Host')->find_or_create(name => $report{hostname},
     arch => $report{arch});