staging commt for badword and badip

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index efc6c159abd5414d5c3aff2b67abe3195a634870..8a35bbbf137c47369637619354823928618a9637 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -201,7 +201,8 @@ sub handle_11
                $ip =~ s/,/:/g;
                $ip =~ s/^::ffff://;
                if (DXCIDR::find($ip)) {
-                       
+                       dbg("DXProt: Spot ignore $pc->[8] in badip list") if dbg('badip');
+                       return;
                }
        }