From: Debian BTS <debbugs@spohr>
Date: Tue, 12 Sep 2006 09:12:22 +0000 (-0700)
Subject: ignore a few ips (probably blars)
X-Git-Url: https://git.donarmstrong.com/debbugs.git/?a=commitdiff_plain;h=c6d464bdc8e11b42f4a1b629eaf9771d688f15ce;p=debbugs.git

ignore a few ips (probably blars)
---

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index da79022..26324c3 100755
--- 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;
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index abf739d..3ce4332 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -56,6 +56,14 @@ my $default_params = {ordering => 'normal',
 		      exclude      => [],
 		     };
 
+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)/) {
+    sleep(5);
+    print "Content-Type: text/html\n\nGo away.";
+    exit 0;
+}
+
+
 our %param = cgi_parameters(query => $q,
 			    single => [qw(ordering archive repeatmerged),
 				       qw(bug-rev pend-rev sev-rev),