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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-08-23 20:44:59 +0000 (Thu, 23 Aug 2007)
New Revision: 390

Modified:
   svnbuildstat/script/svnbuildstat_update-db.pl
Log:
do not scan a module is the revision is still the same since the last check
set issrcinmypool to false is the rev changed


Modified: svnbuildstat/script/svnbuildstat_update-db.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_update-db.pl	2007-08-23 20:37:22 UTC (rev 389)
+++ svnbuildstat/script/svnbuildstat_update-db.pl	2007-08-23 20:44:59 UTC (rev 390)
@@ -205,6 +205,9 @@
     return;
 
   }
+  my $package = $schema->resultset('Package')->find_or_create({name => $packagesrc});
+  return unless $rev > $$package->rev; # do not continue unless needed
+  $package->issrcinmypool (0);
 
   my @changelog = `svn cat $uri/debian/changelog`;
   if (@changelog) {
@@ -249,11 +252,10 @@
     $todo .= $_ foreach @todo;
   }
 
-  my $package = $schema->resultset('Package')->find_or_create({name => $packagesrc});
   $package->update_from_related('repository_id',$$repository);
+  
   $package->svndebrelease ($svndebrelease);
   $package->uri($uri);
-  $package->rev($rev);
   $package->repository_id($$repository);
   foreach my $maintainer (@maintainer) {
     my $package_maintainer =
@@ -310,6 +312,7 @@
   $package->currentpendingbug($currentpendingbug);
   print "->".$package->name."\n";
   $package->lastcheck('now');
+  $package->rev($rev); # at the end since it marks in the new status of the package ins the DB
   $package->update();
 }