[Collab-qa-commits] r461 - in svnbuildstat: . lib/SvnBuildStat/WWW/Controller script

goneri-guest at alioth.debian.org goneri-guest at alioth.debian.org
Wed Sep 19 13:57:03 UTC 2007


Author: goneri-guest
Date: 2007-09-19 13:57:03 +0000 (Wed, 19 Sep 2007)
New Revision: 461

Modified:
   svnbuildstat/README
   svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm
   svnbuildstat/script/clean.pl
Log:
some remaining changes


Modified: svnbuildstat/README
===================================================================
--- svnbuildstat/README	2007-09-19 12:04:57 UTC (rev 460)
+++ svnbuildstat/README	2007-09-19 13:57:03 UTC (rev 461)
@@ -67,4 +67,12 @@
       </Location>
   
   </VirtualHost>
-  
+
+Crontab:
+*/30 *    * * * root /home/sites/svnbuildstat.debian.net/svnbuildstat/script/svnbuildstat_update-db.pl > /dev/null 2>&1
+5 *    * * * root /home/sites/svnbuildstat.debian.net/svnbuildstat/script/svnbuildstat_update-bugs.pl > /dev/null 2>&1
+* *    * * * root /home/sites/svnbuildstat.debian.net/svnbuildstat/script/svnbuildstat_update-repository.pl > /dev/null 2>&1
+* *    * * * root /home/sites/svnbuildstat.debian.net/svnbuildstat/script/svnbuildstat_import-new-report.pl > /dev/null 2>&1
+0 0    * * * root /home/sites/svnbuildstat.debian.net/svnbuildstat/script/svnbuildstat_purge-buildinprogress.pl > /dev/null 2>&1
+
+

Modified: svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm
===================================================================
--- svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-09-19 12:04:57 UTC (rev 460)
+++ svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-09-19 13:57:03 UTC (rev 461)
@@ -150,13 +150,7 @@
 while (($cpt++ < 10) && (my $build = $build_rs->next)) {
 my $failedstep;
 if (!$build->buildisok) {
-	if (!$build->checkoutisok) {
-		$failedstep = "check out";
-	} elsif (!$build->downloadisok) {
-		$failedstep = "download";
-	} else {
 		$failedstep = "build";
-	}
 }
 
   push @{$c->stash->{builds}}, {
@@ -178,8 +172,7 @@
 $c->stash->{template} = 'packages/info.tt2';
 
 }
-
-sub tobuild : Local {
+sub tobuildv2 : Local {
   my ($self, $c, $arch) = @_;
   my $archs = "(i386|m68k|sparc|alpha|powerpc|".
   "arm|mips|mipsel|hppa|ia64|s390|amd64|".
@@ -191,37 +184,20 @@
     return;
   }
 
-  my $archobj = $c->model('SvnBuildStat::WWW::Model::DB::Arch')->find_or_create ({name => $arch});
-
-  #my $package_rs = $c->model('SvnBuildStat::WWW::Model::DB::Viewpackage')->search({istarballpresent => 'true', },{order_by=> "builded, lastbuilddate"});
-  #my $tmp = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->first;
-  my $tmp = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->search({$arch => 'true', })->first;
+  my $tmp = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild2')->search({$arch => 'true' })->first;
   my $package = $c->model('SvnBuildStat::WWW::Model::DB::Package')->search ({id => $tmp->id})->first;
 
 
-  my $resp = '';
-  my $tarball;
-  my $tarballuri;
-    # TODO next unless arch is supported
-
-  my $name = $package->name;
-  my $uri = $package->uri;
-
-  if ($package->isnative ne 't') {
-    $tarballuri = $package->tarballuri;
-
-    $tarballuri =~ s/\@PACKAGE@/$package->name/;
-    $tarballuri =~ s/\@TARBALL@/$package->svndebrelease/;
-
-    $tarball = mkTarballFromPackage(\$package);
-  }
-
   $package->lastbuildstart('now');
   $package->update();
-  $resp = "$name;$tarballuri;$tarball;$uri";
 
-  $c->response->body($resp);
+  my $svndebrelease = $package->realsvndebrelease;
+  $svndebrelease =~ s/^\d+://; # remove the EPOCH 
+
+  # TODO: put the repository URL in the cfg
+  $c->response->body("http://nana.rulezlan.org/debian/".$package->name."_".$svndebrelease.".dsc");
 }
+
 =head1 AUTHOR
 
 Goneri Le Bouder,,,

Modified: svnbuildstat/script/clean.pl
===================================================================
--- svnbuildstat/script/clean.pl	2007-09-19 12:04:57 UTC (rev 460)
+++ svnbuildstat/script/clean.pl	2007-09-19 13:57:03 UTC (rev 461)
@@ -23,7 +23,8 @@
 my $package = $schema->resultset('Package')->search({name => $pkgname})->first;
 die unless $package;
 
-my $build_rs = $schema->resultset('Build')->search({package_id => $package->id, rev => $package->rev});
+#my $build_rs = $schema->resultset('Build')->search({package_id => $package->id, rev => $package->rev});
+my $build_rs = $schema->resultset('Build')->search({package_id => $package->id});
 
 $build_rs->delete_all;
 while (my $build = $build_rs->next) {




More information about the Collab-qa-commits mailing list