Changeset 24

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

Location:

trunk/dnsbl

Files:

• DNSBL.pm (modified) (2 diffs)
• dnsbl.cgi (modified) (1 diff)

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;
 }

trunk/dnsbl/dnsbl.cgi

@@ -22 +22 @@
 my $dnsbl = new DNSBL;
 
+print "Content-type: text/html\n\n";
+
 my $dbh = $dnsbl->connect;
-
-print "Content-type: text/html\n\n";
 
 my $page;