test/scripts/3000-Perl/3000

   1 # Embedded Perl
   2 exim -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 ${sg{${perl{return_hash}}}{\\d+}{X}}
  20
  21 $tod_full // ${perl{change_locale}} // $tod_full
  22 ****
  23 exim -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 ****
  29 exim -v -bs
  30 ehlo x.y.z
  31 mail from:<>
  32 rcpt to:<abc@x.y.z>
  33 quit
  34 ****
  35 exim -bh 10.0.0.1
  36 ehlo x.y.z
  37 mail from:<>
  38 rcpt to:<abc@x.y.z>
  39 quit
  40 ****
  41 exim -DSERVER=server -bd -oX PORT_D
  42 ****
  43 client 127.0.0.1 PORT_D
  44 ??? 220
  45 helo x.y.z
  46 ??? 250
  47 mail from:<>
  48 ??? 250
  49 rcpt to:<abc@x.y.z>
  50 ??? 250
  51 quit
  52 ??? 221
  53 ****
  54 killdaemon
  55 exim -be
  56 ${perl{no_warn}}
  57 ${perl{foo_warn}}
  58 ****
  59 no_msglog_check