From 1afeddc08f6c61cff204980cfae93d97320ae39f Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Sat, 14 Jan 2006 17:25:35 +0000
Subject: aggiornamento a nuovo Catalyst, e "permessi di scrittura" (orendo)

---
 script/bookmarks_fastcgi.pl | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

(limited to 'script/bookmarks_fastcgi.pl')

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
-- 
cgit v1.2.3