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

(-)a/opac/ilsdi.pl (-2 / +14 lines)
Lines 173-181 if (@AuthorizedIPs) { # If no filter set, allow access to everybody Link Here
173
        }
173
        }
174
    }
174
    }
175
    unless ($authorized) {
175
    unless ($authorized) {
176
        $out->{'code'} = "NotAllowed";
176
        $out->{'code'}    = "NotAllowed";
177
        $out->{'message'} = "Unauthorized IP address: $ENV{REMOTE_ADDR}.";
177
        $out->{'message'} = "Unauthorized IP address: $ENV{REMOTE_ADDR}.";
178
    }
178
    }
179
} else {
180
    $out->{'code'}    = "NotAllowed";
181
    $out->{'message'} = "Unauthorized IP address: $ENV{REMOTE_ADDR}.";
182
183
    print XMLout(
184
        $out,
185
        noattr        => 1,
186
        nosort        => 1,
187
        xmldecl       => '<?xml version="1.0" encoding="UTF-8" ?>',
188
        RootName      => "ilsdi",
189
        SuppressEmpty => 1
190
    );
191
    exit 0;
179
}
192
}
180
193
181
my $service = $cgi->param('service') || "ilsdi";
194
my $service = $cgi->param('service') || "ilsdi";
182
- 

Return to bug 36867