r2752 - people/goneri/SvnBuildStat-WWW/script

Gonéri Le Bouder goneri-guest at alioth.debian.org
Mon May 28 21:12:25 UTC 2007


Author: goneri-guest
Date: 2007-05-28 21:12:25 +0000 (Mon, 28 May 2007)
New Revision: 2752

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
Log:
a

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl	2007-05-28 21:09:06 UTC (rev 2751)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl	2007-05-28 21:12:25 UTC (rev 2752)
@@ -72,6 +72,7 @@
 }
 # Load the new report
 foreach my $reporttarball (@reporttarball) {
+  next unless $reporttarball =~ /.*\/(.+)_(\d+)_(.+)_(.+)\.tar$/;
   print localtime().": new report ".$reporttarball."\n";
   `cd $workdir && tar xf $reporttarball`;
 
@@ -134,7 +135,7 @@
   $build->update;
   $build->lintian_log ($report{'lintian.log'});
   $build->update;
-  $report{'linda.log'} =~ s/(.+The character ').+(' is forbidden.+)/$1 $2/g;
+#  $report{'linda.log'} =~ s/(.+The character ').+(' is forbidden.+)/$1 $2/g;
   $build->update;
   $build->linda_log ($report{'linda.log'});
   $build->update;

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-28 21:09:06 UTC (rev 2751)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-28 21:12:25 UTC (rev 2752)
@@ -63,7 +63,7 @@
 
   $$package->isuptodate($isuptodate);
   if ($isuptodate eq 't') {
-    if (defined ($tarballuri) && $tarballuri && !$$package->tarballuri) {
+    if (defined ($tarballuri) && $tarballuri && !$$package->istarballpresent) {
       my $req = HTTP::Request->new(HEAD => $tarballuri);
       my $ua = LWP::UserAgent->new;
       $ua->agent("SvnBuildStat/0.1 ");




More information about the Pkg-games-commits mailing list