<html>
<head>
<title>Some tests for Embperl escaping</title>
</head>
<body>
Here it starts with some HTML Text<P>
First of all assign a value:
[- $a = '(this is the value in $a)' -] <BR>
Now we have some 'Umlaute':
[- $b = "$a äöüäöü???<\&+ " -]
[- $id = "abcdefghijklmnopqrstuvwxyz" ; $text = "This is a text ? \& + - %21" -]
Now lets look what we are getting from this:<BR>
[+ $a +] [+ $b +]<BR>
What is the EscMode? [+ $escmode +]
Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A>
A Tag 2: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" TARGET="http://localhost/tests?id=[+$id +]&text=[+$text+]">a2</A>
A Tag 3: <A TARGET="http://localhost/tests?id=[+$id +]&text=[+$text+]" HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" TARGET="http://localhost/tests?id=[+ $id +]&text=[+$text+]">a3</A>
A Tag 4: <A TARGET="http://localhost/tests?id=[+ $id +]&text=[+$text+]" HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">a4</A>
A Tag 5: <A TARGET="http://localhost/tests?id=[+ $id +]&text=[+$text+]">a5</A>
A Tag 6: <A>a6</A>
A Tag 7: <A HREF="7">x</A>
A Tag 8: <A TARGET=8 HREF="8">x</A>
A Tag 9: <A HREF="9" TARGET="9">x</A>
A Tag 10: <A TARGET="10" HREF="10" TARGET="10">x</A>
A Tag 11: <A HREF="11" >x</A>
A Tag 12: <A HREF=12>x</A>
A Tag 13: <A HREF="[+ "abcd"+]%20[+ "%3e" +]">x</A>
A Tag 14: <A HREF="[+ "abcd"+]%20[+ ">" +]">x</A>
FRAME: <FRAME SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
IFRAME: <IFRAME SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
EMBED: <EMBED SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
LAYER: <LAYER SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
IMG: <IMG SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
FORM: <FORM action="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo">
[- %A = (A => 1, B => 2) ; @A = (X, 9, Y, 8, Z, 7) -]
Hash in A <A HREF="http://localhost/tests?[+ [ %A ] +]">
Array in A <A HREF="http://localhost/tests?[+ \@A +]">
[+ $escmode = 1 +]
Now lets look what we are getting from this:<BR>
[+ $a +] [+ $b +]<BR>
What is the EscMode? [+ $escmode +]
Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A>
[+ $escmode = 2 +]
Now lets look what we are getting from this:<BR>
[+ $a +] [+ $b +]<BR>
What is the EscMode? [+ $escmode +]
Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A>
[+ $escmode = 0 +]
Now lets look what we are getting from this:<BR>
[+ $a +] [+ $b +]<BR>
What is the EscMode? [+ $escmode +]
Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A>
[+ $escmode = 3 +]
Now lets look what we are getting from this:<BR>
[+ $a +] [+ $b +]<BR>
What is the EscMode? [+ $escmode +]
Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A>
What is the EscMode? [+ $escmode +]
[!
sub foo($)
{
my @name ;
my @data ;
$name[0] = 'abcd' ;
$data[0] = 'xyz' ;
my $bar = $_[0];
return "file.html?name=$name[$bar]&data=$data[$bar]";
}
!]
[+ foo (0) +]
Now we localy set $escmode:<BR>
[+ local $escmode = 0 ; $b +]<BR>
[+ local $escmode = 1 ; $b +]<BR>
[+ local $escmode = 2 ; $b +]<BR>
[+ local $escmode = 3 ; $b +]<BR>
[+ $n = 'My Name öäü' ; $escmode = 0 +]
<A HREF='http://host/script?name=[+$escmode=3; $n+]'>
<A HREF='http://host/script?name=[+ $n+]'>
[+ $escmode = 0 +]
<A HREF='http://host/script?name=[+ local $escmode=3; $n+]'>
<A HREF='http://host/script?name=[+ $n+]'>
<br>
We can avoid interpreting [[- foo -] with a double [[[[ <br>
This should also work for [[* foo *] <br>
<A HREF="[+ "abcd"+]%20[+ "%3e" +]">x</A>
[- $dat = [[1], [2], [3]] -]
<table>
<TR>
<TD><a href="[+$dat->[$row][0]+]">Link</a></TD>
</TR>
</table>
<table>
<TR>
<TD><a href="[+$dat-%3e[$row][0]+]">Link</a></TD>
</TR>
</table>
[- $optRawInput = 0 -]
[- $escmode = 0 -]
$optRawInput [+ $optRawInput +]
$escmode [+ $escmode +]
'here is a \ ' -> [+ 'here is a \ ' +]
'here is a \\ ' -> [+ 'here is a \\ ' +]
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
'here is a <tag> ' -> [+ 'here is a <tag>' +]
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
[- $optRawInput = 1 -]
[- $escmode = 0 -]
$optRawInput [+ $optRawInput +]
$escmode [+ $escmode +]
'here is a \ ' -> [+ 'here is a \ ' +]
'here is a \\ ' -> [+ 'here is a \\ ' +]
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
'here is a <tag> ' -> [+ 'here is a <tag>' +]
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
[- $optRawInput = 0 -]
[- $escmode = 1 -]
$optRawInput [+ $optRawInput +]
$escmode [+ $escmode +]
'here is a \ ' -> [+ 'here is a \ ' +]
'here is a \\ ' -> [+ 'here is a \\ ' +]
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
'here is a <tag> ' -> [+ 'here is a <tag>' +]
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
[- $optRawInput = 1 -]
[- $escmode = 1 -]
$optRawInput [+ $optRawInput +]
$escmode [+ $escmode +]
'here is a \ ' -> [+ 'here is a \ ' +]
'here is a \\ ' -> [+ 'here is a \\ ' +]
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
'here is a <tag> ' -> [+ 'here is a <tag>' +]
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
<P>Ok.<P>
</body>
</html>