X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=script%2Fndweb_fastcgi.pl;h=11679d19a7a95907aee34ffd76f268d6c01093a6;hb=8ab709d6aa740c7ab3ebccb37903d8c12ef7b894;hp=cf0ad8b53e064fd7b42306007f19eda4184e7745;hpb=3fc40135d773a95ede229e71efb48e07fdf3c418;p=ndwebbie.git

diff --git a/script/ndweb_fastcgi.pl b/script/ndweb_fastcgi.pl
index cf0ad8b..11679d1 100755
--- a/script/ndweb_fastcgi.pl
+++ b/script/ndweb_fastcgi.pl
@@ -1,39 +1,8 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
-
-use strict;
-use warnings;
-use Getopt::Long;
-use Pod::Usage;
-use FindBin;
-use lib "$FindBin::Bin/../lib";
-use NDWeb;
-
-my $help = 0;
-my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
- 
-GetOptions(
-    'help|?'      => \$help,
-    'listen|l=s'  => \$listen,
-    'nproc|n=i'   => \$nproc,
-    'pidfile|p=s' => \$pidfile,
-    'manager|M=s' => \$manager,
-    'daemon|d'    => \$detach,
-    'keeperr|e'   => \$keep_stderr,
-);
-
-pod2usage(1) if $help;
-
-NDWeb->run( 
-    $listen, 
-    {   nproc   => $nproc,
-        pidfile => $pidfile, 
-        manager => $manager,
-        detach  => $detach,
-	keep_stderr => $keep_stderr,
-    }
-);
+use local::lib;
+use Catalyst::ScriptRunner;
+Catalyst::ScriptRunner->run('NDWeb', 'FastCGI');
 
 1;
 
@@ -44,37 +13,36 @@ ndweb_fastcgi.pl - Catalyst FastCGI
 =head1 SYNOPSIS
 
 ndweb_fastcgi.pl [options]
- 
+
  Options:
    -? -help      display this help and exits
-   -l -listen    Socket path to listen on
+   -l --listen   Socket path to listen on
                  (defaults to standard input)
                  can be HOST:PORT, :PORT or a
                  filesystem path
-   -n -nproc     specify number of processes to keep
+   -n --nproc    specify number of processes to keep
                  to serve requests (defaults to 1,
                  requires -listen)
-   -p -pidfile   specify filename for pid file
+   -p --pidfile  specify filename for pid file
                  (requires -listen)
-   -d -daemon    daemonize (requires -listen)
-   -M -manager   specify alternate process manager
+   -d --daemon   daemonize (requires -listen)
+   -M --manager  specify alternate process manager
                  (FCGI::ProcManager sub-class)
                  or empty string to disable
-   -e -keeperr   send error messages to STDOUT, not
+   -e --keeperr  send error messages to STDOUT, not
                  to the webserver
 
 =head1 DESCRIPTION
 
 Run a Catalyst application as fastcgi.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Sebastian Riedel, C<sri@oook.de>
-Maintained by the Catalyst Core Team.
+Catalyst Contributors, see Catalyst.pm
 
 =head1 COPYRIGHT
 
-This library is free software, you can redistribute it and/or modify
+This library is free software. You can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut