diff options
Diffstat (limited to 'script/mga_mirrors_server.pl')
| -rwxr-xr-x | script/mga_mirrors_server.pl | 152 |
1 files changed, 126 insertions, 26 deletions
diff --git a/script/mga_mirrors_server.pl b/script/mga_mirrors_server.pl index a0d255c..fdf863d 100755 --- a/script/mga_mirrors_server.pl +++ b/script/mga_mirrors_server.pl @@ -1,43 +1,144 @@ #!/usr/bin/env perl BEGIN { - $ENV{CATALYST_SCRIPT_GEN} = 40; + $ENV{CATALYST_ENGINE} ||= 'HTTP'; + $ENV{CATALYST_SCRIPT_GEN} = 39; + require Catalyst::Engine::HTTP; } -use Catalyst::ScriptRunner; -Catalyst::ScriptRunner->run('MGA::Mirrors', 'Server'); +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use FindBin; +use lib "$FindBin::Bin/../lib"; + +my $debug = 0; +my $fork = 0; +my $help = 0; +my $host = undef; +my $port = $ENV{MGA_MIRRORS_PORT} || $ENV{CATALYST_PORT} || 3000; +my $keepalive = 0; +my $restart = $ENV{MGA_MIRRORS_RELOAD} || $ENV{CATALYST_RELOAD} || 0; +my $background = 0; +my $pidfile = undef; + +my $check_interval; +my $file_regex; +my $watch_directory; +my $follow_symlinks; + +my @argv = @ARGV; + +GetOptions( + 'debug|d' => \$debug, + 'fork|f' => \$fork, + 'help|?' => \$help, + 'host=s' => \$host, + 'port|p=s' => \$port, + 'keepalive|k' => \$keepalive, + 'restart|r' => \$restart, + 'restartdelay|rd=s' => \$check_interval, + 'restartregex|rr=s' => \$file_regex, + 'restartdirectory=s@' => \$watch_directory, + 'followsymlinks' => \$follow_symlinks, + 'background' => \$background, + 'pidfile=s' => \$pidfile, +); + +pod2usage(1) if $help; + +if ( $debug ) { + $ENV{CATALYST_DEBUG} = 1; +} + +# If we load this here, then in the case of a restarter, it does not +# need to be reloaded for each restart. +require Catalyst; + +# If this isn't done, then the Catalyst::Devel tests for the restarter +# fail. +$| = 1 if $ENV{HARNESS_ACTIVE}; + +my $runner = sub { + # This is require instead of use so that the above environment + # variables can be set at runtime. + require MGA::Mirrors; + + MGA::Mirrors->run( + $port, $host, + { + argv => \@argv, + 'fork' => $fork, + keepalive => $keepalive, + background => $background, + pidfile => $pidfile, + } + ); +}; + +if ( $restart ) { + die "Cannot run in the background and also watch for changed files.\n" + if $background; + + require Catalyst::Restarter; + + my $subclass = Catalyst::Restarter->pick_subclass; + + my %args; + $args{follow_symlinks} = 1 + if $follow_symlinks; + $args{directories} = $watch_directory + if defined $watch_directory; + $args{sleep_interval} = $check_interval + if defined $check_interval; + $args{filter} = qr/$file_regex/ + if defined $file_regex; + + my $restarter = $subclass->new( + %args, + start_sub => $runner, + argv => \@argv, + ); + + $restarter->run_and_watch; +} +else { + $runner->(); +} 1; =head1 NAME -mga_mirrors_server.pl - Catalyst Test Server +mga_mirrors_server.pl - Catalyst Testserver =head1 SYNOPSIS mga_mirrors_server.pl [options] - -d --debug force debug mode - -f --fork handle each request in a new process - (defaults to false) - -? --help display this help and exits - -h --host host (defaults to all) - -p --port port (defaults to 3000) - -k --keepalive enable keep-alive connections - -r --restart restart when files get modified - (defaults to false) - -rd --restart_delay delay between file checks - (ignored if you have Linux::Inotify2 installed) - -rr --restart_regex regex match files that trigger - a restart when modified - (defaults to '\.yml$|\.yaml$|\.conf|\.pm$') - --restart_directory the directory to search for - modified files, can be set mulitple times - (defaults to '[SCRIPT_DIR]/..') - --follow_symlinks follow symlinks in search directories - (defaults to false. this is a no-op on Win32) - --background run the process in the background - --pidfile specify filename for pid file + Options: + -d -debug force debug mode + -f -fork handle each request in a new process + (defaults to false) + -? -help display this help and exits + -host host (defaults to all) + -p -port port (defaults to 3000) + -k -keepalive enable keep-alive connections + -r -restart restart when files get modified + (defaults to false) + -rd -restartdelay delay between file checks + (ignored if you have Linux::Inotify2 installed) + -rr -restartregex regex match files that trigger + a restart when modified + (defaults to '\.yml$|\.yaml$|\.conf|\.pm$') + -restartdirectory the directory to search for + modified files, can be set mulitple times + (defaults to '[SCRIPT_DIR]/..') + -follow_symlinks follow symlinks in search directories + (defaults to false. this is a no-op on Win32) + -background run the process in the background + -pidfile specify filename for pid file See also: perldoc Catalyst::Manual @@ -57,4 +158,3 @@ This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut - |