View | Details | Raw Unified | Return to bug 26048
Collapse All | Expand All

(-)a/debian/templates/plack.psgi (-26 / +39 lines)
Lines 36-44 use Koha::Caches; Link Here
36
use Koha::Cache::Memory::Lite;
36
use Koha::Cache::Memory::Lite;
37
use Koha::Database;
37
use Koha::Database;
38
use Koha::DateUtils;
38
use Koha::DateUtils;
39
use Koha::Logger;
40
39
41
use Log::Log4perl;
42
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
40
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
43
{
41
{
44
    no warnings 'redefine';
42
    no warnings 'redefine';
Lines 67-74 my $apiv1 = builder { Link Here
67
    $server->to_psgi_app;
65
    $server->to_psgi_app;
68
};
66
};
69
67
70
Koha::Logger->_init;
71
72
builder {
68
builder {
73
    enable "ReverseProxy";
69
    enable "ReverseProxy";
74
    enable "Plack::Middleware::Static";
70
    enable "Plack::Middleware::Static";
Lines 77-101 builder { Link Here
77
    enable "+Koha::Middleware::SetEnv";
73
    enable "+Koha::Middleware::SetEnv";
78
    enable "+Koha::Middleware::RealIP";
74
    enable "+Koha::Middleware::RealIP";
79
75
80
    mount '/opac'          => builder {
76
	enable 'ErrorDocument', 500, '/errors', subrequest => 1;
81
        if ( Log::Log4perl->get_logger('plack-opac')->has_appenders ){
77
	enable 'StackTrace', no_print_errors => 1;
82
            enable 'Log4perl', category => 'plack-opac';
78
83
            enable 'LogWarn';
79
    mount '/opac'          => $opac;
84
        }
80
    mount '/intranet'      => $intranet;
85
        $opac;
81
    mount '/api/v1/app.pl' => $apiv1;
86
    };
82
87
    mount '/intranet'      => builder {
83
    mount '/errors' => sub {
88
        if ( Log::Log4perl->get_logger('plack-intranet')->has_appenders ){
84
        my $env = shift;
89
            enable 'Log4perl', category => 'plack-intranet';
85
90
            enable 'LogWarn';
86
		use CGI qw ( -utf8 );
91
        }
87
		use C4::Auth;
92
        $intranet;
88
		use C4::Output;
93
    };
89
		use C4::Context;
94
    mount '/api/v1/app.pl' => builder {
90
		
95
        if ( Log::Log4perl->get_logger('plack-api')->has_appenders ){
91
		my $query = CGI->new;
96
            enable 'Log4perl', category => 'plack-api';
92
		my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
97
            enable 'LogWarn';
93
		    {   
98
        }
94
		        template_name   => 'errors/errorpage.tt',
99
        $apiv1;
95
		        query           => $query,
100
    };
96
		        type            => 'intranet',
97
		        authnotrequired => 1,
98
		        debug           => 1,
99
		    }   
100
		);
101
		$template->param (
102
		    errno => 500,
103
            admin => C4::Context->preference('KohaAdminEmailAddress'),
104
		);
105
		my $output = $template->output;
106
		my $length = length($output);
107
108
        return [
109
            200,
110
            ['Content-Type' => 'text/html; charset=UTF-8', 'Content-Length' => $length],
111
            [$output]
112
        ];  
113
	};
114
101
};
115
};
102
- 

Return to bug 26048