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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-05 23:09:01 +0000 (Wed, 05 Dec 2007)
New Revision: 561

Added:
   svnbuildstat/trunk/svnbuildstat.ini
Modified:
   svnbuildstat/trunk/lib/SvnBuildStat.pm
   svnbuildstat/trunk/lib/SvnBuildStat/Controller/Builds.pm
Log:
load the setting from svnbuildstat.ini


Modified: svnbuildstat/trunk/lib/SvnBuildStat/Controller/Builds.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/Controller/Builds.pm	2007-12-05 18:11:02 UTC (rev 560)
+++ svnbuildstat/trunk/lib/SvnBuildStat/Controller/Builds.pm	2007-12-05 23:09:01 UTC (rev 561)
@@ -19,9 +19,7 @@
 
 =head2 index 
 
-=cut
-
-
+=cut 
 sub index : Private {
   my ( $self, $c ) = @_;
 
@@ -31,11 +29,14 @@
 sub upload : Local {
   my ( $self, $c, $param ) = @_;
 
-my $txt = "a";
- 
-my $destdir = "/home/sites/svnbuildstat.debian.net/svnbuildstat/uploads";
-foreach my $upload ( $c->request->upload('files') ) {
-    $upload->copy_to($destdir.'/'.$upload->filename) or $txt .= "zob";
+  my $txt = "ok";
+
+  my $uploaddir = $c->config->{path}->{uploaddir};
+  foreach my $upload ( $c->request->upload('files') ) {
+    if (!$upload->copy_to($duploaddir.'/'.$upload->filename)) {
+      $txt = "ko";
+      last;
+    }
   }
 
 
@@ -48,7 +49,8 @@
   my ( $self, $c, $param ) = @_;
 
   use Data::Dumper;
-  my $tmp = Dumper($self->config->{yoyo});
+  my $tmp = Dumper($c->config->{path}->{uploaddir});
+  $tmp .= "<\n";
   $c->response->body($tmp);
 
 }

Modified: svnbuildstat/trunk/lib/SvnBuildStat.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat.pm	2007-12-05 18:11:02 UTC (rev 560)
+++ svnbuildstat/trunk/lib/SvnBuildStat.pm	2007-12-05 23:09:01 UTC (rev 561)
@@ -28,9 +28,14 @@
 # local deployment.
 
 __PACKAGE__->config(name => 'SvnBuildStat');
-
+__PACKAGE__->config(zob => 'SvnBuildStat');
+__PACKAGE__->config( 'Plugin::ConfigLoader' => { file => 'svnbuildstat.ini' } ); 
 # Start the application
 __PACKAGE__->setup;
+#my $t = __PACKAGE__->config;
+#use Data::Dumper;
+#print Dumper($t);
+#
 
 
 =head1 NAME

Added: svnbuildstat/trunk/svnbuildstat.ini
===================================================================
--- svnbuildstat/trunk/svnbuildstat.ini	                        (rev 0)
+++ svnbuildstat/trunk/svnbuildstat.ini	2007-12-05 23:09:01 UTC (rev 561)
@@ -0,0 +1,9 @@
+[db]
+dsn = DBI:Pg:database=svnbuildstat;host=127.0.0.1
+user = svnbuildstat 
+password = 'zob'
+
+[path]
+repositorydir = /home/sites/nana.rulezlan.org/debian
+repositoryurl = http://nana.rulezlan.org/debian
+uploaddir = /home/sites/svnbuildstat.debian.net/svnbuildstat/uploads