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