guiwf/lix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* More global substitution.

Browse Source
This commit is contained in:
Eelco Dolstra
2008-11-25 11:01:42 +00:00
parent 22feae550e
commit 410b80063c
24 changed files with 106 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Hydra/script/hydra_cgi.pl
+3 -3
View File
@@ -6,15 +6,15 @@ use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use HydraFrontend;
use Hydra;
HydraFrontend->run;
Hydra->run;
1;
=head1 NAME
hydrafrontend_cgi.pl - Catalyst CGI
hydra_cgi.pl - Catalyst CGI
=head1 SYNOPSIS
src/Hydra/script/hydra_create.pl
+12 -12
View File
@@ -20,17 +20,17 @@ pod2usage(1) if ( $help || !$ARGV[0] );
my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } );
pod2usage(1) unless $helper->mk_component( 'HydraFrontend', @ARGV );
pod2usage(1) unless $helper->mk_component( 'Hydra', @ARGV );
1;
=head1 NAME
hydrafrontend_create.pl - Create a new Catalyst Component
hydra_create.pl - Create a new Catalyst Component
=head1 SYNOPSIS
hydrafrontend_create.pl [options] model|view|controller name [helper] [options]
hydra_create.pl [options] model|view|controller name [helper] [options]
Options:
-force don't create a .new file where a file to be created exists
@@ -38,16 +38,16 @@ hydrafrontend_create.pl [options] model|view|controller name [helper] [options]
-help display this help and exits
Examples:
hydrafrontend_create.pl controller My::Controller
hydrafrontend_create.pl controller My::Controller BindLex
hydrafrontend_create.pl -mechanize controller My::Controller
hydrafrontend_create.pl view My::View
hydrafrontend_create.pl view MyView TT
hydrafrontend_create.pl view TT TT
hydrafrontend_create.pl model My::Model
hydrafrontend_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
hydra_create.pl controller My::Controller
hydra_create.pl controller My::Controller BindLex
hydra_create.pl -mechanize controller My::Controller
hydra_create.pl view My::View
hydra_create.pl view MyView TT
hydra_create.pl view TT TT
hydra_create.pl model My::Model
hydra_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
dbi:SQLite:/tmp/my.db
hydrafrontend_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\
hydra_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\
dbi:Pg:dbname=foo root 4321
See also:
src/Hydra/script/hydra_fastcgi.pl
+4 -4
View File
@@ -8,7 +8,7 @@ use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
use HydraFrontend;
use Hydra;
my $help = 0;
my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
@@ -25,7 +25,7 @@ GetOptions(
pod2usage(1) if $help;
HydraFrontend->run(
Hydra->run(
$listen,
{ nproc => $nproc,
pidfile => $pidfile,
@@ -39,11 +39,11 @@ HydraFrontend->run(
=head1 NAME
hydrafrontend_fastcgi.pl - Catalyst FastCGI
hydra_fastcgi.pl - Catalyst FastCGI
=head1 SYNOPSIS
hydrafrontend_fastcgi.pl [options]
hydra_fastcgi.pl [options]
Options:
-? -help display this help and exits
src/Hydra/script/hydra_server.pl
+4 -4
View File
@@ -52,9 +52,9 @@ if ( $debug ) {
# This is require instead of use so that the above environment
# variables can be set at runtime.
require HydraFrontend;
require Hydra;
HydraFrontend->run( $port, $host, {
Hydra->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
@@ -69,11 +69,11 @@ HydraFrontend->run( $port, $host, {
=head1 NAME
hydrafrontend_server.pl - Catalyst Testserver
hydra_server.pl - Catalyst Testserver
=head1 SYNOPSIS
hydrafrontend_server.pl [options]
hydra_server.pl [options]
Options:
-d -debug force debug mode
src/Hydra/script/hydra_test.pl
+5 -5
View File
@@ -6,7 +6,7 @@ use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Catalyst::Test 'HydraFrontend';
use Catalyst::Test 'Hydra';
my $help = 0;
@@ -20,18 +20,18 @@ print request($ARGV[0])->content . "\n";
=head1 NAME
hydrafrontend_test.pl - Catalyst Test
hydra_test.pl - Catalyst Test
=head1 SYNOPSIS
hydrafrontend_test.pl [options] uri
hydra_test.pl [options] uri
Options:
-help display this help and exits
Examples:
hydrafrontend_test.pl http://localhost/some_action
hydrafrontend_test.pl /some_action
hydra_test.pl http://localhost/some_action
hydra_test.pl /some_action
See also:
perldoc Catalyst::Manual