1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
#!/usr/bin/perl -T
use lib '.'; use lib 't';
use SATest; sa_t_init("urilocalbl");
my $tests = 0;
eval { require MaxMind::DB::Reader; $tests += 8; $has{GEOIP2} = 1 };
eval { require IP::Geolocation::MMDB; $tests += 8; $has{IPMMDB} = 1 };
eval { require Geo::IP; $tests += 8; $has{GEOIP} = 1 };
eval {
require IP::Country::DB_File;
IP::Country::DB_File->new('data/geodb/ipcc.db');
$tests += 8;
$has{DB_FILE} = 1;
};
eval { require IP::Country::Fast; $tests += 8; $has{FAST} = 1 };
use Test::More;
plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');
plan skip_all => "No supported GeoDB module installed" unless $tests;
$net = conf_bool('run_net_tests');
$ipv6 = $net && conf_bool('run_ipv6_dns_tests');
$tests *= 2 if $net;
$tests += 1 if $ipv6 && defined $has{GEOIP2};
$tests += 1 if $ipv6 && defined $has{IPMMDB};
$tests += 1 if $ipv6 && defined $has{DB_FILE};
plan tests => $tests;
# ---------------------------------------------------------------------------
tstpre ("
loadplugin Mail::SpamAssassin::Plugin::URILocalBL
");
%patterns_ipv4 = (
q{ X_URIBL_USA } => 'USA',
q{ X_URIBL_FINEG } => 'except Finland',
q{ X_URIBL_NA } => 'north America',
q{ X_URIBL_EUNEG } => 'except Europe',
q{ X_URIBL_CIDR1 } => 'our TestIP1',
q{ X_URIBL_CIDR2 } => 'our TestIP2',
q{ X_URIBL_CIDR3 } => 'our TestIP3',
);
%patterns_ipv6 = (
q{ X_URIBL_CIDR4 } => 'our TestIP4',
);
my $rules = "
dns_query_restriction allow google.com
uri_block_cc X_URIBL_USA us
describe X_URIBL_USA uri located in USA
uri_block_cc X_URIBL_FINEG !fi
describe X_URIBL_FINEG uri located anywhere except Finland
uri_block_cont X_URIBL_NA na
describe X_URIBL_NA uri located in north America
uri_block_cont X_URIBL_EUNEG !eu !af
describe X_URIBL_EUNEG uri located anywhere except Europe/Africa
uri_block_cidr X_URIBL_CIDR1 8.0.0.0/8 1.2.3.4
describe X_URIBL_CIDR1 uri is our TestIP1
uri_block_cidr X_URIBL_CIDR2 8.8.8.8
describe X_URIBL_CIDR2 uri is our TestIP2
uri_block_cidr X_URIBL_CIDR3 8.8.8.0/24
describe X_URIBL_CIDR3 uri is our TestIP3
";
my $rules_ipv6 = "
uri_block_cidr X_URIBL_CIDR4 2001:4860:4860::8888
describe X_URIBL_CIDR4 uri is our TestIP4
";
my @geoip2_readers = (
['GEOIP2', 'MaxMind::DB::Reader', 'GeoIP2'],
['IPMMDB', 'IP::Geolocation::MMDB', 'IP::Geolocation::MMDB'],
);
for my $reader (@geoip2_readers) {
my ($geoip2, $reader_class, $geodb_module) = @{$reader};
if (defined $has{$geoip2}) {
my $lrules = "
geodb_module $geodb_module
geodb_search_path data/geodb
$rules
";
tstlocalrules ($lrules);
%patterns = %patterns_ipv4;
ok sarun ("-L -t < data/spam/relayUS.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
if ($net) {
$lrules .= $rules_ipv6 if $ipv6;
tstlocalrules ($lrules);
if ($ipv6) {
%patterns = (%patterns_ipv4, %patterns_ipv6);
} else {
%patterns = %patterns_ipv4;
warn "skipping IPv6 DNS lookup tests (run_ipv6_dns_tests=n)\n";
}
ok sarun ("-t < data/spam/urilocalbl_net.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
} else {
warn "skipping DNS lookup tests (run_net_tests=n)\n";
}
} else {
warn "skipping $reader_class (GeoIP2) tests (not installed)\n";
}
}
if (defined $has{GEOIP}) {
tstlocalrules ("
geodb_module Geo::IP
geodb_search_path data/geodb
$rules
");
%patterns = %patterns_ipv4;
ok sarun ("-L -t < data/spam/relayUS.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
if ($net) {
ok sarun ("-t < data/spam/urilocalbl_net.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
} else {
warn "skipping DNS lookup tests (run_net_tests=n)\n";
}
} else {
warn "skipping Geo::IP tests (not installed)\n";
}
if (defined $has{DB_FILE}) {
my $lrules = "
geodb_module DB_File
geodb_options country:data/geodb/ipcc.db
$rules
";
tstlocalrules ($lrules);
%patterns = %patterns_ipv4;
ok sarun ("-L -t < data/spam/relayUS.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
if ($net) {
$lrules .= $rules_ipv6 if $ipv6;
tstlocalrules ($lrules);
if ($ipv6) {
%patterns = (%patterns_ipv4, %patterns_ipv6);
} else {
%patterns = %patterns_ipv4;
warn "skipping IPv6 DNS lookup tests (run_ipv6_dns_tests=n)\n";
}
ok sarun ("-t < data/spam/urilocalbl_net.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
} else {
warn "skipping DNS lookup tests (run_net_tests=n)\n";
}
} else {
warn "skipping IP::Country::DB_File tests (not installed or ipcc.db file format not compatible)\n";
}
if (defined $has{FAST}) {
tstlocalrules ("
geodb_module Fast
$rules
");
%patterns = %patterns_ipv4;
ok sarun ("-L -t < data/spam/relayUS.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
if ($net) {
ok sarun ("-t < data/spam/urilocalbl_net.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
} else {
warn "skipping DNS lookup tests (run_net_tests=n)\n";
}
} else {
warn "skipping IP::Country::Fast tests (not installed)\n";
}
|
