Lines 17-28
Link Here
|
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
19 |
|
|
|
20 |
use Modern::Perl; |
20 |
|
21 |
|
21 |
use strict; |
|
|
22 |
use CGI; |
22 |
use CGI; |
23 |
use C4::Auth; |
23 |
use C4::Auth; |
24 |
use C4::Output; |
24 |
use C4::Output; |
25 |
use warnings; |
|
|
26 |
|
25 |
|
27 |
my $localNetwork = C4::Context->preference('ProxyPageLocalIPs'); |
26 |
my $localNetwork = C4::Context->preference('ProxyPageLocalIPs'); |
28 |
my $userIP = $ENV{'REMOTE_ADDR'}; |
27 |
my $userIP = $ENV{'REMOTE_ADDR'}; |
Lines 51-54
$template->param(
Link Here
|
51 |
ProxyPageTitle => C4::Context->preference('ProxyPageTitle') |
50 |
ProxyPageTitle => C4::Context->preference('ProxyPageTitle') |
52 |
); |
51 |
); |
53 |
|
52 |
|
54 |
output_html_with_http_headers $query, $cookie, $template->output; |
53 |
output_html_with_http_headers $query, $cookie, $template->output; |
55 |
- |
|
|