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