Changeset 48

Timestamp:

12/09/14 16:29:34 (10 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Add hard maximum depth check based on the number of available bits
in the result.

File:

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

trunk/dnsbl/DNSBL.pm

@@ -103 +103 @@
 our @howmany = (1,128,64,32,16,8,4,2,1,128,64,32,16,8,4,2,1,128,64,32,16,8,4,2,1,128,64,32,16,8,4,2);
 
+# hard max depth.  There are not enough bits in a 32-bit IP in 127/8 for more than 7 sets of 3 block-level
+# flags, plus one for the IP, plus one for an "alternate" IP flag, plus reserving the least significant bit
+# as a "don't use this because Reasons"
+our $maxlvl = 6;
+
 # variables
 our $dbh;
@@ -361 +366 @@
 # whee! Recursion is Fun!
 # Call ourself to dig down through the layers of blocks from registar-allocation
-# (level 0) to final block (level n, not to exceed 2)
+# (level 0) to final block (level n, not to exceed $maxlvl)
 # Take a reference to a hash, and stuff it full of blacklisting goodness.
 # Optionally accept a level, block-container, and OOB block and org arguments for
@@ -380 +385 @@
   my $bitmask = shift || 0;
 
-  if ($level > 3) {
+  if ($level > $maxlvl) {
     warn "getting too deep, breaking off! ($container, $level)\n";
     return;