ignore a few ips (probably blars)

[debbugs.git] / cgi / bugreport.cgi

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index da790227c4be8266b88ead452442b958fe1086ac..26324c3e29c37adafd6dfc3d4e295851c701a3a4 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -32,6 +32,14 @@ use Debbugs::Text qw(:templates);
 use URI::Escape qw(uri_escape_utf8);
 use List::AllUtils qw(max);
 
+if (defined $ENV{REMOTE_ADDR} and $ENV{REMOTE_ADDR} =~ /(?:218\.175\.56\.14|64\.126\
+.93\.93|72\.17\.168\.57|208\.138\.29\.104|66\.63\.250\.28)/) {
+    print "Content-Type: text/html\n\nGo away.";
+    sleep(5);
+    exit 0;
+}
+
+
 
 use CGI::Simple;
 my $q = new CGI::Simple;