Changeset 6

Timestamp:

09/10/09 17:57:16 (15 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Tweak and polish a few docu-comments

File:

• trunk/dnsbl/export-dnsbl (modified) (2 diffs)

trunk/dnsbl/export-dnsbl

@@ -30 +30 @@
 ##fixme - mode should pick actual output, not just export mode
 if ($mode eq 'cidr') {
-  # more or less raw CIDR block-and-IP info
+  # more or less raw CIDR block-and-IP info.  rbldnsd format for convenience.
   foreach (sort ipcmp keys %iplist) {
     print "$_:127.0.0.$iplist{$_}:".
@@ -37 +37 @@
 } else {
   foreach (sort ipcmp keys %iplist) {
-#foreach (sort keys %iplist) {
     my ($o1,$o2,$o3,$o4) = (/^(\d+)\.([\d*]+)(?:\.([\d*]+)(?:\.([\d*]+))?)?$/);
     print "+".(defined($o4) ? "$o4." : '').(defined($o3) ? "$o3." : '').(defined($o2) ? "$o2." : '').