Changeset 24 for trunk/dnsbl/DNSBL.pm

Timestamp:

09/02/10 17:52:48 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Add code to override autolist thresholds from database table

File:

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

trunk/dnsbl/DNSBL.pm

@@ -44 +44 @@
 # probably needs some tuning;  even 7 hits in a /24 is a pretty small percentage
 # number of IPs in a block of the given masklength needed to have that block automatically listed
+# defaults: (overridden by entries in db:autolist)
 our %autolist = (
         31 => 1,
@@ -121 +122 @@
         })
         or die "database inaccessible: ".$DBI::errstr;
+  my $sth = $dbh->prepare("SELECT masklen,ipcount FROM autolist");
+  $sth->execute;
+  while (my ($masklen,$ipcount) = $sth->fetchrow_array) {
+    $autolist{$masklen} = $ipcount;
+  }
   return $dbh;
 }