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

(-)a/debian/templates/plack.psgi (-3 / +3 lines)
Lines 54-68 use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise Link Here
54
54
55
my $intranet = Plack::App::CGIBin->new(
55
my $intranet = Plack::App::CGIBin->new(
56
    root => '/usr/share/koha/intranet/cgi-bin'
56
    root => '/usr/share/koha/intranet/cgi-bin'
57
);
57
)->to_app;
58
58
59
my $opac = Plack::App::CGIBin->new(
59
my $opac = Plack::App::CGIBin->new(
60
    root => '/usr/share/koha/opac/cgi-bin/opac'
60
    root => '/usr/share/koha/opac/cgi-bin/opac'
61
);
61
)->to_app;
62
62
63
# my $api  = Plack::App::CGIBin->new(
63
# my $api  = Plack::App::CGIBin->new(
64
#     root => '/usr/share/koha/api/'
64
#     root => '/usr/share/koha/api/'
65
# );
65
# )->to_app;
66
66
67
builder {
67
builder {
68
68
(-)a/misc/plack/koha.psgi (-2 / +1 lines)
Lines 67-73 sub watch_for_size { Link Here
67
67
68
my $CGI_ROOT = $ENV{INTRANET} ? $ENV{INTRANETDIR} : $ENV{OPACDIR};
68
my $CGI_ROOT = $ENV{INTRANET} ? $ENV{INTRANETDIR} : $ENV{OPACDIR};
69
warn "# using Koha ", $ENV{INTRANET} ? 'intranet' : 'OPAC', " CGI from $CGI_ROOT\n";
69
warn "# using Koha ", $ENV{INTRANET} ? 'intranet' : 'OPAC', " CGI from $CGI_ROOT\n";
70
my $app=Plack::App::CGIBin->new(root => $CGI_ROOT);
70
my $app=Plack::App::CGIBin->new(root => $CGI_ROOT)->to_app;
71
my $home = sub {
71
my $home = sub {
72
	return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ];
72
	return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ];
73
};
73
};
74
- 

Return to bug 16644