Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-var-src / 0037.f-user
1 # Exim filter
2
3 if $local_part is filter-pipe then
4   pipe "cat"
5 elif $local_part is filter-file then
6   save /tmp/junk
7 elif $local_part is filter-lookup then
8   deliver ${lookup{$local_part}lsearch{/etc/passwd}{$value}fail}
9 elif $local_part is filter-exists then
10   deliver "${if exists{/tmp/junk}{abc}{def}}"
11 elif $local_part is filter-stat then
12   deliver "${if eq{${stat:/tmp/junk}}{}{abc}{def}}"
13 elif $local_part is filter-readfile then
14   deliver ${readfile{/some/file}}   
15 elif $local_part is filter-run then
16   deliver ${run{/some/script}}   
17 elif $local_part is filter-vacation then
18   seen vacation text "this is vacation text" 
19                 file /dev/null
20                 log  /dev/null
21                 once DIR/test-once
22 elif $local_part is filter-userx then
23   deliver userx                
24 elif $local_part is filter-resubject then
25   seen mail subject "Re: $h_subject:"
26 endif