- Timestamp:
- 03/04/10 17:10:13 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dnsbl/extract-data
r16 r18 26 26 # hmm. can't make (enough) sense of the docs. gonna have to parse headers for IPs myself... :/ 27 27 # but we did find enough to extract the URIs... 28 use lib '/opt/spamassassin/share/perl/5. 8.8';28 use lib '/opt/spamassassin/share/perl/5.10.0'; 29 29 use Mail::SpamAssassin; 30 30 use Mail::SpamAssassin::PerMsgStatus; … … 90 90 my @dontlistme = ( 91 91 # 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 92 95 NetAddr::IP->new("65.52.0.0/14"), 96 NetAddr::IP->new("207.68.176.96/27"), 93 97 94 98 # AOL - note only some IPs show mail-ish rDNS 95 99 #IP-Network 205.188.0.0/16 96 100 #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"), 98 104 NetAddr::IP->new("205.188.169.196/29"), 99 105 NetAddr::IP->new("205.188.249.128/29"), 100 106 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"), 101 109 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"), 102 112 103 113 # Google/GMail 104 114 NetAddr::IP->new("209.85.128.0/17"), 105 115 NetAddr::IP->new("72.14.192.0/18"), 116 NetAddr::IP->new("74.125.0.0/16"), 106 117 107 118 # Yahoo!/Inktomi … … 121 132 NetAddr::IP->new("212.82.104.0/21"), 122 133 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"), 123 142 124 143 # Bell Canada - note only some IPs show mail-ish rDNS … … 152 171 NetAddr::IP->new("216.221.81.96/30"), 153 172 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 154 194 # UAlberta - only one IP observed with mail-ish rDNS 155 195 #IP-Network 129.128.0.0/16 156 196 NetAddr::IP->new("129.128.5.19"), 157 197 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"), 161 205 162 206 ); # done def for @dontlistme
Note:
See TracChangeset
for help on using the changeset viewer.