-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;