misc/plack/koha.psgi

   1 #!/usr/bin/perl
   2 use Plack::Builder;
   3 use Plack::App::CGIBin;
   4 use lib qw( ./lib );
   5 use Plack::Middleware::Debug;
   6 use Plack::App::Directory;
   7
   8 use CGI qw(-utf8 ); # we will lose -utf8 under plack
   9 {
  10     no warnings 'redefine';
  11     my $old_new = \&CGI::new;
  12     *CGI::new = sub {
  13         my $q = $old_new->( @_ );
  14         $CGI::PARAM_UTF8 = 1;
  15         Koha::Caches->flush_L1_caches();
  16         Koha::Cache::Memory::Lite->flush();
  17         return $q;
  18     };
  19 }
  20
  21 BEGIN {
  22
  23 # override configuration from startup script below:
  24 # (requires --reload option)
  25
  26 $ENV{PLACK_DEBUG} = 1; # toggle debugging
  27
  28 # memcache change requires restart
  29 $ENV{MEMCACHED_SERVERS} = "localhost:11211";
  30 #$ENV{MEMCACHED_DEBUG} = 0;
  31
  32 $ENV{PROFILE_PER_PAGE} = 1; # reset persistent and profile counters after each page, like CGI
  33 #$ENV{INTRANET} = 1; # usually passed from script
  34
  35 #$ENV{DBI_AUTOPROXY}='dbi:Gofer:transport=null;cache=DBI::Util::CacheMemory'
  36
  37 } # BEGIN
  38
  39 use C4::Context;
  40 use C4::Languages;
  41 use C4::Members;
  42 use C4::Boolean;
  43 use C4::Letters;
  44 use C4::Koha;
  45 use C4::XSLT;
  46 use Koha::DateUtils;
  47 use Koha::Caches;
  48 use Koha::Cache::Memory::Lite;
  49 use Koha::Patron::Categories;
  50
  51 =for preload
  52 use C4::Tags; # FIXME
  53 =cut
  54
  55 use Devel::Size 0.77; # 0.71 doesn't work for Koha
  56 my $watch_capture_regex = '(C4|Koha)';
  57
  58 sub watch_for_size {
  59         my @watch =
  60         map { s/^.*$watch_capture_regex/$1/; s/\//::/g; s/\.pm$//; $_ } # fix paths
  61         grep { /$watch_capture_regex/ }
  62         keys %INC
  63         ;
  64         warn "# watch_for_size ",join(' ',@watch);
  65         return @watch;
  66 };
  67
  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)->to_app;
  71 my $home = sub {
  72         return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ];
  73 };
  74
  75 builder {
  76
  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)] ],
  86         ];
  87
  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';
  91
  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/";
  97
  98     # + is required so Plack doesn't try to prefix Plack::Middleware::
  99     enable "+Koha::Middleware::SetEnv";
 100
 101         mount "/cgi-bin/koha" => $app;
 102         mount "/" => $home;
 103
 104 };