summaryrefslogtreecommitdiff
path: root/script/bookmarks_fastcgi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'script/bookmarks_fastcgi.pl')
-rwxr-xr-xscript/bookmarks_fastcgi.pl30
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