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

(-)a/Koha/Middleware/RealIP.pm (+1 lines)
Lines 109-114 sub get_trusted_proxies { Link Here
109
    my @trusted_proxies_ip = split( / /, $proxies_conf );
109
    my @trusted_proxies_ip = split( / /, $proxies_conf );
110
    my @trusted_proxies = ();
110
    my @trusted_proxies = ();
111
    foreach my $ip (@trusted_proxies_ip){
111
    foreach my $ip (@trusted_proxies_ip){
112
        local $Net::Netmask::SHORTNET_DEFAULT = 1;
112
        my $mask = Net::Netmask->new2($ip);
113
        my $mask = Net::Netmask->new2($ip);
113
        if ($mask){
114
        if ($mask){
114
            push(@trusted_proxies,$mask);
115
            push(@trusted_proxies,$mask);
(-)a/opac/ilsdi.pl (-1 / +1 lines)
Lines 168-173 my @AuthorizedIPs = split( /,/, C4::Context->preference('ILS-DI:AuthorizedIPs') Link Here
168
if (@AuthorizedIPs) {    # If no filter set, allow access to everybody
168
if (@AuthorizedIPs) {    # If no filter set, allow access to everybody
169
    my $authorized = 0;
169
    my $authorized = 0;
170
    foreach my $ip (@AuthorizedIPs) {
170
    foreach my $ip (@AuthorizedIPs) {
171
        local $Net::Netmask::SHORTNET_DEFAULT = 1;
171
        my $netmask = Net::Netmask->new2($ip);
172
        my $netmask = Net::Netmask->new2($ip);
172
        if ( $netmask && $netmask->match( $ENV{REMOTE_ADDR} ) ) {
173
        if ( $netmask && $netmask->match( $ENV{REMOTE_ADDR} ) ) {
173
            $authorized = 1;
174
            $authorized = 1;
174
- 

Return to bug 28200