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 22967cd71d82e73e3ffb6cb745d7bff81ee17d8c..bb0e55f8f0309b235542e7ef9eda6488aa47bc8a 100644 (file)
--- 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";