]>
git.proxmox.com Git - pmg-api.git/blob - tests/test_greylist.pl
16 my $greylist_delay = 3*60;
17 my $greylist_lifetime = 3600*24*2; #retry window
18 my $greylist_awlifetime = 3600*24*36;
22 system("systemctl stop pmgpolicy");
24 my $pidfile = "/var/run/pmgpolicy.pid";
26 system("kill `cat $pidfile`") if -f
$pidfile;
28 system ("perl -I.. ../bin/pmgpolicy -d Proxmox_testdb -t");
31 my $dbh = PMG
::DBTools
::open_ruledb
("Proxmox_testdb");
32 $dbh->do ("DELETE FROM CGreylist");
38 my $sock = IO
::Socket
::INET-
>new(
39 PeerAddr
=> '127.0.0.1',
41 die "unable to open socket - $!";
46 my $starttime = $testtime;
51 my ($data, $ttime, $eres) = @_;
55 print $sock "testtime=$ttime\ninstance=$icount\n$data\n";
59 my $timediff = $ttime - $starttime;
60 die "unectpexted result at time $timediff: $res != $eres\n$data" if !($res =~ m/^action=$eres(\s.*)?/);
66 request=smtpd_access_policy
69 client_address=1.2.3.4
70 client_name=test.domain.tld
71 helo_name=test.domain.tld
72 sender=test1\@test.domain.tld
73 recipient=test1\@proxmox.com
78 gltest
($data, $testtime, 'defer');
79 gltest
($data, $testtime+$greylist_delay-3, 'defer');
80 gltest
($data, $testtime+$greylist_delay-1, 'defer');
81 gltest
($data, $testtime+$greylist_lifetime-1, 'dunno');
82 gltest
($data, $testtime+$greylist_lifetime-1+$greylist_awlifetime-1, 'dunno');
83 gltest
($data, $testtime+$greylist_lifetime-1+$greylist_awlifetime-1+$greylist_awlifetime, 'defer');
87 gltest
($data, $testtime, 'defer');
88 gltest
($data, $testtime+$greylist_delay-3, 'defer');
89 gltest
($data, $testtime+$greylist_delay-1, 'defer');
90 gltest
($data, $testtime+$greylist_lifetime+1, 'defer');
91 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay-1, 'defer');
92 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay+1, 'dunno');
93 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay+1+$greylist_awlifetime-1, 'dunno');
94 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay+1+$greylist_awlifetime-1+$greylist_awlifetime, 'defer');
96 # a record with sender = <> (bounce)
99 request=smtpd_access_policy
102 client_address=1.2.3.4
103 client_name=test.domain.tld
104 helo_name=test.domain.tld
106 recipient=test1\@proxmox.com
112 gltest
($data, $testtime, 'defer');
113 gltest
($data, $testtime+$greylist_delay-3, 'defer');
114 gltest
($data, $testtime+$greylist_delay-1, 'defer');
115 gltest
($data, $testtime+$greylist_lifetime-1, 'dunno');
116 gltest
($data, $testtime+$greylist_lifetime+1, 'defer');
121 gltest
($data, $testtime, 'defer');
122 gltest
($data, $testtime+$greylist_delay-3, 'defer');
123 gltest
($data, $testtime+$greylist_delay-1, 'defer');
124 gltest
($data, $testtime+$greylist_lifetime+1, 'defer');
125 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay-1, 'defer');
126 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay+1, 'dunno');
127 gltest
($data, $testtime+$greylist_lifetime+1+$greylist_delay+2, 'defer');
130 my $testdomain = "interspar.at";
131 my $testipok = "68.232.133.35";
132 my $testipfail = "1.2.3.4";
134 my $data_ok = <<_EOD;
135 request=smtpd_access_policy
138 client_address=$testipok
139 helo_name=$testdomain
140 sender=xyz\@$testdomain
141 recipient=testspf\@maurer-it.com
144 gltest
($data_ok, $testtime, 'prepend'); # helo pass
147 request=smtpd_access_policy
150 client_address=$testipok
152 sender=xyz\@$testdomain
153 recipient=testspf\@proxmox.com
156 gltest
($data_ok, $testtime, 'prepend'); # mform pass
159 request=smtpd_access_policy
162 client_address=88.198.105.243
164 sender=xyz\@$testdomain
165 recipient=testspf\@maurer-it.com
168 # we currently hav no backup mx, so we cant test this
169 #gltest ($data_ok, $testtime, 'dunno'); # mail from backup mx
171 $testdomain = "openspf.org"; # rejects everything
173 my $data_fail = <<_EOD;
174 request=smtpd_access_policy
177 client_address=$testipfail
178 helo_name=$testdomain
179 sender=xyz\@$testdomain
180 recipient=testspf\@maurer-it.com
183 gltest
($data_fail, $testtime, 'reject');
185 system("kill `cat $pidfile`") if -f
$pidfile;
187 print "ALL TESTS OK\n";
189 system("systemctl start pmgpolicy");