1 package Catalyst::Helper::SCGI;
12 Catalyst::Helper::SCGI - SCGI helper to create a scgi runner script to run the SCGI engine.
18 use the helper to build the view module and associated templates.
20 $ script/myapp_create.pl SCGI -p 9000
24 This helper module creates the runner script for the SCGI engine.
28 =head2 $self->mk_stuff ( $c, $helper, @args )
30 Create SCGI runner script
35 my ( $self, $helper, @args ) = @_;
37 my $base = $helper->{base};
38 my $app = lc($helper->{app});
40 $helper->render_file( "scgi_script",
41 File::Spec->catfile( $base, 'script', "$app\_scgi.pl" ) );
42 chmod 0700, "$base/script/$app\_scgi.pl";
47 Victor Igumnov, C<< <victori at lamer0.com> >>
51 Please report any bugs or feature requests to
52 C<victori at cpan.org>
54 =head1 ACKNOWLEDGEMENTS
56 =head1 COPYRIGHT & LICENSE
58 Copyright 2006 Victor Igumnov, all rights reserved.
60 This program is free software; you can redistribute it and/or modify it
61 under the same terms as Perl itself.
72 BEGIN { $ENV{CATALYST_ENGINE} ||= 'SCGI' }
79 use lib "$FindBin::Bin/../lib";
83 my ( $port, $detach );
88 'daemon|d' => \$detach,
91 pod2usage(1) if $help;
102 [% app %]_scgi.pl - Catalyst SCGI
106 [% app %]_scgi.pl [options]
109 -? -help display this help and exits
110 -p -port Port to listen on
115 Run a Catalyst application as SCGI.
119 Victor Igumnov, C<victori@cpan.org>
123 This library is free software, you can redistribute it and/or modify
124 it under the same terms as Perl itself.