use CGI::Compile;
use CGI::Emulate::PSGI;
use Plack::App::URLMap;
+use Plack::App::Directory;
use lib '/srv/koha';
my $app = Plack::App::URLMap->new;
foreach my $script ( glob "$from/*" ) {
my $path = $script;
$path =~ s{^$from}{} || die;
+ $path =~ s{^/+}{};
my $sub = eval { CGI::Compile->compile($script) };
}
my $cgi_app = CGI::Emulate::PSGI->handler($sub);
- $app->mount( "$to/$path", $cgi_app );
+ $app->mount( "$to/$path" => $cgi_app );
warn "# script $script -> $to/$path";
}
+$app->mount( '/' => Plack::App::Directory->new( { root => '/srv/koha/koha-tmpl/' } )->to_app );
+
$app;