Testsuite: perl syntax (l-brace in RE)
[users/jgh/exim.git] / test / aux-var-src / 0177.filter
1 # Exim Filter
2
3 # Test per-user filter with privilege
4
5 logfile DIR/test-stderr
6
7 if first_delivery then
8   logwrite "$message_id \"$h_subject:\" first delivery\n"
9 else   
10   logwrite "$message_id \"$h_subject:\" not first delivery\n"
11 endif
12
13 if error_message or $local_part is usery then finish endif
14
15 if $h_subject IS NOT "Fail This" then
16   logwrite "$message_id subject is not \"Fail This\""
17 endif   
18
19 if $h_subject contains "fail this" then 
20   mail to usery text "failing $local_part@$domain" 
21     subject "auto fail message" 
22   fail text "subject was \"$h_subject:\" (filter fail)"
23 endif   
24
25 if $h_subject contains "freeze this" then 
26   mail to usery text "freezing $local_part@$domain"
27     subject "auto freeze message" 
28   freeze "subject was \"$h_subject:\""
29 else   
30
31 if $h_subject matches ^reply then
32   mail to usery
33   subject "An auto reply: qualify_domain=$qualify_domain"
34   text "This is a text line"
35 endif
36 endif