diff options
Diffstat (limited to 'script/mga_mirrors_fastcgi.pl')
| -rwxr-xr-x | script/mga_mirrors_fastcgi.pl | 48 |
1 files changed, 40 insertions, 8 deletions
diff --git a/script/mga_mirrors_fastcgi.pl b/script/mga_mirrors_fastcgi.pl index 8975e6d..42887fe 100755 --- a/script/mga_mirrors_fastcgi.pl +++ b/script/mga_mirrors_fastcgi.pl @@ -1,7 +1,39 @@ #!/usr/bin/env perl -use Catalyst::ScriptRunner; -Catalyst::ScriptRunner->run('MGA::Mirrors', 'FastCGI'); +BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' } + +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use FindBin; +use lib "$FindBin::Bin/../lib"; +use MGA::Mirrors; + +my $help = 0; +my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr ); + +GetOptions( + 'help|?' => \$help, + 'listen|l=s' => \$listen, + 'nproc|n=i' => \$nproc, + 'pidfile|p=s' => \$pidfile, + 'manager|M=s' => \$manager, + 'daemon|d' => \$detach, + 'keeperr|e' => \$keep_stderr, +); + +pod2usage(1) if $help; + +MGA::Mirrors->run( + $listen, + { nproc => $nproc, + pidfile => $pidfile, + manager => $manager, + detach => $detach, + keep_stderr => $keep_stderr, + } +); 1; @@ -15,20 +47,20 @@ mga_mirrors_fastcgi.pl [options] Options: -? -help display this help and exits - -l --listen Socket path to listen on + -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 + -n -nproc specify number of processes to keep to serve requests (defaults to 1, requires -listen) - -p --pidfile specify filename for pid file + -p -pidfile specify filename for pid file (requires -listen) - -d --daemon daemonize (requires -listen) - -M --manager specify alternate process manager + -d -daemon daemonize (requires -listen) + -M -manager specify alternate process manager (FCGI::ProcManager sub-class) or empty string to disable - -e --keeperr send error messages to STDOUT, not + -e -keeperr send error messages to STDOUT, not to the webserver =head1 DESCRIPTION |