Changeset 50

Timestamp:

12/09/14 17:02:39 (9 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Extend the hash of bitmask constants for the additional levels of bitmasking

File:

• trunk/dnsbl/DNSBL.pm (modified) (1 diff)

trunk/dnsbl/DNSBL.pm

@@ -45 +45 @@
 # 1 not available so we don't $self->shoot(foot)
 our %bitfields = (
-    # block levels
+    # ip
+        ip => 2,
+    # "I'm a total spamming moron!" - per-IP only!
+        slist => 128,
+
+    # Block listings.  Ordering for levels 0, 1, 2 not ideal due to evolution of code.
+    # Levels 3 and higher are more coherently ordered
+
+    # Automatically listed blocks based on IP counts
         0 => 16,
         1 => 8,
         2 => 4,
-    # ip
-        ip => 2,
-    # OOB
-        org0 => 32,
-        block0 => 64,
-        org1 => 256,
-        org2 => 512,
-        block1 => 1024,
-        block2 => 2048,
-    # "I'm a total spamming moron!" - per-IP only!
-        slist => 128
+        3 => 4096,
+        4 => 32768,
+        5 => 262144,
+        6 => 2097152,
+
+    # Out-of-band
+        org0    => 32,
+        block0  => 64,
+        org1    => 256,
+        org2    => 512,
+        block1  => 1024,
+        block2  => 2048,
+        org3    => 8192,
+        block3  => 16384,
+        org4    => 65536,
+        block4  => 131072,
+        org5    => 524288,
+        block5  => 1048576,
+        org6    => 4194304,
+        block6  => 8388608,
+
 );