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