summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@luxion>2006-02-08 14:41:34 +0000
committerdakkar <dakkar@luxion>2006-02-08 14:41:34 +0000
commita0834f3df097d5760ce0c0598473cdae08368bbf (patch)
tree71b67613cad8368d9bd2068fd849d4c7ce2c3fbf
parentwebapp per gestioni iscritti GroLUG (diff)
downloadIscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.tar.gz
IscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.tar.bz2
IscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.zip
scheletro catalyst
git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@164 fcb26f47-9200-0410-b104-b98ab5b095f3
-rw-r--r--GroLUG/Changes4
-rw-r--r--GroLUG/Makefile.PL12
-rw-r--r--GroLUG/README1
-rw-r--r--GroLUG/grolug.yml2
-rw-r--r--GroLUG/lib/GroLUG.pm77
-rw-r--r--GroLUG/root/favicon.icobin0 -> 2551 bytes
-rw-r--r--GroLUG/root/static/images/btn_120x50_built.pngbin0 -> 3826 bytes
-rw-r--r--GroLUG/root/static/images/btn_120x50_built_shadow.pngbin0 -> 3681 bytes
-rw-r--r--GroLUG/root/static/images/btn_120x50_powered.pngbin0 -> 3862 bytes
-rw-r--r--GroLUG/root/static/images/btn_120x50_powered_shadow.pngbin0 -> 3673 bytes
-rw-r--r--GroLUG/root/static/images/btn_88x31_built.pngbin0 -> 2517 bytes
-rw-r--r--GroLUG/root/static/images/btn_88x31_built_shadow.pngbin0 -> 2274 bytes
-rw-r--r--GroLUG/root/static/images/btn_88x31_powered.pngbin0 -> 2542 bytes
-rw-r--r--GroLUG/root/static/images/btn_88x31_powered_shadow.pngbin0 -> 2304 bytes
-rw-r--r--GroLUG/root/static/images/catalyst_logo.pngbin0 -> 13710 bytes
-rwxr-xr-xGroLUG/script/grolug_cgi.pl37
-rwxr-xr-xGroLUG/script/grolug_create.pl68
-rwxr-xr-xGroLUG/script/grolug_fastcgi.pl76
-rwxr-xr-xGroLUG/script/grolug_server.pl104
-rwxr-xr-xGroLUG/script/grolug_test.pl54
-rw-r--r--GroLUG/t/01app.t7
-rw-r--r--GroLUG/t/02pod.t9
-rw-r--r--GroLUG/t/03podcoverage.t9
23 files changed, 460 insertions, 0 deletions
diff --git a/GroLUG/Changes b/GroLUG/Changes
new file mode 100644
index 0000000..ae536c8
--- /dev/null
+++ b/GroLUG/Changes
@@ -0,0 +1,4 @@
+This file documents the revision history for Perl extension GroLUG.
+
+0.01 Wed Feb 8 15:41:14 2006
+ - initial revision, generated by Catalyst
diff --git a/GroLUG/Makefile.PL b/GroLUG/Makefile.PL
new file mode 100644
index 0000000..2cf82b5
--- /dev/null
+++ b/GroLUG/Makefile.PL
@@ -0,0 +1,12 @@
+use inc::Module::Install;
+
+name 'GroLUG';
+all_from 'lib/GroLUG.pm';
+
+requires Catalyst => '5.64';
+
+catalyst;
+
+install_script glob('script/*.pl');
+auto_install;
+WriteAll;
diff --git a/GroLUG/README b/GroLUG/README
new file mode 100644
index 0000000..9808b95
--- /dev/null
+++ b/GroLUG/README
@@ -0,0 +1 @@
+Run script/grolug_server.pl to test the application.
diff --git a/GroLUG/grolug.yml b/GroLUG/grolug.yml
new file mode 100644
index 0000000..03c89e9
--- /dev/null
+++ b/GroLUG/grolug.yml
@@ -0,0 +1,2 @@
+---
+name: GroLUG
diff --git a/GroLUG/lib/GroLUG.pm b/GroLUG/lib/GroLUG.pm
new file mode 100644
index 0000000..dca5de0
--- /dev/null
+++ b/GroLUG/lib/GroLUG.pm
@@ -0,0 +1,77 @@
+package GroLUG;
+
+use strict;
+use warnings;
+
+#
+# Set flags and add plugins for the application
+#
+# -Debug: activates the debug mode for very useful log messages
+# Static::Simple: will serve static files from the application's root
+# directory
+#
+use Catalyst qw/-Debug ConfigLoader Static::Simple/;
+
+our $VERSION = '0.01';
+
+#
+# Start the application
+#
+__PACKAGE__->setup;
+
+=head1 NAME
+
+GroLUG - Catalyst based application
+
+=head1 SYNOPSIS
+
+ script/grolug_server.pl
+
+=head1 DESCRIPTION
+
+Catalyst based application.
+
+=head1 METHODS
+
+=cut
+
+=head2 default
+
+=cut
+
+#
+# Output a friendly welcome message
+#
+sub default : Private {
+ my ( $self, $c ) = @_;
+
+ # Hello World
+ $c->response->body( $c->welcome_message );
+}
+
+#
+# Uncomment and modify this end action after adding a View component
+#
+#=head2 end
+#
+#=cut
+#
+#sub end : Private {
+# my ( $self, $c ) = @_;
+#
+# # Forward to View unless response body is already defined
+# $c->forward( $c->view('') ) unless $c->response->body;
+#}
+
+=head1 AUTHOR
+
+Catalyst developer
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
diff --git a/GroLUG/root/favicon.ico b/GroLUG/root/favicon.ico
new file mode 100644
index 0000000..5ad723d
--- /dev/null
+++ b/GroLUG/root/favicon.ico
Binary files differ
diff --git a/GroLUG/root/static/images/btn_120x50_built.png b/GroLUG/root/static/images/btn_120x50_built.png
new file mode 100644
index 0000000..c709fd6
--- /dev/null
+++ b/GroLUG/root/static/images/btn_120x50_built.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_120x50_built_shadow.png b/GroLUG/root/static/images/btn_120x50_built_shadow.png
new file mode 100644
index 0000000..15142fe
--- /dev/null
+++ b/GroLUG/root/static/images/btn_120x50_built_shadow.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_120x50_powered.png b/GroLUG/root/static/images/btn_120x50_powered.png
new file mode 100644
index 0000000..7249b47
--- /dev/null
+++ b/GroLUG/root/static/images/btn_120x50_powered.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_120x50_powered_shadow.png b/GroLUG/root/static/images/btn_120x50_powered_shadow.png
new file mode 100644
index 0000000..e6876c0
--- /dev/null
+++ b/GroLUG/root/static/images/btn_120x50_powered_shadow.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_88x31_built.png b/GroLUG/root/static/images/btn_88x31_built.png
new file mode 100644
index 0000000..007b5db
--- /dev/null
+++ b/GroLUG/root/static/images/btn_88x31_built.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_88x31_built_shadow.png b/GroLUG/root/static/images/btn_88x31_built_shadow.png
new file mode 100644
index 0000000..ccf4624
--- /dev/null
+++ b/GroLUG/root/static/images/btn_88x31_built_shadow.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_88x31_powered.png b/GroLUG/root/static/images/btn_88x31_powered.png
new file mode 100644
index 0000000..8f0cd9f
--- /dev/null
+++ b/GroLUG/root/static/images/btn_88x31_powered.png
Binary files differ
diff --git a/GroLUG/root/static/images/btn_88x31_powered_shadow.png b/GroLUG/root/static/images/btn_88x31_powered_shadow.png
new file mode 100644
index 0000000..aa776fa
--- /dev/null
+++ b/GroLUG/root/static/images/btn_88x31_powered_shadow.png
Binary files differ
diff --git a/GroLUG/root/static/images/catalyst_logo.png b/GroLUG/root/static/images/catalyst_logo.png
new file mode 100644
index 0000000..21f1cac
--- /dev/null
+++ b/GroLUG/root/static/images/catalyst_logo.png
Binary files differ
diff --git a/GroLUG/script/grolug_cgi.pl b/GroLUG/script/grolug_cgi.pl
new file mode 100755
index 0000000..5a79f29
--- /dev/null
+++ b/GroLUG/script/grolug_cgi.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+
+BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
+
+use strict;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use GroLUG;
+
+GroLUG->run;
+
+1;
+
+=head1 NAME
+
+grolug_cgi.pl - Catalyst CGI
+
+=head1 SYNOPSIS
+
+See L<Catalyst::Manual>
+
+=head1 DESCRIPTION
+
+Run a Catalyst application as cgi.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
+
+=head1 COPYRIGHT
+
+Copyright 2004 Sebastian Riedel. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/GroLUG/script/grolug_create.pl b/GroLUG/script/grolug_create.pl
new file mode 100755
index 0000000..3441f7b
--- /dev/null
+++ b/GroLUG/script/grolug_create.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Getopt::Long;
+use Pod::Usage;
+use Catalyst::Helper;
+
+my $force = 0;
+my $help = 0;
+
+GetOptions(
+ 'nonew|force' => \$force,
+ 'help|?' => \$help
+ );
+
+pod2usage(1) if ( $help || !$ARGV[0] );
+
+my $helper = Catalyst::Helper->new( { '.newfiles' => !$force } );
+
+pod2usage(1) unless $helper->mk_component( 'GroLUG', @ARGV );
+
+1;
+
+=head1 NAME
+
+grolug_create.pl - Create a new Catalyst Component
+
+=head1 SYNOPSIS
+
+grolug_create.pl [options] model|view|controller name [helper] [options]
+
+ Options:
+ -force don't create a .new file where a file to be created exists
+ -help display this help and exits
+
+ Examples:
+ grolug_create.pl controller My::Controller
+ grolug_create.pl view My::View
+ grolug_create.pl view MyView TT
+ grolug_create.pl view TT TT
+ grolug_create.pl model My::Model
+ grolug_create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
+ grolug_create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321
+
+ See also:
+ perldoc Catalyst::Manual
+ perldoc Catalyst::Manual::Intro
+
+=head1 DESCRIPTION
+
+Create a new Catalyst Component.
+
+Existing component files are not overwritten. If any of the component files
+to be created already exist the file will be written with a '.new' suffix.
+This behavior can be suppressed with the C<-force> option.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
+
+=head1 COPYRIGHT
+
+Copyright 2004 Sebastian Riedel. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/GroLUG/script/grolug_fastcgi.pl b/GroLUG/script/grolug_fastcgi.pl
new file mode 100755
index 0000000..f7f77b3
--- /dev/null
+++ b/GroLUG/script/grolug_fastcgi.pl
@@ -0,0 +1,76 @@
+#!/usr/bin/perl -w
+
+BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
+
+use strict;
+use Getopt::Long;
+use Pod::Usage;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use GroLUG;
+
+my $help = 0;
+my ( $listen, $nproc, $pidfile, $manager, $detach );
+
+GetOptions(
+ 'help|?' => \$help,
+ 'listen|l=s' => \$listen,
+ 'nproc|n=i' => \$nproc,
+ 'pidfile|p=s' => \$pidfile,
+ 'manager|M=s' => \$manager,
+ 'daemon|d' => \$detach,
+);
+
+pod2usage(1) if $help;
+
+GroLUG->run(
+ $listen,
+ { nproc => $nproc,
+ pidfile => $pidfile,
+ manager => $manager,
+ detach => $detach,
+ }
+);
+
+1;
+
+=head1 NAME
+
+grolug_fastcgi.pl - Catalyst FastCGI
+
+=head1 SYNOPSIS
+
+grolug_fastcgi.pl [options]
+
+ Options:
+ -? -help display this help and exits
+ -l -listen Socket path to listen on
+ (defaults to standard input)
+ can be HOST:PORT, :PORT or a
+ filesystem path
+ -n -nproc specify number of processes to keep
+ to serve requests (defaults to 1,
+ requires -listen)
+ -p -pidfile specify filename for pid file
+ (requires -listen)
+ -d -daemon daemonize (requires -listen)
+ -M -manager specify alternate process manager
+ (FCGI::ProcManager sub-class)
+ or empty string to disable
+
+=head1 DESCRIPTION
+
+Run a Catalyst application as fastcgi.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
+
+=head1 COPYRIGHT
+
+Copyright 2004 Sebastian Riedel. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/GroLUG/script/grolug_server.pl b/GroLUG/script/grolug_server.pl
new file mode 100755
index 0000000..3f1ef10
--- /dev/null
+++ b/GroLUG/script/grolug_server.pl
@@ -0,0 +1,104 @@
+#!/usr/bin/perl -w
+
+BEGIN {
+ $ENV{CATALYST_ENGINE} ||= 'HTTP';
+ $ENV{CATALYST_SCRIPT_GEN} = 27;
+}
+
+use strict;
+use Getopt::Long;
+use Pod::Usage;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+my $debug = 0;
+my $fork = 0;
+my $help = 0;
+my $host = undef;
+my $port = 3000;
+my $keepalive = 0;
+my $restart = 0;
+my $restart_delay = 1;
+my $restart_regex = '\.yml$|\.yaml$|\.pm$';
+
+my @argv = @ARGV;
+
+GetOptions(
+ 'debug|d' => \$debug,
+ 'fork' => \$fork,
+ 'help|?' => \$help,
+ 'host=s' => \$host,
+ 'port=s' => \$port,
+ 'keepalive|k' => \$keepalive,
+ 'restart|r' => \$restart,
+ 'restartdelay|rd=s' => \$restart_delay,
+ 'restartregex|rr=s' => \$restart_regex
+);
+
+pod2usage(1) if $help;
+
+if ( $restart ) {
+ $ENV{CATALYST_ENGINE} = 'HTTP::Restarter';
+}
+if ( $debug ) {
+ $ENV{CATALYST_DEBUG} = 1;
+}
+
+# This is require instead of use so that the above environment
+# variables can be set at runtime.
+require GroLUG;
+
+GroLUG->run( $port, $host, {
+ argv => \@argv,
+ 'fork' => $fork,
+ keepalive => $keepalive,
+ restart => $restart,
+ restart_delay => $restart_delay,
+ restart_regex => qr/$restart_regex/
+} );
+
+1;
+
+=head1 NAME
+
+grolug_server.pl - Catalyst Testserver
+
+=head1 SYNOPSIS
+
+grolug_server.pl [options]
+
+ Options:
+ -d -debug force debug mode
+ -f -fork handle each request in a new process
+ (defaults to false)
+ -? -help display this help and exits
+ -host host (defaults to all)
+ -p -port port (defaults to 3000)
+ -k -keepalive enable keep-alive connections
+ -r -restart restart when files got modified
+ (defaults to false)
+ -rd -restartdelay delay between file checks
+ -rr -restartregex regex match files that trigger
+ a restart when modified
+ (defaults to '\.yml$|\.yaml$|\.pm$')
+
+ See also:
+ perldoc Catalyst::Manual
+ perldoc Catalyst::Manual::Intro
+
+=head1 DESCRIPTION
+
+Run a Catalyst Testserver for this application.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
+
+=head1 COPYRIGHT
+
+Copyright 2004 Sebastian Riedel. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/GroLUG/script/grolug_test.pl b/GroLUG/script/grolug_test.pl
new file mode 100755
index 0000000..7ebfd86
--- /dev/null
+++ b/GroLUG/script/grolug_test.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Getopt::Long;
+use Pod::Usage;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use Catalyst::Test 'GroLUG';
+
+my $help = 0;
+
+GetOptions( 'help|?' => \$help );
+
+pod2usage(1) if ( $help || !$ARGV[0] );
+
+print request($ARGV[0])->content . "\n";
+
+1;
+
+=head1 NAME
+
+grolug_test.pl - Catalyst Test
+
+=head1 SYNOPSIS
+
+grolug_test.pl [options] uri
+
+ Options:
+ -help display this help and exits
+
+ Examples:
+ grolug_test.pl http://localhost/some_action
+ grolug_test.pl /some_action
+
+ See also:
+ perldoc Catalyst::Manual
+ perldoc Catalyst::Manual::Intro
+
+=head1 DESCRIPTION
+
+Run a Catalyst action from the command line.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
+
+=head1 COPYRIGHT
+
+Copyright 2004 Sebastian Riedel. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/GroLUG/t/01app.t b/GroLUG/t/01app.t
new file mode 100644
index 0000000..4c64994
--- /dev/null
+++ b/GroLUG/t/01app.t
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+BEGIN { use_ok 'Catalyst::Test', 'GroLUG' }
+
+ok( request('/')->is_success, 'Request should succeed' );
diff --git a/GroLUG/t/02pod.t b/GroLUG/t/02pod.t
new file mode 100644
index 0000000..251640d
--- /dev/null
+++ b/GroLUG/t/02pod.t
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => 'Test::Pod 1.14 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_files_ok();
diff --git a/GroLUG/t/03podcoverage.t b/GroLUG/t/03podcoverage.t
new file mode 100644
index 0000000..ae59d4c
--- /dev/null
+++ b/GroLUG/t/03podcoverage.t
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_coverage_ok();