summaryrefslogtreecommitdiffstats
path: root/exim.txr
blob: 77875bdac74eac31efac8cd5092a80590deb5eed (plain)
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
@(load "txrban")
@(next @(open-tail "/var/log/exim4/rejectlog" "r" nil))
@(repeat)
@  (block continue)
@    (all)
@(n year)-@(n month)-@(n day) @(n hour):@(n min):@(n sec) @(skip)
@    (and)
@      (cases)
@nil @nil H=@host [@ip] F=<@sender@@@domain> rejected RCPT <@recip@@@rdomain>: @rejreason
@        (next :string rejreason)
@        (cases)
@(skip)(@ip) is listed@(skip)
@          (bind points 0)
@        (or)
host lookup failed@(skip)
@          (bind points 10)
@        (or)
@          (bind points 6)
@        (end)
@      (or)
@nil @nil SMTP protocol synchronization error @(skip)[@ip]:@(skip)
@        (bind points 10)
@      (or)
@nil @nil SMTP call from (@nil) [@ip] dropped: @(skip)
@        (bind points 10)
@      (or)
@nil @nil cram_md5_server authenticator failed for @(skip)(@nil) [@ip]:@(skip)
@        (bind points 10)
@      (or)
@        (accept continue)
@      (end)
@      (do
         (let ((time (make-time year month day hour min sec :auto)))
           (report ip time points)))
@    (end)
@  (end)
@(end)