summaryrefslogtreecommitdiff
path: root/test/scripts/3000-Perl/3000
blob: 30ac29eb36ede58fe404ea06debd859b73396ae8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
# Embedded Perl
exim -be
${perl{foo}}
${perl{foo}{arg1}}
${perl{foo_undef}}
${perl{foo_die}}
${perl{foo_warn}}
${perl{unknown}}
${perl{readvar}{primary_hostname}}
${perl{readvar}{notexists}}

${perl}
${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}}
${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}

${perl{return_scalar}}
${perl{return_list}}
${perl{return_variable_vector}}
${sg{${perl{return_hash}}}{\\d+}{X}}

$tod_full // ${perl{change_locale}} // $tod_full
****
exim -d-all+expand -be
${perl{foo}{arg1}}
${perl{foo_undef}}
${perl{debug_write}{debug from Perl\n}}
${perl{log_write}{log from Perl}}
****
exim -v -bs
ehlo x.y.z
mail from:<>
rcpt to:<abc@x.y.z>
quit
****
exim -bh 10.0.0.1
ehlo x.y.z
mail from:<>
rcpt to:<abc@x.y.z>
quit
****
exim -DSERVER=server -bd -oX PORT_D
****
client 127.0.0.1 PORT_D
??? 220
helo x.y.z
??? 250
mail from:<>
??? 250
rcpt to:<abc@x.y.z>
??? 250
quit
??? 221
****
killdaemon
exim -be
${perl{no_warn}}
${perl{foo_warn}}
****
no_msglog_check