X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fbadip.pl;h=b53763569127f2505be6d73f3afcb3ac27ca8a13;hb=3f1464a293cbdbe1ee1f6a41fabaec1e6a6a7119;hp=962fc641435cc65178169fa864ab11ea12ea5ee5;hpb=3b87cb901b1aa6604814d3f585561a404603f43f;p=spider.git

diff --git a/cmd/set/badip.pl b/cmd/set/badip.pl
index 962fc641..b5376356 100644
--- a/cmd/set/badip.pl
+++ b/cmd/set/badip.pl
@@ -13,12 +13,20 @@ my @out;
 my @added;
 my @in = split /\s+/, $line;
 return (1, "set/badip: need IP, IP-IP or IP/24") unless @in;
-for (@in) {
-	eval{ DXCIDR::add($_); };
-	return (1, "set/badip: $_ $@") if $@;
-	push @added, $_; 
+for my $ip (@in) {
+	my $r;
+	eval{ $r = DXCIDR::find($ip); };
+	return (1, "set/badip: $ip $@") if $@;
+	if ($r) {
+		push @out, "set/badip: $ip exists, not added";
+		next;
+	}
+	DXCIDR::add($ip);
+	push @added, $ip;
 }
 my $count = @added;
 my $list = join ' ', @in;
-push @out, "set/badip: added $count entries: $list";
+DXCIDR::clean_prep();
+DXCIDR::save();
+push @out, "set/badip: added $count entries: $list" if $count;
 return (1, @out);