extends 'Catalyst::Controller::WrapCGI';
use File::Find::Rule ();
-use Catalyst::Exception ();
use File::Spec::Functions qw/splitdir abs2rel/;
use IPC::Open3;
use Symbol 'gensym';
Catalyst::Controller::CGIBin - Serve CGIs from root/cgi-bin
-=head1 VERSION
-
-Version 0.027
-
=cut
-our $VERSION = '0.027';
+our $VERSION = '0.030';
=head1 SYNOPSIS
In your .conf:
<Controller::Foo>
- cgi_root_path cgi-bin
- cgi_dir cgi-bin
- cgi_chain_root /optional/private/path/to/Chained/root
+ cgi_root_path cgi-bin
+ cgi_dir cgi-bin
+ cgi_chain_root /optional/private/path/to/Chained/root
+ cgi_file_pattern *.cgi
+ # or regex
+ cgi_file_pattern /\.pl\z/
<CGI>
username_field username # used for REMOTE_USER env var
pass_env PERL5LIB
Path from which to read CGI files. Can be relative to C<$MYAPP_HOME/root> or
absolute. Defaults to C<$MYAPP_HOME/root/cgi-bin>.
+=head2 cgi_file_pattern
+
+By default all files in L</cgi_dir> will be loaded as CGIs, however, with this
+option you can specify either a glob or a regex to match the names of files you
+want to be loaded.
+
+Can be an array of globs/regexes as well.
+
=cut
-has cgi_root_path => (is => 'ro', isa => 'Str', default => 'cgi-bin');
-has cgi_chain_root => (is => 'ro', isa => 'Str');
-has cgi_dir => (is => 'ro', isa => 'Str', default => 'cgi-bin');
+has cgi_root_path => (is => 'ro', isa => 'Str', default => 'cgi-bin');
+has cgi_chain_root => (is => 'ro', isa => 'Str');
+has cgi_dir => (is => 'ro', isa => 'Str', default => 'cgi-bin');
+has cgi_file_pattern => (is => 'rw', default => sub { ['*'] });
sub register_actions {
my ($self, $app) = @_;
- my $cgi_bin = File::Spec->file_name_is_absolute($self->cgi_dir) ?
- $self->cgi_dir
- : $app->path_to('root', $self->cgi_dir);
+ my $cgi_bin;
+ if( File::Spec->file_name_is_absolute($self->cgi_dir) ) {
+ $cgi_bin = $self->cgi_dir;
+ } elsif( File::Spec->file_name_is_absolute( $app->config->{root} ) ) {
+ $cgi_bin = File::Spec->catdir( $app->config->{root}, $self->cgi_dir );
+ } else {
+ $cgi_bin = $app->path_to( $app->config->{root}, $self->cgi_dir);
+ }
my $namespace = $self->action_namespace($app);
my $class = ref $self || $self;
- for my $file (File::Find::Rule->file->in($cgi_bin)) {
+ my $patterns = $self->cgi_file_pattern;
+ $patterns = [ $patterns ] if not ref $patterns;
+ for my $pat (@$patterns) {
+ if ($pat =~ m{^/(.*)/\z}) {
+ $pat = qr/$1/;
+ }
+ }
+ $self->cgi_file_pattern($patterns);
+
+ for my $file (File::Find::Rule->file->name(@$patterns)->in($cgi_bin)) {
my $cgi_path = abs2rel($file, $cgi_bin);
next if any { $_ eq '.svn' } splitdir $cgi_path;
=cut
1; # End of Catalyst::Controller::CGIBin
-
-# vim: expandtab shiftwidth=4 ts=4 tw=80:
+# vim:et sw=4 sts=4 tw=0: