Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / stderr / 3000
1 1999-03-02 09:44:33 this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
2 Exim version x.yz ....
3 configuration file is TESTSUITE/test-config
4 admin user
5 considering: ${perl{foo}{arg1}}
6 considering: foo}{arg1}}
7   expanding: foo
8      result: foo
9 considering: arg1}}
10   expanding: arg1
11      result: arg1
12 Starting Perl interpreter
13   expanding: ${perl{foo}{arg1}}
14      result: Subroutine foo called with args: arg1
15 considering: ${perl{foo_undef}}
16 considering: foo_undef}}
17   expanding: foo_undef
18      result: foo_undef
19 failed to expand: ${perl{foo_undef}}
20    error message: Perl subroutine "foo_undef" returned undef to force failure
21 failure was forced
22 considering: ${perl{debug_write}{debug from Perl\n}}
23 considering: debug_write}{debug from Perl\n}}
24   expanding: debug_write
25      result: debug_write
26 considering: debug from Perl\n}}
27   expanding: debug from Perl\n
28      result: debug from Perl
29
30 debug from Perl
31   expanding: ${perl{debug_write}{debug from Perl\n}}
32      result: Wrote debug
33 considering: ${perl{log_write}{log from Perl}}
34 considering: log_write}{log from Perl}}
35   expanding: log_write
36      result: log_write
37 considering: log from Perl}}
38   expanding: log from Perl
39      result: log from Perl
40 LOG: MAIN
41   log from Perl
42   expanding: ${perl{log_write}{log from Perl}}
43      result: Wrote log
44 >>>>>>>>>>>>>>>> Exim pid=pppp terminating with rc=0 >>>>>>>>>>>>>>>>
45 LOG: smtp_connection MAIN
46   SMTP connection from CALLER
47 LOG: MAIN
48   this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
49 LOG: smtp_connection MAIN
50   SMTP connection from CALLER closed by QUIT
51 >>> host in hosts_connection_nolog? no (option unset)
52 >>> host in host_lookup? no (option unset)
53 >>> host in host_reject_connection? no (option unset)
54 >>> host in sender_unqualified_hosts? no (option unset)
55 >>> host in recipient_unqualified_hosts? no (option unset)
56 >>> host in helo_verify_hosts? no (option unset)
57 >>> host in helo_try_verify_hosts? no (option unset)
58 >>> host in helo_accept_junk_hosts? no (option unset)
59 >>> x.y.z in helo_lookup_domains? no (end of list)
60 >>> host in dsn_advertise_hosts? no (option unset)
61 >>> host in pipelining_advertise_hosts? yes (matched "*")
62 >>> host in chunking_advertise_hosts? no (end of list)
63 >>> using ACL "check_rcpt"
64 >>> processing "accept"
65 LOG: this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
66 >>> check condition = ${if !eq {${perl{foo_warn}}}{}}
67 >>>                 = true
68 >>> accept: condition test succeeded in ACL "check_rcpt"
69 >>> end of ACL "check_rcpt": ACCEPT
70
71 ******** SERVER ********