Changeset 18 for trunk


Ignore:
Timestamp:
03/04/10 17:10:13 (15 years ago)
Author:
Kris Deugau
Message:

/trunk/dnsbl

Update extract-data based on live version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dnsbl/extract-data

    r16 r18  
    2626# hmm. can't make (enough) sense of the docs.  gonna have to parse headers for IPs myself...  :/
    2727# but we did find enough to extract the URIs...
    28 use lib '/opt/spamassassin/share/perl/5.8.8';
     28use lib '/opt/spamassassin/share/perl/5.10.0';
    2929use Mail::SpamAssassin;
    3030use Mail::SpamAssassin::PerMsgStatus;
     
    9090my @dontlistme = (
    9191    # Hotmail/Windows Live Mail
     92#IP-Network                    207.68.128.0/18
     93#IP-Network                    207.68.192.0/20
     94#IP-Network-Block              207.068.128.000 - 207.068.207.255
    9295        NetAddr::IP->new("65.52.0.0/14"),
     96        NetAddr::IP->new("207.68.176.96/27"),
    9397
    9498    # AOL - note only some IPs show mail-ish rDNS
    9599    #IP-Network                    205.188.0.0/16
    96100    #IP-Network                    64.12.0.0/16
    97         NetAddr::IP->new("205.188.105.140/29"),
     101        NetAddr::IP->new("205.188.91.96/29"),
     102        NetAddr::IP->new("205.188.105.143"),
     103        NetAddr::IP->new("205.188.105.144/30"),
    98104        NetAddr::IP->new("205.188.169.196/29"),
    99105        NetAddr::IP->new("205.188.249.128/29"),
    100106        NetAddr::IP->new("205.188.249.64/29"),
     107        NetAddr::IP->new("64.12.78.136/30"),
     108        NetAddr::IP->new("64.12.78.142"),
    101109        NetAddr::IP->new("64.12.143.144/30"),
     110        NetAddr::IP->new("64.12.143.152/30"),
     111        NetAddr::IP->new("64.12.206.40/30"),
    102112
    103113    # Google/GMail
    104114        NetAddr::IP->new("209.85.128.0/17"),
    105115        NetAddr::IP->new("72.14.192.0/18"),
     116        NetAddr::IP->new("74.125.0.0/16"),
    106117
    107118    # Yahoo!/Inktomi
     
    121132        NetAddr::IP->new("212.82.104.0/21"),
    122133        NetAddr::IP->new("66.163.160.0/19"),
     134#inetnum:        87.248.110.0 - 87.248.111.255
     135#route:          87.248.104.0/21
     136        NetAddr::IP->new("87.248.110.0/23"),
     137        NetAddr::IP->new("203.188.200.0/22"),
     138        NetAddr::IP->new("217.12.0.0/20"),
     139
     140    # MessageLabs - may add these to trusted_networks instead
     141        NetAddr::IP->new("85.158.139.0/24"),
    123142
    124143    # Bell Canada - note only some IPs show mail-ish rDNS
     
    152171        NetAddr::IP->new("216.221.81.96/30"),
    153172
     173    # seznam.cz
     174    #route:          77.75.72.0/23
     175        NetAddr::IP->new("77.75.72.44"),
     176
     177    # Facebook - only exclude mail-ish hostnames
     178    #IP-Network                    69.63.176.0/20
     179        # .178.160/27 plus a few more to 199 show mailish rDNS
     180        NetAddr::IP->new("69.63.178.160/27"),
     181        NetAddr::IP->new("69.63.178.192/29"),
     182
     183    # T-Online - only mail-ish hostnames
     184#route:        194.25.0.0/16
     185#inetnum:      194.25.134.0 - 194.25.134.255
     186#netname:      DTOS-ULM-001
     187#descr:        www.t-online.de
     188#descr:        mail.t-online.de
     189#descr:        php.t-online.de
     190        NetAddr::IP->new("194.25.134.80/29"),
     191
     192## Edumactional places
     193
    154194    # UAlberta - only one IP observed with mail-ish rDNS
    155195    #IP-Network                    129.128.0.0/16
    156196        NetAddr::IP->new("129.128.5.19"),
    157197
    158     # seznam.cz
    159     #route:          77.75.72.0/23
    160         NetAddr::IP->new("77.75.72.44"),
     198    # University of Maryland Baltimore County - mail servers only
     199    #CIDR:       130.85.0.0/16
     200        NetAddr::IP->new("130.85.25.76/30"),
     201
     202    # University of Florida
     203    #IP-Network                    128.227.0.0/16
     204        NetAddr::IP->new("128.227.74.165"),
    161205
    162206    ); # done def for @dontlistme
Note: See TracChangeset for help on using the changeset viewer.