X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=9e710c11be504569227bc811c159188bf74edfa0;hp=5ea58ea192931f2d5dbf9f42562002819460a6fd;hb=f63d598af3f797b56b8d5e23ec4ff5254192eee9;hpb=66a5726687662b1a4726ac1de972340ac856ef7a

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 5ea58ea1..9e710c11 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -39,6 +39,7 @@ use DB_File;
 use VE7CC;
 use DXXml;
 use AsyncMsg;
+use DXCIDR;
 
 use strict;
 use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase %nothereslug
@@ -194,6 +195,11 @@ sub start
 	
 	$self->tell_login('loginu');
 	$self->tell_buddies('loginb');
+
+	# is this a bad ip address?
+	if (is_ipaddr($self->{hostname})) {
+		$self->{badip} = DXCIDR->find($self->{hostname});
+	}
 	
 	# do we need to send a forward/opernam?
 	my $lastoper = $user->lastoper || 0;