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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
<html bgcolor="[+ 'blue' +]">
<head bgcolor="[+ 'blue' +]">
<title>Some tests for Embperl</title>
</head bgcolor="[+ 'blue' +]">
[- $a = ' and more' -]
<body bgcolor="[+ 'blue' +]">
<table bgcolor="[+ 'blue'. $a +]">
<tr bgcolor="[+ 'blue' +]">
<td bgcolor="[+ 'blue' +]">
</td bgcolor="[+ 'blue' +]">
</tr bgcolor="[+ 'blue' +]">
</table bgcolor="[+ 'blue' +]">
<dir bgcolor="[+ 'blue' +]">
</dir bgcolor="[+ 'blue' +]">
<dl bgcolor="[+ 'blue' +]">
</dl bgcolor="[+ 'blue' +]">
<menu bgcolor="[+ 'blue' +]">
</menu bgcolor="[+ 'blue' +]">
<ol bgcolor="[+ 'blue' +]">
</ol bgcolor="[+ 'blue' +]">
<select bgcolor="[+ 'blue' +]">
</select bgcolor="[+ 'blue' +]">
<textarea bgcolor="[+ 'blue' +]">
Hallo
</textarea bgcolor="[+ 'blue' +]">
<ul bgcolor="[+ 'blue' +]">
</ul bgcolor="[+ 'blue' +]">
<input bgcolor="[+ 'blue' +]">
<input bgcolor="[+ 'var->blue' +]">
<input bgcolor="[- 'var->blue' -]">
Here it starts with some HTML Text<P bgcolor="[+ 'blue' +]">
[- $aaa = 1 -]
<body [$if $aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
<body [$if !$aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
<body [$if $aaa $]bgcolor="[+ 'blue' +]"[$endif$]>
<body [$if !$aaa $]bgcolor="[+ 'blue' +]"[$endif$]>
[- $fdat{ VERSION } = 3 -]
<IMG SRC="img.gif" [$ if $fdat{ VERSION } >= 3 $]
WIDTH=35 [$ endif $]>
<IMG SRC="img.gif" [$ if $fdat{ VERSION } >= 4 $]
WIDTH=35 [$ endif $]>
<A HREF="" [$ if $fdat{ VERSION } >= 3 $]
foo="" [$ endif $]>
<A HREF="" [$ if $fdat{ VERSION } >= 4 $]
foo="" [$ endif $]>
[- @ks = sort keys %idat -]
<table>
<tr>
<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
</tr>
</table>
[- $stuff = ("X" x 79 . "\n") x 26; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 2046; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 2047; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 2048; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 2049; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 2050; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
[- $stuff = "X" x 30000; -]
Testing ... length of STUFF=[+ length($stuff) +]<p>
<input type="hidden" name="STUFF" value="[+ $stuff +]">
<[+ 'b' +]>
[$ foreach $tag ('a', 'b', 'c') $]
<[+ $tag +]>
[$endforeach$]
</body>
</html>
|
