r3058 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-06-21 16:24:45 +0000 (Thu, 21 Jun 2007)
New Revision: 3058

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
Log:
tag as broken the package with a watch file that doesn't return a remote release number


Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-06-21 15:32:08 UTC (rev 3057)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-06-21 16:24:45 UTC (rev 3058)
@@ -122,6 +122,7 @@
   $majorrelease =~ s/^\d+://;
   $majorrelease =~ s/-[0-9A-Za-z\.~]*$//;
   $majorrelease =~ s/dfsg.*//;
+  $majorrelease =~ s/\d+://;
   $cmd = "uscan --package ".$$package->name." --dehs --upstream-version ".$majorrelease." --watchfile ".$watchfile;
 #  print $cmd."\n";
   my @uscan = `$cmd`;
@@ -129,18 +130,17 @@
   return unless @uscan > 2; # empty output
 
   my $tarballuri;
-  my $isuptodate = 't';
+  my $isuptodate = 'f';
   my $iswatchfilebroken = 'f';
   my $upstreamrelease;
   foreach (@uscan) {
 #    print;
     $tarballuri = $1 if (/^<upstream-url>(.+tar\.gz)<\/upstream-url>$/i);
-    if (/^<status>/) {
-      $isuptodate = 'f' unless (/^<status>up to date<\/status>$/);
-    }
+    $isuptodate = 't' if (/^<status>up to date<\/status>$/);
     $upstreamrelease = $1 if (/^<upstream-version>(.+)<\/upstream-version>$/);
     $iswatchfilebroken = 't' if (/^<errors>/);
   }
+  $iswatchfilebroken = 't' unless $upstreamrelease;
   $tarballuri = '' unless $isuptodate eq 't';
 
   return {tarballuri => $tarballuri, isuptodate => $isuptodate, upstreamrelease => $upstreamrelease, iswatchfilebroken => $iswatchfilebroken};