diff options
Diffstat (limited to 'script/bookmarks_fastcgi.pl')
-rwxr-xr-x | script/bookmarks_fastcgi.pl | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/script/bookmarks_fastcgi.pl b/script/bookmarks_fastcgi.pl index 7061403..546d552 100755 --- a/script/bookmarks_fastcgi.pl +++ b/script/bookmarks_fastcgi.pl @@ -3,11 +3,24 @@ BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' } use strict; +use Getopt::Long; +use Pod::Usage; use FindBin; use lib "$FindBin::Bin/../lib"; use Bookmarks; -Bookmarks->run; +my $help = 0; +my ( $listen, $nproc ); + +GetOptions( + 'help|?' => \$help, + 'listen|l=s' => \$listen, + 'nproc|n=i' => \$nproc, +); + +pod2usage(1) if $help; + +Bookmarks->run( $listen, { nproc => $nproc } ); 1; @@ -17,7 +30,16 @@ bookmarks_fastcgi.pl - Catalyst FastCGI =head1 SYNOPSIS -See L<Catalyst::Manual> +bookmarks_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) =head1 DESCRIPTION @@ -31,7 +53,7 @@ Sebastian Riedel, C<sri@oook.de> 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. +This library is free software, you can redistribute it and/or modify +it under the same terms as Perl itself. =cut |