[! use Ewok::File qw(:publish) !]

Nested EmbperlObject::Executes

[- $req = shift; $p = $param[0]; -] [$ sub dumphash $] [- $ref = shift; -] [$ foreach $key (sort keys %$ref) $] [$ endforeach $]
[+ $key +] [$ if (ref $ref->{$key} eq 'HASH') $] [$ foreach $key2 (sort keys %{$ref->{$key}}) $] [+ "$key2 -> $ref->{$key}->{$key2}" +]
[$ endforeach $] [$ else $] [+ $ref->{$key} +] [$ endif $]
[$ endsub $] [$ if ($p eq 'PUBLISH') $] Published version. [- $req->{PUBLISHED} = 1; $ENV{PUBLISHED} = 1; -] param: [+ join ',', @param; +]
SCRIPT_NAME: [+ $ENV{SCRIPT_NAME} +]
[$ else $]

$req:

[- dumphash $req -]

%ENV:

[- dumphash \%ENV -]

%fdat:

[- dumphash \%fdat -]

EmbperlObject::Execute:

[# Do another EmbperlObject Execute #]
[+
my $param = [ 'PUBLISH', "SCRIPT_NAME:/ewok/foo/execute.html" ];
my $fdat = { t => 'blue' };
publishCheckpoint($req, \%fdat);
HTML::EmbperlObject::Execute({
  inputfile => "/opt/web/ewok/htdocs/test/execute.html",
  output => \$new,
  fdat => $fdat,
  param => $param,
  options => $ENV{EMBPERL_OPTIONS},
  object_base => $ENV{EMBPERL_OBJECT_BASE},
  object_stopdir => "/opt/web/ewok/htdocs",
  object_addpath => "/opt/web/ewok/htdocs/templates;/opt/web/ewok/htdocs",
});
publishRestore($req, \%fdat);
$new
+]

$req:

[- dumphash $req -]

%ENV:

[- dumphash \%ENV -]

%fdat:

[- dumphash \%fdat -] [$ endif $]