Embperl Tests - Include other Embperl pages via Execute
[- $optRawInput = 1 -]
[- $tst1 = 'Here is some text
' . "\n" ; -]
 1.) Include from memory
[-		       Execute ({input		=> \$tst1,
						 mtime      => 1,  
						 inputfile	=> 'Some text',
						 }) ;
-]
 2.) Include from memory with some Embperl code
[- Execute ({input		=> \('[- @ar = (a1, b2, c3) -' . '] ' . "\n" ),
						 mtime      => 1,  
						 inputfile	=> 'table',
						 }) ;
-]
 3.) Include from memory with passing of variables
[- $MyPackage::Interface::Var = 'Some Var' ; -]
[- Execute ({input		=> \"Transfer some vars [+ \$Var +] !
\n" ,
						 inputfile	=> 'Var',
						 mtime      => 1,
						 'package'  => 'MyPackage::Interface',
						 }) ;
-]
 4.) Change the variable, but not the code
[-
$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!
Execute ({input		=> \"Transfer some vars [+ \$Var +] !
\n",
						 inputfile	=> 'Var2',
						 mtime      => 1,  
						 'package'  => 'MyPackage::Interface',
						 req_rec    => $req_rec}) ;
-]
 5a.) Use  method -> param to pass parameters
[-
Execute ({input		=> \"Use method -> param to transfer some data ([+ do { \$p = shift -> component -> param -> param ;  \"\@\$p\" } +]) !
\n",
						 inputfile	=> 'Parammethod',
						 param      => [1, 2, 3, 4] }
						 ) ;
-]
 5.) Use \@param to pass parameters
[-
Execute ({input		=> \"Use \@param to transfer some data ([+ \"\@param\" +]) !
\n",
						 inputfile	=> 'Param',
						 param      => [1, 2, 3, 4] }
						 ) ;
-]
 6.) Use \@param to pass parameters and return it
[- @p = ('vara', 'varb') ; -]
 $p[0] is [+ $p[0] +] and $p[1] is [+ $p[1] +]
[-
Execute ({input		=> \('
Got data in @param ([+ "@param" +]) !
[- $param[0] = "newA" ; $param[1] = "newB" ; -' . ']Change data in @param to ([+ "@param" +]) !
' . "\n"),
						 inputfile	=> 'Param & Return',
						 req_rec    => $req_rec,
						 param      => \@p }
						 ) ;
-]
 $p[0] is now [+ $p[0] +] and $p[1] is now [+ $p[1] +] 
 7.) Presetup \%fdat and \@ffld
[- 
%myfdat = ('test' => 'value',
              'fdat' => 'text') ;
              
@myffld = sort keys %myfdat ;             
Execute ({input		=> \('
| [+ $ffld[$row] +] | [+ do { local $^W = 0 ; $fdat{$ffld[$row]} } +] | 
' . "\n") ,
						 inputfile	=> 'fdat & ffld',
						 req_rec    => $req_rec,
						 fdat  => \%myfdat,
						 ffld  => \@myffld}
						 ) ;
-]
 7a.) Presetup my \%fdat and my \@ffld
[- 
my %myfdat = ('test1' => 'value1',
              'fdat1' => 'text1') ;
              
my @myffld = sort keys %myfdat ;             
Execute ({input		=> \('| [+ $ffld[$row] +] | [+ do { local $^W = 0 ; $fdat{$ffld[$row]} } +] | 
' . "\n") ,
						 inputfile	=> 'fdat & ffld',
						 req_rec    => $req_rec,
						 fdat  => \%myfdat,
						 ffld  => \@myffld}
						 ) ;
-]
 7b.) Presetup \%fdat
[- 
%myfdat = ('test2' => 'value2',
              'fdat2' => 'text2') ;
              
#@myffld = sort keys %myfdat ;             
Execute ({input		=> \('| [+ $ffld[$row] +] | [+ do { local $^W = 0 ; $fdat{$ffld[$row]} } +] | 
' . "\n") ,
						 inputfile	=> 'fdat & ffld',
						 req_rec    => $req_rec,
						 fdat  => \%myfdat,}
						 ) ;
-]
 7c.) Presetup  \@ffld
[- 
%myfdat = ('test3' => 'value3',
              'fdat3' => 'text3') ;
              
@myffld = sort keys %myfdat ;             
Execute ({input		=> \('| [+ $ffld[$row] +] | [+ do { local $^W = 0 ; $fdat{$ffld[$row]} } +] | 
 @ffld = [+ "@ffld" +]' . "\n") ,
						 inputfile	=> 'ffld',
						 req_rec    => $req_rec,
						 ffld  => \@myffld}
						 ) ;
-]
 8a.) Include a file
[- Execute ({inputfile => '../inc.htm', options => 0, input_escmode => 7, }) -]
 8b.) Include again the same file 
[- Execute ({inputfile => '../inc.htm', options => 0, input_escmode => 7, }) -]
 9.) Include a file and return output in a scalar
[- Execute ({inputfile	=> '../inc.htm',
						 output     => \$out,
						 options => 0, input_escmode => 7, 
						 req_rec    => $req_rec}) ;
-]
 [+ $out +] 
 10.) Include inside a table
[- @a = ('m1', 'm2', 'm3') -]
    
	| [+ $a[$row] +] : [- Execute ({inputfile => '../incsub.htm', req_rec => $req_rec, param => [$a[$row], 'main']}) -] | 
 11.) Include a file with parameters
[- Execute ('../incparam.htm', 0, 'B', 'three', 'dddd', '555') -]
 12.) Include a file and write outputfile
[# - Execute ({inputfile	=> '../inc.htm',
			 outputfile     => "../../tmp/incout.htm",
						 }) ;
- #]
 12.) Done :-)
Embperl (c) 1997-2005 G.Richter