| … | |
… | |
| 50 | } else { |
50 | } else { |
| 51 | $self->slog(9, "no country($whois)"); |
51 | $self->slog(9, "no country($whois)"); |
| 52 | } |
52 | } |
| 53 | |
53 | |
| 54 | if ($disallow{$country}) { |
54 | if ($disallow{$country}) { |
|
|
55 | $self->slog(6, "DISALLOW($uri,$country)"); |
| 55 | $whois =~ s/&/&/g; |
56 | $whois =~ s/&/&/g; |
| 56 | $whois =~ s/</</g; |
57 | $whois =~ s/</</g; |
| 57 | $self->err(403, "forbidden", { "Content-Type" => "text/html" }, <<EOF); |
58 | $self->err(403, "forbidden", { "Content-Type" => "text/html" }, <<EOF); |
| 58 | <html> |
59 | <html> |
| 59 | <head> |
60 | <head> |
