bin/sgn_server.pl

   1 #!/usr/bin/env perl
   2
   3 BEGIN {
   4     $ENV{CATALYST_SCRIPT_GEN} = 40;
   5 }
   6
   7 unless( grep /^(-rr|--restart_regex)$/, @ARGV ) {
   8     unshift @ARGV, ( '--restart_regex' => '\.conf|\.p[ml]$' );
   9 }
  10
  11 use Catalyst::ScriptRunner;
  12 Catalyst::ScriptRunner->run('SGN', 'Server');
  13
  14 1;
  15
  16 =head1 NAME
  17
  18 sgn_server.pl - Catalyst Test Server
  19
  20 =head1 SYNOPSIS
  21
  22 sgn_server.pl [options]
  23
  24    -d --debug           force debug mode
  25    -f --fork            handle each request in a new process
  26                         (defaults to false)
  27    -? --help            display this help and exits
  28    -h --host            host (defaults to all)
  29    -p --port            port (defaults to 3000)
  30    -k --keepalive       enable keep-alive connections
  31    -r --restart         restart when files get modified
  32                         (defaults to false)
  33    -rd --restart_delay  delay between file checks
  34                         (ignored if you have Linux::Inotify2 installed)
  35    -rr --restart_regex  regex match files that trigger
  36                         a restart when modified
  37                         (defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
  38    --restart_directory  the directory to search for
  39                         modified files, can be set mulitple times
  40                         (defaults to '[SCRIPT_DIR]/..')
  41    --follow_symlinks    follow symlinks in search directories
  42                         (defaults to false. this is a no-op on Win32)
  43    --background         run the process in the background
  44    --pidfile            specify filename for pid file
  45
  46  See also:
  47    perldoc Catalyst::Manual
  48    perldoc Catalyst::Manual::Intro
  49
  50 =head1 DESCRIPTION
  51
  52 Run a Catalyst Testserver for this application.
  53
  54 =head1 AUTHORS
  55
  56 Catalyst Contributors, see Catalyst.pm
  57
  58 =head1 COPYRIGHT
  59
  60 This library is free software. You can redistribute it and/or modify
  61 it under the same terms as Perl itself.
  62
  63 =cut
  64