Changeset 53 for trunk

Timestamp:

12/09/14 17:19:35 (10 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Undo r44, since apparently I can't read simple Perl

File:

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

trunk/dnsbl/export-dnsbl

@@ -115 +115 @@
     my ($o1,$o2,$o3,$o4) = (/^(\d+)\.([\d*]+)(?:\.([\d*]+)(?:\.([\d*]+))?)?$/);
     print "+".(defined($o4) ? "$o4." : '').(defined($o3) ? "$o3." : '').(defined($o2) ? "$o2." : '').
-        "$o1.".($config{blzone} ? $config{blzone} : 'spamhosts.company.dnsbl').":127.0.0.$entry:").
+        "$o1.".($config{blzone} ? $config{blzone} : 'spamhosts.company.dnsbl').":127.0.0.$entry:".
         ($config{ttl} ? $config{ttl} : '900').":::\n";
   }