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