Changeset 69 for trunk/dnsbl/DNSBL.pm

Timestamp:

07/19/18 17:03:38 (6 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

• Accumulated fixes and tweaks from production
• Add FindBin to a couple of scripts to make them more portable; they no longer need to be run from the directory they're in, or have system-specific paths hardcoded in either "use lib" or a -I argument

File:

• trunk/dnsbl/DNSBL.pm (modified) (2 diffs)

trunk/dnsbl/DNSBL.pm

@@ -184 +184 @@
         "WHERE b.block >>= ? ".
         "GROUP BY b.block,b.level,b.listme,o.listme ORDER BY b.block");
-  $sthmoron = $dbh->prepare("SELECT ip,s4list,white FROM iplist WHERE parent = ?");
+  $sthmoron = $dbh->prepare("SELECT ip,s4list,exclude FROM iplist WHERE parent = ?");
 }
 
@@ -217 +217 @@
         $sth = $dbh->prepare("INSERT INTO iplist (ip,parent,exclude) VALUES ".
                 "(?,(SELECT block FROM blocks WHERE block >> ? ORDER BY level DESC LIMIT 1),?)");
-        $sth->execute($rep,$rep,$exclude) or die "couldn't add entry for $rep: ".$dbh->errstr."\n";
+        $sth->execute($rep,$rep,($exclude ? 'y' : 'n')) or die "couldn't add entry for $rep: ".$dbh->errstr."\n";
       } elsif ($rows == 1) {
         $sth = $dbh->prepare("UPDATE iplist SET count=count+1,".