[Collab-qa-commits] r549 - in svnbuildstat/trunk/lib/SvnBuildStat: . WWW/Controller

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-04 22:36:57 +0000 (Tue, 04 Dec 2007)
New Revision: 549

Modified:
   svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm
   svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Packages.pm
Log:
nothing

Modified: svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Packages.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-12-04 21:44:24 UTC (rev 548)
+++ svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-12-04 22:36:57 UTC (rev 549)
@@ -196,10 +196,38 @@
   $package->lastbuildstart('now');
   $package->update();
 
-  $c->response->body("dsc=".$package->dscuri."\npackage_id=".$package->id);
 
+  my $dscuri = $package->dscuri;
+  $dscuri =~ s/\@REPOSITORY_URL@/http:\/\/localhost\/debian/;
+
+  $c->response->body("dsc=".$dscuri."\npackage_id=".$package->id);
+
 }
 
+
+sub tocheckv3 : Local {
+  my ($self, $c, $qatoolname) = @_;
+
+  return unless $qatoolname =~ /^\w+$/;
+
+  my $qatool = $c->model('SvnBuildStat::WWW::Model::DB::Qatool')->search ({name => $qatoolname})->first;
+
+  return unless $qatool;
+
+
+
+  my $package_id = $c->model('SvnBuildStat::WWW::Model::DB::Qaresult')->search({$ => 'true' })->first->id;
+  my $build = $c->model('SvnBuildStat::WWW::Model::DB::Build')->search ({id => $package_id})->first;
+
+
+
+#  my $dscuri = $package->dscuri;
+#  $dscuri =~ s/\@REPOSITORY_URL@/http:\/\/localhost\/debian/;
+#
+#  $c->response->body("dsc=".$dscuri."\npackage_id=".$package->id);
+
+}
+
 =head1 AUTHOR
 
 Goneri Le Bouder,,,

Modified: svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm	2007-12-04 21:44:24 UTC (rev 548)
+++ svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm	2007-12-04 22:36:57 UTC (rev 549)
@@ -13,8 +13,8 @@
 # Static::Simple: will serve static files from the application's root 
 #                 directory
 
-#use Catalyst qw/-Debug ConfigLoader Static::Simple/;
-use Catalyst qw/ConfigLoader Static::Simple/;
+use Catalyst qw/-Debug ConfigLoader Static::Simple/;
+#use Catalyst qw/ConfigLoader Static::Simple/;
 
 our $VERSION = '0.01';
 
@@ -27,7 +27,7 @@
 # with a external configuration file acting as an override for
 # local deployment.
 
-__PACKAGE__->config( name => 'SvnBuildStat::WWW' );
+__PACKAGE__->config({ name => 'SvnBuildStat::WWW', repositorydir => "zob", repositoryurl => "arf" });
 
 # Start the application
 __PACKAGE__->setup;