Guard loadable module vars with LOOKUP_MODULE_DIR.
[exim.git] / test / scripts / 3000-Perl / 3000
CommitLineData
59371ea7
PH
1# Embedded Perl
2exim -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****
23exim -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****
29exim -v -bs
30ehlo x.y.z
31mail from:<>
32rcpt to:<abc@x.y.z>
33quit
34****
35exim -bh 10.0.0.1
36ehlo x.y.z
37mail from:<>
38rcpt to:<abc@x.y.z>
39quit
40****
41exim -DSERVER=server -bd -oX PORT_D
42****
43client 127.0.0.1 PORT_D
44??? 220
45helo x.y.z
46??? 250
47mail from:<>
48??? 250
49rcpt to:<abc@x.y.z>
50??? 250
51quit
52??? 221
53****
54killdaemon
55exim -be
56${perl{no_warn}}
57${perl{foo_warn}}
58****
59no_msglog_check