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