| … | |
… | |
| 49 | $country = uc $1; |
49 | $country = uc $1; |
| 50 | } else { |
50 | } else { |
| 51 | $self->slog(9, "no country($whois)"); |
51 | $self->slog(9, "no country($whois)"); |
| 52 | } |
52 | } |
| 53 | |
53 | |
|
|
54 | $self->{country} = $country; |
|
|
55 | |
| 54 | if ($disallow{$country}) { |
56 | if ($disallow{$country}) { |
| 55 | $self->slog(6, "DISALLOW($uri,$country)"); |
57 | $self->slog(6, "DISALLOW($uri,$country)"); |
|
|
58 | |
|
|
59 | Coro::Event::do_timer(after => 5); |
|
|
60 | |
| 56 | $whois =~ s/&/&/g; |
61 | $whois =~ s/&/&/g; |
| 57 | $whois =~ s/</</g; |
62 | $whois =~ s/</</g; |
| 58 | $self->err(403, "forbidden", { "Content-Type" => "text/html" }, <<EOF); |
63 | $self->err(403, "forbidden", { "Content-Type" => "text/html" }, <<EOF); |
| 59 | <html> |
64 | <html> |
| 60 | <head> |
65 | <head> |
