X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=2cbdee688139498d087762a3e62d9d45c339dccd;hb=ceb2daf21a03249decadc86f4b90711fe8a53b0e;hp=9e5976ee92686250a80f53dba340a14380c57101;hpb=400227d4bd709387099bf224b1c00a6f988c8196;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 9e5976ee..2cbdee68 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -301,13 +301,20 @@ sub new_channel
 		}
 
 		# now deal with the lock
+		my $host = $conn->peerhost;
 		if ($lock) {
-			my $host = $conn->peerhost;
 			LogDbg('', "$call on $host is locked out, disconnected");
 			$conn->disconnect;
 			return;
 		}
 
+		# Is he from a badip?
+		if (DXCIDR::find($host)) {
+			LogDbg('', "$call on $host is from a badip $host, disconnected");
+			$conn->disconnect;
+			return;
+		}
+
 		# set up the basic channel info for "Normal" Users
 		# is there one already connected to me - locally?