Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-var-src / 0114.filter
1 # Exim filter
2
3 if $local_part is null then
4   save /dev/null
5 elif $local_part is file then
6   save DIR/test-mail/file
7 elif $local_part is pipe then
8   pipe "/bin/sh -c \"cat >DIR/test-mail/pipe\""
9 elif $local_part is reply then
10   seen mail 
11     to "A. File <file>, No One <null>"
12     subject autoreply
13     text "Test Text"
14     once DIR/test-once
15 endif