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