|
Lines 106-112
sub get_trusted_proxies {
Link Here
|
| 106 |
my $proxies_conf = C4::Context->config('koha_trusted_proxies'); |
106 |
my $proxies_conf = C4::Context->config('koha_trusted_proxies'); |
| 107 |
return unless $proxies_conf; |
107 |
return unless $proxies_conf; |
| 108 |
my @trusted_proxies_ip = split( / /, $proxies_conf ); |
108 |
my @trusted_proxies_ip = split( / /, $proxies_conf ); |
| 109 |
my @trusted_proxies = map { Net::Netmask->new($_) } @trusted_proxies_ip; |
109 |
my @trusted_proxies = (); |
|
|
110 |
foreach my $ip (@trusted_proxies_ip){ |
| 111 |
my $mask = Net::Netmask->new2($ip); |
| 112 |
if ($mask){ |
| 113 |
push(@trusted_proxies,$mask); |
| 114 |
} |
| 115 |
else { |
| 116 |
warn "$Net::Netmask::error"; |
| 117 |
} |
| 118 |
} |
| 110 |
return \@trusted_proxies; |
119 |
return \@trusted_proxies; |
| 111 |
} |
120 |
} |
| 112 |
|
121 |
|
| 113 |
- |
|
|