Changeset 4


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/dnsbl/DNSBL.pm

    r3 r4  
    320320  }
    321321
    322   if ($mode eq 'cidr' || $mode eq 'rbldnsd') {
     322  if ($mode eq 'cidr') {
    323323    $listhosts->{$container} |= $pdata if $pdata && ($ooborg || $oobblock || ($mycount >= $autolist{$masklen}));
    324324  } else {
  • trunk/dnsbl/export-dnsbl

    r3 r4  
    3535        ($iplist{$_} & 2 ? '$ relayed a reported spam' : 'Netblock listed on one or more criteria')."\n";
    3636  }
    37 } elsif ($mode eq 'rbldnsd') {
    38   # need extra cmd args
    39   die "need subgroup spec (iplist, cidrlist) as well\n" if !$ARGV[1];
    40   if ($ARGV[1] eq 'iplist') {
    41     foreach (sort ipcmp keys %iplist) {
    42       print "$_:127.0.0.$iplist{$_}:\$ relayed a reported spam\n" if $iplist{$_} & 2;
    43     }
    44   } elsif ($ARGV[1] eq 'cidrlist') {
    45     foreach (sort ipcmp keys %iplist) {
    46       print "$_:127.0.0.$iplist{$_}:Netblock listed on one or more criteria\n" if ! ($iplist{$_} & 2);
    47     }
    48   }
    49   # no output if second arg is unknown.
    5037} else {
    5138  foreach (sort ipcmp keys %iplist) {
Note: See TracChangeset for help on using the changeset viewer.