Make it work with badip system active

[spider.git] / cmd / load / badip.pl

diff --git a/cmd/load/badip.pl b/cmd/load/badip.pl
index 3cf4212d6eb0935036f57801430020a096699770..bb0e55f8f0309b235542e7ef9eda6488aa47bc8a 100644 (file)
--- a/cmd/load/badip.pl
+++ b/cmd/load/badip.pl
@@ -8,6 +8,7 @@ my ($self, $line) = @_;
 return (1, $self->msg('e5')) if $self->remotecmd;
 # are we permitted?
 return (1, $self->msg('e5')) if $self->priv < 6;
+return (1, q{Please install Net::CIDR::Lite or libnet-cidr-lite-perl to use this command}) unless $DXCIDR::active;
 
 my @out;