[#
[= error =]: [+ $r->gettext($r->{error}) +]
[$ if $r->{error_details} $]
[= error_reason =]:
[- @err = split("\n", $r->{error_details}); -]
[$ foreach $err_line (@err) $]
[+ $err_line +]
[$ endforeach $]
[$ endif $]
[= warning =]:
|
[+ $r->gettext($r->{success}) +]
[$ endif $] [$ if $r -> {need_login} $][+ $fdat{-logintext} +]
[$else$][= need_login =]
[$endif$] [- Execute ('loginform.epl', $r -> app -> posturl) ; -][$endif$] [- $x = Execute ({inputfile => '*'}) -] [$if $r -> param -> uri !~ /html?$|epl$|cgi$/ $][$endif$] [$ endif $]