| 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 | this change-locale fails in earlier systems. Works on Fedora 29. |
| 23 | $tod_full // ${perl{change_locale}} // $tod_full |
| 24 | **** |
| 25 | exim -d-all+expand -be |
| 26 | ${perl{foo}{arg1}} |
| 27 | ${perl{foo_undef}} |
| 28 | ${perl{debug_write}{debug from Perl\n}} |
| 29 | ${perl{log_write}{log from Perl}} |
| 30 | **** |
| 31 | exim -v -bs |
| 32 | ehlo x.y.z |
| 33 | mail from:<> |
| 34 | rcpt to:<abc@x.y.z> |
| 35 | quit |
| 36 | **** |
| 37 | exim -bh 10.0.0.1 |
| 38 | ehlo x.y.z |
| 39 | mail from:<> |
| 40 | rcpt to:<abc@x.y.z> |
| 41 | quit |
| 42 | **** |
| 43 | exim -DSERVER=server -bd -oX PORT_D |
| 44 | **** |
| 45 | client 127.0.0.1 PORT_D |
| 46 | ??? 220 |
| 47 | helo x.y.z |
| 48 | ??? 250 |
| 49 | mail from:<> |
| 50 | ??? 250 |
| 51 | rcpt to:<abc@x.y.z> |
| 52 | ??? 250 |
| 53 | quit |
| 54 | ??? 221 |
| 55 | **** |
| 56 | killdaemon |
| 57 | exim -be |
| 58 | ${perl{no_warn}} |
| 59 | ${perl{foo_warn}} |
| 60 | **** |
| 61 | no_msglog_check |