Changeset 4

Timestamp:

09/09/09 15:19:09 (15 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Remove rbldnsd-specific mode for export-dnsbl and export()

Location:

trunk/dnsbl

Files:

• DNSBL.pm (modified) (1 diff)
• export-dnsbl (modified) (1 diff)

trunk/dnsbl/DNSBL.pm

@@ -320 +320 @@
   }
 
-  if ($mode eq 'cidr' || $mode eq 'rbldnsd') {
+  if ($mode eq 'cidr') {
     $listhosts->{$container} |= $pdata if $pdata && ($ooborg || $oobblock || ($mycount >= $autolist{$masklen}));
   } else {

trunk/dnsbl/export-dnsbl

@@ -35 +35 @@
         ($iplist{$_} & 2 ? '$ relayed a reported spam' : 'Netblock listed on one or more criteria')."\n";
   }
-} elsif ($mode eq 'rbldnsd') {
-  # need extra cmd args
-  die "need subgroup spec (iplist, cidrlist) as well\n" if !$ARGV[1];
-  if ($ARGV[1] eq 'iplist') {
-    foreach (sort ipcmp keys %iplist) {
-      print "$_:127.0.0.$iplist{$_}:\$ relayed a reported spam\n" if $iplist{$_} & 2;
-    }
-  } elsif ($ARGV[1] eq 'cidrlist') {
-    foreach (sort ipcmp keys %iplist) {
-      print "$_:127.0.0.$iplist{$_}:Netblock listed on one or more criteria\n" if ! ($iplist{$_} & 2);
-    }
-  }
-  # no output if second arg is unknown.
 } else {
   foreach (sort ipcmp keys %iplist) {