[- $r = shift ; $http_headers_out{'content-type'} = 'text/html' ; -] Embperl [$if @{$r -> {menuitems}} > 1 || $r -> {menuitems}[0]{menu} ne 'Home' $] [- $i = 0 -] [$foreach $item (@{$r -> {menuitems}}) $] - [+ $r -> gettext($item -> {menu}) +] [$endforeach$] [$endif$] [- Execute ('header.epl') -]
[- Execute ('menuleft.epl') -] [- Execute ('content.epl') -]
[- Execute ('footer.htm') -]