X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fload%2Fbadip.pl;h=bb0e55f8f0309b235542e7ef9eda6488aa47bc8a;hb=9301268297f3d6a9a043ab27cb3247a16c7397ae;hp=22967cd71d82e73e3ffb6cb745d7bff81ee17d8c;hpb=3b87cb901b1aa6604814d3f585561a404603f43f;p=spider.git

diff --git a/cmd/load/badip.pl b/cmd/load/badip.pl
index 22967cd7..bb0e55f8 100644
--- a/cmd/load/badip.pl
+++ b/cmd/load/badip.pl
@@ -8,11 +8,12 @@ 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;
 
 my $count = 0;
-eval{ $count += DXCIDR::load(); };
+eval{ $count += DXCIDR::reload(); };
 return (1, "load/badip: $_ $@") if $@;
 
 push @out, "load/badip: added $count entries";