Permalink
Browse files

Merge pull request #103 from ctfliblime/PT16371557-4_08

Pt16371557 4 08
  • Loading branch information...
2 parents b6f75d6 + ef56341 commit 63c9ed8bda918cf9c5fa284ec3a8344bcdc9daee @ctfliblime ctfliblime committed Jul 29, 2011
Showing with 4 additions and 17 deletions.
  1. +0 −16 Koha/Plack/ScrubStatus.pm
  2. +2 −0 Makefile.PL
  3. +2 −1 app.psgi
View
16 Koha/Plack/ScrubStatus.pm
@@ -1,16 +0,0 @@
-package Koha::Plack::ScrubStatus;
-use parent qw(Plack::Middleware);
-
-use Koha;
-use Plack::Util;
-
-sub call {
- my ($self, $env) = @_;
-
- my $res = $self->app->($env);
- Plack::Util::header_remove($res->[1], 'Status');
-
- return $res;
-}
-
-1;
View
2 Makefile.PL
@@ -605,6 +605,8 @@ WriteMakefile(
'PDF::Reuse::Barcode' => 0.05,
'Plack' => 0.9978,
'Plack::Middleware::Deflater' => 0.03,
+ 'Plack::Middleware::Header' => 0.04,
+ 'Plack::Middleware::Status' => 1.101150,
'POE' => 0.9999,
'POSIX' => 1.09,
'Rose::DB' => 0.762,
View
3 app.psgi
@@ -9,11 +9,12 @@ my $app = Plack::App::CGIBin->new(root => $ENV{PERL5LIB})->to_app;
builder {
enable 'Deflater';
+ enable 'Status', path => qr{/C4/|/Koha/|/misc/|/t/|/xt/|/etc/}, status => 404;
enable 'Static', path => qr{^/opac-tmpl/}, root => 'koha-tmpl/';
enable 'Static', path => qr{^/intranet-tmpl/}, root => 'koha-tmpl/';
+ enable 'Header', unset => ['Status'];
enable '+Koha::Plack::Localize';
enable '+Koha::Plack::Rewrite';
- enable '+Koha::Plack::ScrubStatus';
mount '/' => $app;
};

0 comments on commit 63c9ed8

Please sign in to comment.