diff options
author | franck cuny <franck@lumberjaph.net> | 2009-04-05 13:29:52 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-04-05 13:29:52 +0200 |
commit | 5d088f91ae74fed0e84950768600a5dc4055bedc (patch) | |
tree | a31894ed5ac5b2b2da419a4560ac7f6b35aa9725 | |
parent | add 2 requires (diff) | |
download | intention-cloud-5d088f91ae74fed0e84950768600a5dc4055bedc.tar.gz |
update scripts
-rwxr-xr-x | script/intentioncloud_create.pl | 14 | ||||
-rwxr-xr-x | script/intentioncloud_fastcgi.pl | 10 | ||||
-rwxr-xr-x | script/intentioncloud_server.pl | 6 |
3 files changed, 21 insertions, 9 deletions
diff --git a/script/intentioncloud_create.pl b/script/intentioncloud_create.pl index abcc466..ceb3876 100755 --- a/script/intentioncloud_create.pl +++ b/script/intentioncloud_create.pl @@ -4,7 +4,19 @@ use strict; use warnings; use Getopt::Long; use Pod::Usage; -use Catalyst::Helper; +eval "use Catalyst::Helper;"; + +if ($@) { + die <<END; +To use the Catalyst development tools including catalyst.pl and the +generated script/myapp_create.pl you need Catalyst::Helper, which is +part of the Catalyst-Devel distribution. Please install this via a +vendor package or by running one of - + + perl -MCPAN -e 'install Catalyst::Devel' + perl -MCPANPLUS -e 'install Catalyst::Devel' +END +} my $force = 0; my $mech = 0; diff --git a/script/intentioncloud_fastcgi.pl b/script/intentioncloud_fastcgi.pl index 41d4c9e..002381d 100755 --- a/script/intentioncloud_fastcgi.pl +++ b/script/intentioncloud_fastcgi.pl @@ -12,7 +12,7 @@ use intentioncloud; my $help = 0; my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr ); - + GetOptions( 'help|?' => \$help, 'listen|l=s' => \$listen, @@ -25,10 +25,10 @@ GetOptions( pod2usage(1) if $help; -intentioncloud->run( - $listen, +intentioncloud->run( + $listen, { nproc => $nproc, - pidfile => $pidfile, + pidfile => $pidfile, manager => $manager, detach => $detach, keep_stderr => $keep_stderr, @@ -44,7 +44,7 @@ intentioncloud_fastcgi.pl - Catalyst FastCGI =head1 SYNOPSIS intentioncloud_fastcgi.pl [options] - + Options: -? -help display this help and exits -l -listen Socket path to listen on diff --git a/script/intentioncloud_server.pl b/script/intentioncloud_server.pl index 73c1468..6612eaa 100755 --- a/script/intentioncloud_server.pl +++ b/script/intentioncloud_server.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -w -BEGIN { +BEGIN { $ENV{CATALYST_ENGINE} ||= 'HTTP'; - $ENV{CATALYST_SCRIPT_GEN} = 31; + $ENV{CATALYST_SCRIPT_GEN} = 32; require Catalyst::Engine::HTTP; -} +} use strict; use warnings; |