Testsuite: account for (now) properly working Perl locale
[users/jgh/exim.git] / test / aux-fixed / event-logger-acl
1 ev_tcp:
2     accept condition = ${if eq {$event_name}{tcp:connect}}
3            logwrite = . [$host_address]:$host_port
4     accept condition = ${if eq {$event_name}{tcp:close}}
5            logwrite = . [$sending_ip_address] -> \
6                         [$host_address]:$host_port
7     accept
8
9 ev_smtp:
10     accept
11            logwrite = . [$sending_ip_address] -> \
12                         [$host_address]:$host_port
13            logwrite = . banner <$event_data>
14
15 ev_msg_fail:
16     accept condition = ${if eq {$event_name}{msg:fail:delivery}}
17            logwrite = . \
18             refused by fdqn <$host> \
19             local_part <$local_part> \
20             domain <$domain> \
21             errstr <$event_data> \
22
23     accept logwrite = . \
24             local_part <$local_part> \
25             domain <$domain> \
26             reason <$event_data>
27
28 ev_msg_log:
29     accept logwrite = . \
30             $acl_arg1 \
31             ip <$host_address> \
32             port <$host_port> \
33             fqdn <$host> \
34             local_part <$local_part> \
35             domain <$domain> \
36             $acl_arg2 \
37             router <$router_name> \
38             transport <$transport_name>
39
40 ev_msg:
41     accept condition = ${if eq {fail} {${listextract{2}{$event_name}}}}
42            acl = ev_msg_fail
43
44     accept condition = ${if eq {$event_name}{msg:complete}}
45            logwrite = . finished: $message_exim_id
46
47     accept condition = ${if eq {$domain}{expansionfail}}
48            logwrite = $this_expansion_will_fail
49
50     accept condition = ${if eq {$event_name}{msg:delivery}}
51            acl = ev_msg_log delivery "confirmation <$event_data>"
52
53     accept condition = ${if eq {$event_name}{msg:host:defer}}
54            acl = ev_msg_log "host deferral" \
55                         "errno <$event_defer_errno> errstr <$event_data>"
56
57     accept condition = ${if eq {$event_name}{msg:rcpt:defer}}
58            set acl_m_ev_lkup =  ${eval:$event_defer_errno & 0xff}
59            set acl_m_ev_lkup =  ${if = {$acl_m_ev_lkup}{65} {A} \
60                                 { ${if = {$acl_m_ev_lkup}{77} {MX} \
61                                   {$acl_m_ev_lkup}}}}
62            set acl_m_ev_code =  4${eval:$event_defer_errno >>8}
63            acl = ev_msg_log "rcpt deferral" \
64                         "err <$event_defer_errno>:<$acl_m_ev_lkup:$acl_m_ev_code> \
65                         errstr <$event_data>"
66
67 logger:
68     warn   logwrite = event $event_name
69     accept condition = ${if eq {tcp} {${listextract{1}{$event_name}}}}
70            acl = ev_tcp
71     accept condition = ${if eq {smtp} {${listextract{1}{$event_name}}}}
72            acl = ev_smtp
73     accept condition = ${if eq {msg} {${listextract{1}{$event_name}}}}
74            acl = ev_msg