test/scripts/3000-Perl/3000

   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