|
Lines 53-58
sub watch_for_size {
Link Here
|
| 53 |
my $CGI_ROOT = $ENV{INTRANET} ? $ENV{INTRANETDIR} : $ENV{OPACDIR}; |
53 |
my $CGI_ROOT = $ENV{INTRANET} ? $ENV{INTRANETDIR} : $ENV{OPACDIR}; |
| 54 |
warn "# using Koha ", $ENV{INTRANET} ? 'intranet' : 'OPAC', " CGI from $CGI_ROOT\n"; |
54 |
warn "# using Koha ", $ENV{INTRANET} ? 'intranet' : 'OPAC', " CGI from $CGI_ROOT\n"; |
| 55 |
my $app=Plack::App::CGIBin->new(root => $CGI_ROOT); |
55 |
my $app=Plack::App::CGIBin->new(root => $CGI_ROOT); |
|
|
56 |
my $home = sub { |
| 57 |
return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ]; |
| 58 |
}; |
| 56 |
|
59 |
|
| 57 |
builder { |
60 |
builder { |
| 58 |
|
61 |
|
|
Lines 78-83
builder {
Link Here
|
| 78 |
root => "$ENV{INTRANETDIR}/koha-tmpl/"; |
81 |
root => "$ENV{INTRANETDIR}/koha-tmpl/"; |
| 79 |
|
82 |
|
| 80 |
mount "/cgi-bin/koha" => $app; |
83 |
mount "/cgi-bin/koha" => $app; |
|
|
84 |
mount "/" => $home; |
| 81 |
|
85 |
|
| 82 |
}; |
86 |
}; |
| 83 |
|
87 |
|
| 84 |
- |
|
|