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 |
- |
|
|