Changeset 34

Timestamp:

03/30/11 12:54:44 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Tweak to allow indicating the block in the TXT record

File:

• trunk/dnsbl/export-dnsbl (modified) (1 diff)

trunk/dnsbl/export-dnsbl

@@ -60 +60 @@
   # more or less raw CIDR block-and-IP info.  rbldnsd format for convenience.
   foreach (sort ipcmp keys %iplist) {
-    print "$_:127.0.0.$iplist{$_}:".
-        ($iplist{$_} & 2 ? 
+    my $out = "$_:127.0.0.$iplist{$_}:".
+        ($iplist{$_} & 2 ?
                 ($config{iplisted} ? $config{iplisted} : '$ relayed a reported spam') :
                 ($config{blocklisted} ? $config{blocklisted} : 'Netblock listed on one or more criteria')
         )."\n";
+    $out =~ s/:ENTITY:/$_/;
+    print $out;
   }
 } else {