10 |
use Webpacus; |
use Webpacus; |
11 |
|
|
12 |
my $help = 0; |
my $help = 0; |
13 |
my ( $listen, $nproc, $pidfile ); |
my ( $listen, $nproc, $pidfile, $manager, $detach ); |
14 |
|
|
15 |
GetOptions( |
GetOptions( |
16 |
'help|?' => \$help, |
'help|?' => \$help, |
17 |
'listen|l=s' => \$listen, |
'listen|l=s' => \$listen, |
18 |
'nproc|n=i' => \$nproc, |
'nproc|n=i' => \$nproc, |
19 |
'pidfile|p=s' => \$pidfile, |
'pidfile|p=s' => \$pidfile, |
20 |
|
'manager|M=s' => \$manager, |
21 |
|
'daemon|d' => \$detach, |
22 |
); |
); |
23 |
|
|
24 |
pod2usage(1) if $help; |
pod2usage(1) if $help; |
27 |
$listen, |
$listen, |
28 |
{ nproc => $nproc, |
{ nproc => $nproc, |
29 |
pidfile => $pidfile, |
pidfile => $pidfile, |
30 |
|
manager => $manager, |
31 |
|
detach => $detach, |
32 |
} |
} |
33 |
); |
); |
34 |
|
|
53 |
requires -listen) |
requires -listen) |
54 |
-p -pidfile specify filename for pid file |
-p -pidfile specify filename for pid file |
55 |
(requires -listen) |
(requires -listen) |
56 |
|
-d -daemon daemonize (requires -listen) |
57 |
|
-M -manager specify alternate process manager |
58 |
|
(FCGI::ProcessManager sub-class) |
59 |
|
or empty string to disable |
60 |
|
|
61 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
62 |
|
|