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

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

Return to bug 16644