/[webpac2]/Webpacus/script/webpacus_server.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus/script/webpacus_server.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by dpavlin, Mon Nov 21 17:46:27 2005 UTC revision 223 by dpavlin, Mon Dec 5 19:15:06 2005 UTC
# Line 2  Line 2 
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;
# Line 16  my $fork          = 0; Line 16  my $fork          = 0;
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$';
# Line 28  GetOptions( Line 29  GetOptions(
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
# Line 42  if ( $debug ) { Line 44  if ( $debug ) {
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  } );  } );
# Line 69  webpacus_server.pl [options] Line 72  webpacus_server.pl [options]
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
Legend:
Removed from v.83  
changed lines
  Added in v.223
  ViewVC Help
Powered by ViewVC 1.1.26