3 use Plack::App::CGIBin;
5 use Plack::Middleware::Debug;
6 use Plack::App::Directory;
8 use CGI qw(-utf8 ); # we will lose -utf8 under plack
10 no warnings 'redefine';
11 my $old_new = \&CGI::new;
13 my $q = $old_new->( @_ );
15 Koha::Cache->flush_L1_cache();
16 Koha::Cache::Memory::Lite->flush();
23 # override configuration from startup script below:
24 # (requires --reload option)
26 $ENV{PLACK_DEBUG} = 1; # toggle debugging
28 # memcache change requires restart
29 $ENV{MEMCACHED_SERVERS} = "localhost:11211";
30 #$ENV{MEMCACHED_DEBUG} = 0;
32 $ENV{PROFILE_PER_PAGE} = 1; # reset persistent and profile counters after each page, like CGI
33 #$ENV{INTRANET} = 1; # usually passed from script
35 #$ENV{DBI_AUTOPROXY}='dbi:Gofer:transport=null;cache=DBI::Util::CacheMemory'
50 use Koha::Cache::Memory::Lite;
55 use Devel::Size 0.77; # 0.71 doesn't work for Koha
56 my $watch_capture_regex = '(C4|Koha)';
60 map { s/^.*$watch_capture_regex/$1/; s/\//::/g; s/\.pm$//; $_ } # fix paths
61 grep { /$watch_capture_regex/ }
64 warn "# watch_for_size ",join(' ',@watch);
68 my $CGI_ROOT = $ENV{INTRANET} ? $ENV{INTRANETDIR} : $ENV{OPACDIR};
69 warn "# using Koha ", $ENV{INTRANET} ? 'intranet' : 'OPAC', " CGI from $CGI_ROOT\n";
70 my $app=Plack::App::CGIBin->new(root => $CGI_ROOT);
72 return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ];
77 # please don't use plugins which are under enable_if $ENV{PLACK_DEBUG} in production!
78 # they are known to leek memory
79 enable_if { $ENV{PLACK_DEBUG} } 'Debug', panels => [
80 qw(Environment Response Timer Memory),
81 # optional plugins (uncomment to enable) are sorted according to performance implact
82 # [ 'Devel::Size', for => \&watch_for_size ], # https://github.com/dpavlin/p5-plack-devel-debug-devel-size
83 # [ 'DBIProfile', profile => 2 ],
84 # [ 'DBITrace', level => 1 ], # a LOT of fine-graded SQL trace
85 # [ 'Profiler::NYTProf', exclude => [qw(.*\.css .*\.png .*\.ico .*\.js .*\.gif)] ],
88 # don't enable this plugin in production, since stack traces reveal too much information
89 # about system to potential attackers!
90 enable_if { $ENV{PLACK_DEBUG} } 'StackTrace';
92 # this enables plackup or starman to serve static files and provide working plack
93 # setup without need for front-end web server to serve static files
94 enable_if { $ENV{INTRANETDIR} } "Plack::Middleware::Static",
95 path => qr{^/(intranet|opac)-tmpl/},
96 root => "$ENV{INTRANETDIR}/koha-tmpl/";
98 mount "/cgi-bin/koha" => $app;