>>>>> "Randal" == Randal L Schwartz <[EMAIL PROTECTED]> writes:
Randal> our @STATIC_FILES = (
Randal> [ qr{^/img/(.*)$} => [ qw(/alternative/img /myapp/install/img) ],
Randal> [ qr{^/css/(.*)$} => [ qw(/alternative/css /myapp/install/css) ],
Argh. extra left bracket snuck in.
[ qr{^/img/(.*)$} => qw(/alternative/img /myapp/install/img) ],
[ qr{^/css/(.*)$} => qw(/alternative/css /myapp/install/css) ],
Randal> ...
Randal> );
Randal> sub handler {
Randal> my $r = shift;
Randal> my $uri = $r->uri;
Randal> for (@STATIC_FILES) {
Randal> my ($pat, @dirs) = @$_;
Randal> if ($uri =~ $pat) {
Randal> my $tail = $1;
Randal> foreach my $dir (@dirs) {
Randal> my $file = "$dir/$tail";
Randal> if (-f $file) {
Randal> $r->filename($file);
Randal> return OK;
Randal> }
Randal> }
Randal> }
Randal> }
Randal> return DECLINED;
Randal> }
Randal> --
Randal> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
Randal> <[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Randal> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
Randal> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
