2 |
|
|
3 |
BEGIN { |
BEGIN { |
4 |
$ENV{CATALYST_ENGINE} ||= 'HTTP'; |
$ENV{CATALYST_ENGINE} ||= 'HTTP'; |
5 |
$ENV{CATALYST_SCRIPT_GEN} = 12; |
$ENV{CATALYST_SCRIPT_GEN} = 21; |
6 |
} |
} |
7 |
|
|
8 |
use strict; |
use strict; |
16 |
my $help = 0; |
my $help = 0; |
17 |
my $host = undef; |
my $host = undef; |
18 |
my $port = 3000; |
my $port = 3000; |
19 |
|
my $keepalive = 0; |
20 |
my $restart = 0; |
my $restart = 0; |
21 |
my $restart_delay = 1; |
my $restart_delay = 1; |
22 |
my $restart_regex = '\.yml$|\.yaml$|\.pm$'; |
my $restart_regex = '\.yml$|\.yaml$|\.pm$'; |
29 |
'help|?' => \$help, |
'help|?' => \$help, |
30 |
'host=s' => \$host, |
'host=s' => \$host, |
31 |
'port=s' => \$port, |
'port=s' => \$port, |
32 |
|
'keepalive|k' => \$keepalive, |
33 |
'restart|r' => \$restart, |
'restart|r' => \$restart, |
34 |
'restartdelay|rd=s' => \$restart_delay, |
'restartdelay|rd=s' => \$restart_delay, |
35 |
'restartregex|rr=s' => \$restart_regex |
'restartregex|rr=s' => \$restart_regex |
44 |
$ENV{CATALYST_DEBUG} = 1; |
$ENV{CATALYST_DEBUG} = 1; |
45 |
} |
} |
46 |
|
|
47 |
require Webpacus; |
use Webpacus; |
48 |
|
|
49 |
Webpacus->run( $port, $host, { |
Webpacus->run( $port, $host, { |
50 |
argv => \@argv, |
argv => \@argv, |
51 |
'fork' => $fork, |
'fork' => $fork, |
52 |
restart => $restart, |
keepalive => $keepalive, |
53 |
|
restart => $restart, |
54 |
restart_delay => $restart_delay, |
restart_delay => $restart_delay, |
55 |
restart_regex => qr/$restart_regex/ |
restart_regex => qr/$restart_regex/ |
56 |
} ); |
} ); |
72 |
-? -help display this help and exits |
-? -help display this help and exits |
73 |
-host host (defaults to all) |
-host host (defaults to all) |
74 |
-p -port port (defaults to 3000) |
-p -port port (defaults to 3000) |
75 |
|
-k -keepalive enable keep-alive connections |
76 |
-r -restart restart when files got modified |
-r -restart restart when files got modified |
77 |
(defaults to false) |
(defaults to false) |
78 |
-rd -restartdelay delay between file checks |
-rd -restartdelay delay between file checks |