1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
[#
<hr>
<center><font color="red" size=3>[= under_construction =]</font><br></center>
#]
[! use File::Basename ; !]
[- $r = shift -]
[$ if $r->{error} $]
<p align="center"><font color="#ff0000" size="3"><b>
[= error =]: [+ $r->gettext($r->{error}) +]
[$ if $r->{error_details} $]
[= error_reason =]:<BR>
[- @err = split("\n", $r->{error_details}); -]
[$ foreach $err_line (@err) $]
[+ $err_line +]<BR>
[$ endforeach $]
[$ endif $]
</b></font></p>
[$ endif $]
[$ if @{$warning = $r->{warning}} $]
<p align="center">
[= warning =]:
</p>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0"><tr><td align="left">
<ul>
<li>[- $abbrev = $warning->[$row] -][+ $r->gettext($abbrev) +]
</ul>
</td></tr></table>
</div>
[$ endif $]
[$ if $r->{success} $]
<p align="center">
[+ $r->gettext($r->{success}) +]
</p>
[$ endif $]
[$ if $r -> {need_login} $]
<div align="center">
[$ if $fdat{-logintext} $]
<p>[+ $fdat{-logintext} +]</p>
[$else$]
<p>[= need_login =]</p>
[$endif$]
[- Execute ('loginform.epl', $r -> app -> posturl) ; -]
</div>
[$ else $]
[$if $r -> param -> uri !~ /html?$|epl$|cgi$/ $]<pre>[$endif$]
[- $x = Execute ({inputfile => '*'}) -]
[$if $r -> param -> uri !~ /html?$|epl$|cgi$/ $]</pre>[$endif$]
[$ endif $]
|
