Test for Embperl::Execute

# # Example for using Embperl::Execute # # run this under mod_perl / Apache::Registry # use Embperl ; my($r) = @_; # workaround for broken $r -> chdir_file in Apache::Registry on ActiveState perl use Cwd ; use File::Basename ; if ($Embperl::modperlapi < 2) { eval { require Apache::compat } ; $@ = '' ; } else { eval { require Apache2::compat } ; $@ = '' ; } my $fn = $r -> filename ; chdir(dirname ($fn)) ; $Embperl::DebugDefault = 0xffffdffd ; $tst1 = '

Here is some text

' ; $r -> status (200) ; $r -> send_http_header () ; print "
\n" ; print "

# 1.) Include from memory

\n" ; Embperl::Execute ({input => \$tst1, mtime => 1, inputfile => 'Some text', req_rec => $r}) ; print "\n

# 2.) Include from memory with some Embperl code

\n" ; Embperl::Execute ({input => \'[- @ar = (a1, b2, c3) -]

[+$ar[$col]+]

', mtime => 1, inputfile => 'table', req_rec => $r}) ; print "\n

# 3.) Include from memory with passing of variables

\n" ; $MyPackage::Interface::Var = 'Some Var' ; Embperl::Execute ({input => \'

Transfer some vars [+ $Var +] !

', inputfile => 'Var', mtime => 1, 'package' => 'MyPackage::Interface', req_rec => $r}) ; print "\n

# 4.) Change the variable, but not the code

\n" ; $MyPackage::Interface::Var = 'Do it again' ; # code is the same, so give the same mtime and inputfile to avoid recompile # Note you get problems is you change the code, but did not restart the server or # change the value in mtime. So make sure if you change something also change mtime! Embperl::Execute ({input => \'

Transfer some vars [+ $Var +] !

', inputfile => 'Var2', mtime => 1, 'package' => 'MyPackage::Interface', req_rec => $r}) ; print "\n

# 5.) Use \@param to pass parameters

\n" ; Embperl::Execute ({input => \'

Use @param to transfer some data ([+ "@param" +]) !

', inputfile => 'Param', debug => 0xffffdffd, req_rec => $r, param => [1, 2, 3, 4] } ) ; print "\n

# 6.) Use \@param to pass parameters and return it

\n" ; my @p = ('vara', 'varb') ; print "\n

### \$p[0] is $p[0] and \$p[1] is $p[1]

### " ; Embperl::Execute ({input => \'

Got data in @param ([+ "@param" +]) !

[- $param[0] = "newA" ; $param[1] = "newB" ; -]

Change data in @param to ([+ "@param" +]) !

', inputfile => 'Param & Return', req_rec => $r, param => \@p } ) ; print "\n

### \$p[0] is now $p[0] and \$p[1] is now $p[1]

### " ; print "

# 7.) Presetup \%fdat and \@ffld

\n" ; my %myfdat = ('test' => 'value', 'fdat' => 'text') ; my @myffld = sort keys %myfdat ; Embperl::Execute ({input => \'

[+ $ffld[$row] +] | [+ do { local $^W = 0 ; $fdat{$ffld[$row]} } +]

', inputfile => 'fdat & ffld', req_rec => $r, fdat => \%myfdat, ffld => \@myffld} ) ; print "\n

# 8.) Inculde a file

\n" ; Embperl::Execute ({inputfile => '../inc.htm', input_escmode => 7, req_rec => $r}) ; print "\n

# 9.) Inculde a file and return output in a scalar

\n" ; my $out ; Embperl::Execute ({inputfile => '../inc.htm', input_escmode => 7, output => \$out, req_rec => $r}) ; print "\n

### $out

\n" ; print "\n

# 10.) Test \$req_rec inside Execute

\n" ; Embperl::Execute ('../reqrec.htm') ; print "\n

# 11.) Done :-)

\n" ; print "

\n";