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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-04 22:38:42 +0000 (Tue, 04 Dec 2007)
New Revision: 550

Added:
   svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Builds.pm
Removed:
   svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm
Log:
initial import of Builds.pm remoe WWW.pm


Added: svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Builds.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Builds.pm	                        (rev 0)
+++ svnbuildstat/trunk/lib/SvnBuildStat/WWW/Controller/Builds.pm	2007-12-04 22:38:42 UTC (rev 550)
@@ -0,0 +1,65 @@
+package SvnBuildStat::WWW::Controller::Builds;
+
+use strict;
+use warnings;
+use base 'Catalyst::Controller';
+
+=head1 NAME
+
+SvnBuildStat::WWW::Controller::Packages - Catalyst Controller
+
+=head1 DESCRIPTION
+
+Catalyst Controller.
+
+=head1 METHODS
+
+=cut
+
+
+=head2 index 
+
+=cut
+
+sub index : Private {
+  my ( $self, $c ) = @_;
+
+  $c->response->redirect($c->uri_for('/'));
+}
+
+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";
+  }
+
+
+  $c->response->body($txt);
+
+}
+
+
+sub debug : Local {
+  my ( $self, $c, $param ) = @_;
+
+use Data::Dumper;
+my $txt = Dumper($c->{repositoryurl});
+  $c->response->body($txt);
+
+}
+=head1 AUTHOR
+
+Goneri Le Bouder,,,
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;

Deleted: svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm	2007-12-04 22:36:57 UTC (rev 549)
+++ svnbuildstat/trunk/lib/SvnBuildStat/WWW.pm	2007-12-04 22:38:42 UTC (rev 550)
@@ -1,63 +0,0 @@
-package SvnBuildStat::WWW;
-
-use strict;
-use warnings;
-
-use Catalyst::Runtime '5.70';
-
-# Set flags and add plugins for the application
-#
-#         -Debug: activates the debug mode for very useful log messages
-#   ConfigLoader: will load the configuration from a YAML file in the
-#                 application's home directory
-# 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/;
-
-our $VERSION = '0.01';
-
-# Configure the application. 
-#
-# Note that settings in SvnBuildStat::WWW.yml (or other external
-# configuration file that you set up manually) take precedence
-# over this when using ConfigLoader. Thus configuration
-# details given here can function as a default configuration,
-# with a external configuration file acting as an override for
-# local deployment.
-
-__PACKAGE__->config({ name => 'SvnBuildStat::WWW', repositorydir => "zob", repositoryurl => "arf" });
-
-# Start the application
-__PACKAGE__->setup;
-
-
-=head1 NAME
-
-SvnBuildStat::WWW - Catalyst based application
-
-=head1 SYNOPSIS
-
-    script/svnbuildstat_www_server.pl
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 SEE ALSO
-
-L<SvnBuildStat::WWW::Controller::Root>, L<Catalyst>
-
-=head1 AUTHOR
-
-Goneri Le Bouder,,,
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-1;