tidying
[users/jgh/exim.git] / test / scripts / 3000-Perl / 3000
1 # Embedded Perl
2 munge perl_variants
3 exim -be
4 ${perl{foo}}
5 ${perl{foo}{arg1}}
6 ${perl{foo_undef}}
7 ${perl{foo_die}}
8 ${perl{foo_warn}}
9 ${perl{unknown}}
10 ${perl{readvar}{primary_hostname}}
11 ${perl{readvar}{notexists}}
12
13 ${perl}
14 ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}}
15 ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}
16
17 ${perl{return_scalar}}
18 ${perl{return_list}}
19 ${perl{return_variable_vector}}
20 ${sg{${perl{return_hash}}}{\\d+}{X}}
21
22 $tod_full // ${perl{change_locale}} // $tod_full
23 ****
24 exim -d-all+expand -be
25 ${perl{foo}{arg1}}
26 ${perl{foo_undef}}
27 ${perl{debug_write}{debug from Perl\n}}
28 ${perl{log_write}{log from Perl}}
29 ****
30 exim -v -bs
31 ehlo x.y.z
32 mail from:<>
33 rcpt to:<abc@x.y.z>
34 quit
35 ****
36 exim -bh 10.0.0.1
37 ehlo x.y.z
38 mail from:<>
39 rcpt to:<abc@x.y.z>
40 quit
41 ****
42 exim -DSERVER=server -bd -oX PORT_D
43 ****
44 client 127.0.0.1 PORT_D
45 ??? 220
46 helo x.y.z
47 ??? 250
48 mail from:<>
49 ??? 250
50 rcpt to:<abc@x.y.z>
51 ??? 250
52 quit
53 ??? 221
54 ****
55 killdaemon
56 exim -be
57 ${perl{no_warn}}
58 ${perl{foo_warn}}
59 ****
60 no_msglog_check