Changeset 16 for trunk/dnsbl/extract-data

Timestamp:

01/20/10 17:35:34 (15 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Changes from live copy of extract-data

• new IP blocks to ignore for listing
• spit out refs for messages already tagged as spam so they can be manually handled; SA libs don't strip SA wrapper message when used this way

File:

• trunk/dnsbl/extract-data (modified) (4 diffs)

trunk/dnsbl/extract-data

@@ -99 +99 @@
         NetAddr::IP->new("205.188.249.128/29"),
         NetAddr::IP->new("205.188.249.64/29"),
+        NetAddr::IP->new("64.12.143.144/30"),
 
     # Google/GMail
@@ -141 +142 @@
         NetAddr::IP->new("212.183.156.224/29"),
 
-    # Eastlink (formerly Persona [Sudbury etc]) - only one IP observed with mail-ish rDNS
+    # Eastlink (formerly Persona [Sudbury etc]) - only a few IPs observed with mail-ish rDNS
     #IP-Network                    24.222.0.0/16
         NetAddr::IP->new("24.222.0.30"),
+        NetAddr::IP->new("24.224.136.8/30"),
 
     # Cogeco - only a few IPs observed with mail-ish rDNS
@@ -153 +155 @@
     #IP-Network                    129.128.0.0/16
         NetAddr::IP->new("129.128.5.19"),
+
+    # seznam.cz
+    #route:          77.75.72.0/23
+        NetAddr::IP->new("77.75.72.44"),
+
     ); # done def for @dontlistme
 
@@ -204 +211 @@
 
   my $relayip = new NetAddr::IP $untrusted[0]->{ip};
+
+# sigh.  messages tagged as spam already make life difficult by hiding the
+# old Received: headers.  We'll just handle them manually for now.
+  if (!$relayip) {
+    print "phtui: ";
+    my %headerlist = %{$imap->parse_headers($msgs[$i], "Received", "Subject")};
+    my $recvnum = 0;
+    my $recv = $headerlist{'Received'}[$recvnum];
+    print "$recv\n";
+    print "   $headerlist{'Subject'}[0]\n";
+    next MSG;
+  }
 
   foreach my $block (@dontlistme) {