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

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

Return to bug 36867