richter 00/09/13 11:14:23
Modified: . Tag: Embperl2c epcmd2.c epcomp.c test.pl
test/cmp Tag: Embperl2c escape.htm if.htm table.htm
test/html Tag: Embperl2c escape.htm if.htm loop.htm
object.htm table.htm tagscan.htm
Added: test/cmp Tag: Embperl2c escraw.htm
test/cmp2 Tag: Embperl2c lists.htm loop.htm mix.htm
tagscan.htm
test/html Tag: Embperl2c escraw.htm tabmode.htm
tagscandisable.htm
Log:
Embperl 2 Source Integration & Tests
Revision Changes Path
No revision
No revision
1.4.2.2 +3 -3 embperl/Attic/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcmd2.c,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -u -r1.4.2.1 -r1.4.2.2
--- epcmd2.c 2000/09/13 08:37:59 1.4.2.1
+++ epcmd2.c 2000/09/13 18:13:37 1.4.2.2
@@ -323,7 +323,7 @@
if ((i & 1) == 0)
Node_appendChild (pDomTree, ntypCDATA, 0, "=", 1, xOldChild, 0, 0) ;
else if (i < f)
- Node_appendChild (pDomTree, ntypCDATA, 0, "&", 1, xOldChild, 0, 0) ;
+ Node_appendChild (pDomTree, ntypCDATA, 0, "&", 5, xOldChild, 0,
0) ;
}
}
@@ -344,9 +344,9 @@
while (pEntry = hv_iternext (pHV))
{
if (i++ > 0)
- Node_appendChild (pDomTree, ntypCDATA, 0, "&", 1, xOldChild, 0, 0) ;
+ Node_appendChild (pDomTree, ntypCDATA, 0, "&", 5, xOldChild, 0,
0) ;
pKey = hv_iterkey (pEntry, &l32) ;
- xNode = Node_appendChild (pDomTree, ntypText, 0, pKey, l, xOldChild, 0,
0) ;
+ xNode = Node_appendChild (pDomTree, ntypText, 0, pKey, l32, xOldChild,
0, 0) ;
if (pCurrReq -> nCurrEscMode & 2)
Node_self (pDomTree, xNode) -> bFlags |= nflgEscUrl ;
1.4.2.2 +1 -1 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -u -r1.4.2.1 -r1.4.2.2
--- epcomp.c 2000/09/13 08:38:00 1.4.2.1
+++ epcomp.c 2000/09/13 18:13:38 1.4.2.2
@@ -581,7 +581,7 @@
{
if (pChildNode -> bFlags & aflgAttrChilds)
{
- int l = sprintf (buf, "XML::Embperl::DOM::Attr_value ($_ep_DomTree,%d)",
pChildNode -> xNdx) ;
+ int l = sprintf (buf, "XML::Embperl::DOM::Attr::value ($_ep_DomTree,%d)",
pChildNode -> xNdx) ;
sText = buf ;
if (out == 2)
out = 1 ;
1.70.4.2 +29 -5 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.1
retrieving revision 1.70.4.2
diff -u -r1.70.4.1 -r1.70.4.2
--- test.pl 2000/09/13 08:38:03 1.70.4.1
+++ test.pl 2000/09/13 18:13:39 1.70.4.2
@@ -63,8 +63,12 @@
'errors' => '2',
'version' => 1,
},
- 'escape.htm' => { },
- 'escape.htm' => { },
+ 'escape.htm' => {
+ repeat => 2,
+ },
+ 'escraw.htm' => {
+ 'version' => 1,
+ },
'spaces.htm' => {
'version' => 1,
},
@@ -72,6 +76,9 @@
'tagscan.htm' => {
'debug' => '1',
},
+ 'tagscandisable.htm' => {
+ 'version' => 1,
+ },
'if.htm' => { },
'ifperl.htm' => { },
'loop.htm' => {
@@ -84,6 +91,9 @@
'table.htm' => {
'debug' => '1',
},
+ 'tabmode.htm' => {
+ 'version' => 1,
+ },
'lists.htm' => {
'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
},
@@ -92,8 +102,12 @@
'version' => 1,
},
'object.htm' => {
+ 'version' => 1,
'errors' => '2',
},
+ 'object.htm' => {
+ 'version' => 2,
+ },
'discard.htm' => {
'errors' => '12',
'version' => 1,
@@ -772,6 +786,8 @@
{
$_[0] = $1
}
+ $_[0] =~ s/\s+/ /g ;
+ $_[0] =~ s/\s+>/>/g ;
}
#####################################################
@@ -791,11 +807,19 @@
while (defined ($l1 = <F1>))
{
chompcr ($l1) ;
+ while (($l1 =~ /^\s*$/) && defined ($l1 = <F1>))
+ { chompcr ($l1) ; }
+
+
if (!$errin)
{
$l2 = <F2> ;
chompcr ($l2) ;
+ while (($l2 =~ /^\s*$/) && defined ($l2 = <F2>))
+ { chompcr ($l2) ; }
}
+ last if (!defined ($l2) && !defined ($l1)) ;
+
if (!defined ($l2))
{
print "\nError in Line $line\nIs:\t$l1\nShould:\t<EOF>\n" ;
@@ -804,7 +828,7 @@
$eq = 0 ;
- while (((!$notseen && ($l2 =~ /^\^\^(.*?)$/)) || ($l2 =~ /^\^\-(.*?)$/)) &&
!$eq)
+ while (((!$notseen && ($l2 =~ /^\^\^(.*?)$/i)) || ($l2 =~ /^\^\-(.*?)$/i)) &&
!$eq)
{
$l2 = $1 ;
if (($l1 =~ /^\s*$/) && ($l2 =~ /^\s*$/))
@@ -821,10 +845,10 @@
if (!$eq)
{
- if ($l2 =~ /^\^(.*?)$/)
+ if ($l2 =~ /^\^(.*?)$/i)
{
$l2 = $1 ;
- $eq = $l1 =~ /$l2/ ;
+ $eq = $l1 =~ /$l2/i ;
}
else
{
No revision
No revision
1.19.4.1 +11 -68 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.19
retrieving revision 1.19.4.1
diff -u -r1.19 -r1.19.4.1
--- escape.htm 2000/08/18 09:20:36 1.19
+++ escape.htm 2000/09/13 18:13:45 1.19.4.1
@@ -29,7 +29,8 @@
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 12\: <A HREF=(12|\"12\")>x<\/A>
+^A Tag 12b\: <A HREF=(12b|\"12b\") >x<\/A>
A Tag 13: <A HREF="abcd%20%3E">x</A>
A Tag 14: <A HREF="abcd%20%3E">x</A>
FRAME: <FRAME
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
@@ -39,9 +40,11 @@
IMG: <IMG
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
FORM: <FORM
action="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521"
name="%20foo">
-Hash via Array A <A HREF="http://localhost/tests?A=1&B=2">
-Hash in A <A HREF="http://localhost/tests?A=1&B=2">
-Array in A <A HREF="http://localhost/tests?X=9&Y=8&Z=7">
+Hash in A <a href="http://localhost/tests?A=1&B=2">
+Array in A <a href="http://localhost/tests?X=9&Y=8&Z=7">
+
+Hash in H <a href="http://localhost/tests?A=1&B=2">
+Array in H <a href="http://localhost/tests?X=9&Y=8&Z=7">
1
@@ -102,14 +105,14 @@
&#129;&#130;<BR>
0
-<A HREF='http://host/script?name=My%20Name%20���'>
+^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���")>
-<A HREF='http://host/script?name=My%20Name%20���'>
+^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���")>
0
-<A HREF='http://host/script?name=My%20Name%20���'>
+^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���")>
-<A HREF='http://host/script?name=My Name ���'>
+^<A HREF=('http://host/script\?name=My Name ���'|"http://host/script\?name=My Name
���")>
<br>
@@ -152,66 +155,6 @@
-$optRawInput 0
-$escmode 0
-'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
-'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
-'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
-'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
-'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
-'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>
1.4.6.1 +100 -59 embperl/test/cmp/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/if.htm,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -r1.4 -r1.4.6.1
--- if.htm 1999/10/05 06:02:08 1.4
+++ if.htm 2000/09/13 18:13:50 1.4.6.1
@@ -1,59 +1,100 @@
-
-<html>
-<head>
-<title>IF Metacommand in Embperl</title>
-</head>
-
-<body>
-
-a1
-a <br>
-a2
-a <br>
-a3
-a <br>
-a4
-a <br>
-a5
-a <br>
- b is null <br>
- a <br>
- b is null <br>
- a<br>
- b is null <br>
- a <br>
- b is null <br>
- a <br>
- b is null <br>
- a is not null <br>
- b is null and c is 5 <br>
- a is not null <br>
- b is null and c is 5 and d is 'txt' <br>
- a is not null <br>
- b is null and c is 5 and d is 'txt' <br>
- b is null and c is not 5, but d is 'txt' <br>
- If we get to here it looks good with the tests <br>
- a is not null <br>
- b is null and c is 5 and d is 'txt' <br>
- b is null and c is not 5, but d is 'txt' <br>
- If we get to here it looks good with the tests <br>
- ttrue = true
-tfalse = false
-The following HTML tags schould be ignored by Embperl
-
-<if 0>
-
-Ignored, ok!
-
-<else>
-
-Not ignored, ERROR!
-
-<endif>
-
-
-
-</body>
-</html>
-
-
+
+<html>
+<head>
+<title>IF Metacommand in Embperl</title>
+</head>
+
+<body>
+
+a1
+a <br>
+a2
+a <br>
+a3
+a <br>
+a4
+a5
+a <br>
+ b is null <br>
+ a <br>
+ b is null <br>
+ a<br>
+ b is null <br>
+ a <br>
+ b is null <br>
+ a <br>
+ b is null <br>
+ a is not null <br>
+ b is null and c is 5 <br>
+ a is not null <br>
+ b is null and c is 5 and d is 'txt' <br>
+ a is not null <br>
+ b is null and c is 5 and d is 'txt' <br>
+ b is null and c is not 5, but d is 'txt' <br>
+ If we get to here it looks good with the tests <br>
+ a is not null <br>
+ b is null and c is 5 and d is 'txt' <br>
+ b is null and c is not 5, but d is 'txt' <br>
+ If we get to here it looks good with the tests <br>
+ ttrue = true
+tfalse = false
+The following HTML tags schould be ignored by Embperl
+
+<if 0>
+
+Ignored, ok!
+
+<else>
+
+Not ignored, ERROR!
+
+<endif>
+
+
+
+<table WIDTH="530" BORDER="0">
+ <tr>
+ <TD ALIGN="LEFT">
+ <a href="/">
+ <img src="/icons/iiilogo_narrow.gif"
+ WIDTH="" HEIGHT="" BORDER="0"
+ ALT="iii logo"
+ qqq >
+
+ </TD>
+</tr>
+</table>
+
+<table WIDTH="530" BORDER="0">
+ <tr>
+ <TD ALIGN="LEFT">
+ <a href="/">
+ <img src="/i/www.iii.co.uk/iiilogo_narrow.gif"
+ WIDTH="1" HEIGHT="2" BORDER="0"
+ ALT="iii logo"
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ >
+
+ </TD>
+</tr>
+</table>
+
+
+<img src="/icons/iiilogo_narrow_else.gif" WIDTH="5" HEIGHT="10" BORDER="0"
+ ALT="iii logo"
+ >
+
+<img src="/i/www.iii/iit.gif" WIDTH="6" HEIGHT="11" BORDER="0"
+ ALT="iit logo"
+ >
+
+<img src="/i/www.iii/iit.gif" WIDTH="6" HEIGHT="11" BORDER="0"
+ ALT="iit logo"
+ qqq>
+
+
+
+</body>
+</html>
+
+
1.5.6.1 +431 -503 embperl/test/cmp/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/table.htm,v
retrieving revision 1.5
retrieving revision 1.5.6.1
diff -u -r1.5 -r1.5.6.1
--- table.htm 1999/11/17 07:29:36 1.5
+++ table.htm 2000/09/13 18:13:51 1.5.6.1
@@ -1,503 +1,431 @@
-<html>
-<head>
-<title>HTML table tag in Embperl</title>
-</head>
-
-<body>
-
-<table></table>
-
-
-<p> $tabmode = default <p>
-
-<hr><p>Display an two dimensional array with one, two and three columns !<BR>
-Please take a look at the source in your browser to see the difference<BR>
-
-$a[0][0] = '1/1' ;<BR>
- $a[1][0] = '2/1' ;<BR>
- $a[1][1] = '2/2' ;<BR>
- $a[2][0] = '3/1' ;<BR>
- $a[2][1] = '3/2' ;<BR>
- $a[2][2] = '3/3' ;<BR>
-
-<P>$tabmode = default <P>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
- </tr>
-</table>
-
-<table border="2" width="100%">
- <tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
- </tr>
- <tr>
- <td>a1/1 </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
- </tr>
-</table>
-
-<table border="2" width="100%">
- <tr>
- <th>b3/1</th>
-
- <th>b3/2</th>
-
- <th>b3/3</th>
- </tr>
- <tr>
- <td>a1/1 </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
- </tr>
-</table>
-
-<table>
- <tr>
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a1/1 </td>
- </tr>
-
- <tr>
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a2/1 </td>
-
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a2/2 </td>
- </tr>
-
- <tr>
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a3/1 </td>
-
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a3/2 </td>
-
- <td>
- <table>
- <tr>
- <td>b1/1 </td>
- </tr>
-
- <tr>
- <td>b2/1 </td>
-
- <td>b2/2 </td>
- </tr>
-
- <tr>
- <td>b3/1 </td>
-
- <td>b3/2 </td>
-
- <td>b3/3 </td>
- </tr>
- </table>
-
- a3/3 </td>
- </tr>
-</table>
-
-<table border="3" width="100%">
- <tr>
- <td>b3/1</td>
-
- <td>b3/2</td>
-
- <td>b3/3</td>
- </tr>
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
- </tr>
-</table>
-
-<table border="4" width="100%">
- <tr>
- <td>a2/1</td>
- </tr>
- <tr>
- <td>a1/1 </td>
- </tr>
-
- <tr>
- <td>a3/1</td>
- </tr>
- <tr>
- <td>a2/1 </td>
- </tr>
-</table>
-
-<table>
- <tr>
- <TD BGCOLOR="#F4A460">a1/1 </td>
- </tr>
-
- <tr>
- <TD BGCOLOR="#A4A4B4">a2/1 </td>
-
- <TD BGCOLOR="#7CFC00">a2/2 </td>
- </tr>
-
- <tr>
- <TD BGCOLOR="#F4A460">a3/1 </td>
-
- <TD BGCOLOR="#FFFF00">a3/2 </td>
-
- <TD BGCOLOR="#F4A460">a3/3 </td>
- </tr>
-</table>
-
-
-<table>
- <tr>
- <TD BGCOLOR="#F4A460">a1/1 </td>
- <TD BGCOLOR="#FFFF00">a1/2 </td>
- </tr>
- <tr>
- <TD BGCOLOR="#A4A4B4">a2/1 </td>
- <TD BGCOLOR="#7CFC00">a2/2 </td>
- </tr>
-</table>
-
-<table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
- </tr>
-
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
-
-<table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
- </tr>
-
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- <a
href="inhalt.htm?Kategorie=Veranstaltungen">Veranstaltungen</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
-
-<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-</table>
-
-<hr><p> $tabmode=1 + 32 ; <p>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 0 <BR>
-optDisableTableScan is set now to: 1 <BR>
-optDisableTableScan is now: 1 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 1 <BR>
-optDisableTableScan is set now to: 0 <BR>
-optDisableTableScan is now: 0 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
-
-</body>
-</html>
-
+<html>
+<head>
+<title>HTML table tag in Embperl</title>
+</head>
+
+<body>
+
+
+<p> $tabmode = default <p>
+
+<hr><p>Display an two dimensional array with one, two and three columns !<BR>
+Please take a look at the source in your browser to see the difference<BR>
+
+$a[0][0] = '1/1' ;<BR>
+ $a[1][0] = '2/1' ;<BR>
+ $a[1][1] = '2/2' ;<BR>
+ $a[2][0] = '3/1' ;<BR>
+ $a[2][1] = '3/2' ;<BR>
+ $a[2][2] = '3/3' ;<BR>
+
+<P>$tabmode = default <P>
+
+
+<table>
+ <tr>
+ <td>a1/1</td>
+ </tr>
+
+ <tr>
+ <td>a2/1</td>
+ </tr>
+
+ <tr>
+ <td>a3/1</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1</td>
+
+ <td>a3/2</td>
+
+ <td>a3/3</td>
+ </tr>
+</table>
+
+
+<table>
+ <tr>
+ <td>beforea1/1</td>
+ </tr>
+
+ <tr>
+ <td>beforea2/1</td>
+ </tr>
+
+ <tr>
+ <td>beforea3/1</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>beforea3/1</td>
+
+ <td>beforea3/2</td>
+
+ <td>beforea3/3</td>
+ </tr>
+</table>
+
+<table>
+ <tr>
+ <td>a1/1after</td>
+ </tr>
+
+ <tr>
+ <td>a2/1after</td>
+ </tr>
+
+ <tr>
+ <td>a3/1after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1after</td>
+
+ <td>a3/2after</td>
+
+ <td>a3/3after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>beforea1/1after</td>
+ </tr>
+
+ <tr>
+ <td>beforea2/1after</td>
+ </tr>
+
+ <tr>
+ <td>beforea3/1after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>beforea3/1after</td>
+
+ <td>beforea3/2after</td>
+
+ <td>beforea3/3after</td>
+ </tr>
+</table>
+
+<table></table>
+<table>
+ <tr></tr>
+</table>
+
+
+<table border="1" width="100%">
+ <tr>
+ <td>a1/1 </td>
+ </tr>
+
+ <tr>
+ <td>a2/1 </td>
+
+ <td>a2/2 </td>
+ </tr>
+
+ <tr>
+ <td>a3/1 </td>
+
+ <td>a3/2 </td>
+
+ <td>a3/3 </td>
+ </tr>
+</table>
+
+
+
+<table border="4">
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a1/1 </td>
+ </tr>
+
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a2/1 </td>
+
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a2/2 </td>
+ </tr>
+
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a3/1 </td>
+
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a3/2 </td>
+
+ <td>
+ <table>
+ <tr>
+ <td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>b2/1 </td>
+
+ <td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>b3/1 </td>
+
+ <td>b3/2 </td>
+
+ <td>b3/3 </td>
+ </tr>
+ </table>
+
+ a3/3 </td>
+ </tr>
+</table>
+
+<table border="5" width="100%">
+ <tr>
+ <td>b3/1</td>
+
+ <td>b3/2</td>
+
+ <td>b3/3</td>
+ </tr>
+ <tr>
+ <td>a3/1 </td>
+
+ <td>a3/2 </td>
+
+ <td>a3/3 </td>
+ </tr>
+</table>
+
+<table border="6" width="100%">
+ <tr>
+ <td>a2/1</td>
+ </tr>
+ <tr>
+ <td>a1/1 </td>
+ </tr>
+
+ <tr>
+ <td>a3/1</td>
+ </tr>
+ <tr>
+ <td>a2/1 </td>
+ </tr>
+</table>
+
+<table border="7">
+ <tr>
+ <TD BGCOLOR="#F4A460">a1/1 </td>
+ </tr>
+
+ <tr>
+ <TD BGCOLOR="#A4A4B4">a2/1 </td>
+
+ <TD BGCOLOR="#7CFC00">a2/2 </td>
+ </tr>
+
+ <tr>
+ <TD BGCOLOR="#F4A460">a3/1 </td>
+
+ <TD BGCOLOR="#FFFF00">a3/2 </td>
+
+ <TD BGCOLOR="#F4A460">a3/3 </td>
+ </tr>
+</table>
+
+
+<table border="8">
+ <tr>
+ <TD BGCOLOR="#F4A460">a1/1 </td>
+ <TD BGCOLOR="#FFFF00">a1/2 </td>
+ </tr>
+ <tr>
+ <TD BGCOLOR="#A4A4B4">a2/1 </td>
+ <TD BGCOLOR="#7CFC00">a2/2 </td>
+ </tr>
+</table>
+
+<table border="9" width="100%">
+ <tr>
+ <td><table border="10">
+ <tr>
+ <td valign="top">
+ <a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
+ </tr>
+
+ <tr>
+ <td valign="top">
+ <a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
+ </tr>
+ </table>
+ </td>
+ <td><table border="11">
+ <tr>
+ <td valign="top"><p align="left">
+ <a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left">
+ <a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
+<table border="12" width="100%">
+ <tr>
+ <td><table border="13">
+ <tr>
+ <td valign="top">
+ <a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
+ </tr>
+
+ <tr>
+ <td valign="top">
+ <a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
+ </tr>
+ </table>
+ </td>
+ <td><table border="14">
+ <tr>
+ <td valign="top"><p align="left">
+ <a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left">
+ <a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left">
+ <a
href="inhalt.htm?Kategorie=Veranstaltungen">Veranstaltungen</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left">
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
+
+</body>
+</html>
+
No revision
No revision
1.1.2.1 +60 -0 embperl/test/cmp/Attic/escraw.htm
No revision
No revision
1.1.2.1 +215 -0 embperl/test/cmp2/Attic/lists.htm
1.1.2.1 +132 -0 embperl/test/cmp2/Attic/loop.htm
1.1.2.1 +57 -0 embperl/test/cmp2/Attic/mix.htm
1.1.2.1 +112 -0 embperl/test/cmp2/Attic/tagscan.htm
No revision
No revision
1.13.4.1 +10 -80 embperl/test/html/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escape.htm,v
retrieving revision 1.13
retrieving revision 1.13.4.1
diff -u -r1.13 -r1.13.4.1
--- escape.htm 2000/08/17 07:32:10 1.13
+++ escape.htm 2000/09/13 18:14:06 1.13.4.1
@@ -34,6 +34,7 @@
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 12b: <A HREF=12b >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">
@@ -43,12 +44,15 @@
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 via Array A <A HREF="http://localhost/tests?[+ [ %A ] +]">
-Hash in A <A HREF="http://localhost/tests?[+ \\%A +]">
-Array in A <A HREF="http://localhost/tests?[+ \@A +]">
-
-
+[- %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 +]">
+
+[- %H = (A => 1, B => 2) ; @H = (X, 9, Y, 8, Z, 7) -]
+Hash in H <A HREF="http://localhost/tests?[+ \\%H +]">
+Array in H <A HREF="http://localhost/tests?[+ scalar { @H } +]">
+
+
[+ $escmode = 1 +]
Now lets look what we are getting from this:<BR>
@@ -168,80 +172,6 @@
</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>
1.3.6.1 +100 -1 embperl/test/html/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/if.htm,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -r1.3 -r1.3.6.1
--- if.htm 1999/10/05 06:03:43 1.3
+++ if.htm 2000/09/13 18:14:09 1.3.6.1
@@ -28,12 +28,13 @@
[$ endif <br>$]
a4
+[#
[$<br>if $a $]
a <br>
[$ <br> else<br>$]
not a<br>
[$ <br>endif $]
-
+#]
a5
[$ if $a$]
a <br>
@@ -312,6 +313,104 @@
<endif>
+
+
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ [$ if ($badge eq "iit") $]
+ <A HREF="/iit/">
+ [$ else $]
+ <A HREF="/">
+ [$ endif $]
+ <IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+
$badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow"
+].gif[$ endif $]"
+ WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+ [$ if ($badge eq "iit") $]
+ ALT="iit logo"
+ [$ else $]
+ ALT="iii logo"
+ [$ endif $]
+ [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
+
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50');
return false"
+ [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ [$ endif $] qqq >
+
+ </TD>
+</TR>
+</TABLE>
+
+[- $cookie_badge = "iit" ;
+ $server_type = "iii.co.uk" ;
+ $icon_width = 1 ;
+ $icon_height=2; -]
+<TABLE WIDTH="530" BORDER="0">
+ <TR>
+ <TD ALIGN="LEFT">
+ [$ if ($badge eq "iit") $]
+ <A HREF="/iit/">
+ [$ else $]
+ <A HREF="/">
+ [$ endif $]
+ <IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+
$badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow"
+].gif[$ endif $]"
+ WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+ [$ if ($badge eq "iit") $]
+ ALT="iit logo"
+ [$ else $]
+ ALT="iii logo"
+ [$ endif $]
+ [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
+
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50');
return false"
+ [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ [$ endif $]>
+
+ </TD>
+</TR>
+</TABLE>
+
+
+[- $icon_width = 5 ; $icon_height=10; -]
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]>
+
+[- $icon_width = 6 ; $icon_height=11; $server_type="iii" ; $badge = "iit" -]
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]>
+
+<IMG
+[$ if (($server_type eq "iii")) $]
+SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+
$icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ else $]
+SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]"
HEIGHT="[+ $icon_height +]" BORDER="0"
+[$ endif $]
+[$ if ($badge eq "iit") $]
+ ALT="iit logo"
+[$ else $]
+ ALT="iii logo"
+[$ endif $]
+qqq>
+
</body>
1.5.4.1 +97 -102 embperl/test/html/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/loop.htm,v
retrieving revision 1.5
retrieving revision 1.5.4.1
diff -u -r1.5 -r1.5.4.1
--- loop.htm 2000/08/20 18:56:54 1.5
+++ loop.htm 2000/09/13 18:14:10 1.5.4.1
@@ -1,102 +1,97 @@
-
-<html>
-<head>
-<title>Test for Embperl - Loop Metacommand</title>
-</head>
-
-<body>
-
-[- $i = 0 -]
-[$ while $i <= $#ffld $]
- [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
- [- $j = 0 -]
- [$ while $j <= $i $]
- [+ $j++ +]
- [$ endwhile $]
- <BR>
- [- $i++ -]
-[$ endwhile $]
-
-[- $i = 0 -]
-[$ while($i <= 2)$]
- [+ $i++ +]
-[$ endwhile $]
-
-
-[- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
-[- @a = ('a', 'b', 'c', 'd') ; -]
-
-[$ while ($v, $k) = each (%h) $]
- [+ "$v = $k" +]<br>
-[$ endwhile $]
-
-[- $i = 0 -]
-[$ while $i <= $#a $]
- [+ "\@a[$i] = $a[$i]" +]<br>
- [- $i++ -]
-[$ endwhile $]
-
-[- $i = 0 -]
-[$ do $]
- [+ "\@a[$i] = $a[$i]" +]<br>
- [- $i++ -]
-[$ until $i > $#a $]
-
-[$ foreach $v @a $]
- [+ $v +] <br>
-[$ endforeach $]
-
-[$ foreach $v (1, 3, 5, 7, 9) $]
- [+ $v +] <br>
-[$ endforeach $]
-
-[$ foreach $v (1..10) $]
- [+ $v +] <br>
-[$ endforeach $]
-
-[$ foreach $v(1..5) $]
- 2:[+ $v +] <br>
-[$ endforeach $]
-
-[- %hash = ( a=>1, b=>2, c=>3) -]
-[$ foreach $v(keys %hash) $]
- 3:[+ $v +] <br>
-[$ endforeach $]
-
-[- $i = 0 -]
-[$ do $]
- [+ "\@a[$i] = $a[$i]" +]<br>
- [$ while ($v, $k) = each (%h) $]
- [+ "$v = $k" +]<br>
- [$ foreach $fv (1, 3, 5, 7, 9) $]
- [+ $fv +] <br>
- [$ endforeach $]
- [$ foreach $fv () $]
- [+ $fv +] <br>
- [$ while ($wv, $wk) = each (%h) $]
- [+ "$wv = $wk" +]<br>
- [$ endwhile $]
- [$ endforeach $]
- [$ endwhile $]
- [- $i++ -]
-[$ until $i > $#a $]
-
-
-[- undef @a ; undef @b -]
-
-[$ if 1 $]
-
-x
-
- [$ foreach $a (@a) $]
- [$ foreach $b (@b) $]
- [$ endforeach $]
- [$ endforeach $]
-
-y
-
-[$ endif $]
-
-
-</body>
-</html>
+
+<html>
+<head>
+<title>Test for Embperl - Loop Metacommand</title>
+</head>
+
+<body>
+
+[- $i = 0 -]
+[$ while($i <= 2)$]
+ [+ $i++ +]
+[$ endwhile $]
+
+[- $i = 0 -]
+[$ while $i <= $#ffld $]
+ [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
+ [- $j = 0 -]
+ [$ while $j <= $i $]
+ [+ $j++ +]
+ [$ endwhile $]
+ <BR>
+ [- $i++ -]
+[$ endwhile $]
+
+
+[- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
+[- @a = ('a', 'b', 'c', 'd') ; -]
+
+[$ while ($v, $k) = each (%h) $]
+ [+ "$v = $k" +]<br>
+[$ endwhile $]
+
+[- $i = 0 -]
+[$ while $i <= $#a $]
+ [+ "\@a[$i] = $a[$i]" +]<br>
+ [- $i++ -]
+[$ endwhile $]
+
+[- $i = 0 -]
+[$ do $]
+ [+ "\@a[$i] = $a[$i]" +]<br>
+ [- $i++ -]
+[$ until $i > $#a $]
+
+[$ foreach $v (@a) $]
+ [+ $v +] <br>
+[$ endforeach $]
+
+[$ foreach $v (1, 3, 5, 7, 9) $]
+ [+ $v +] <br>
+[$ endforeach $]
+
+[$ foreach $v (1..10) $]
+ [+ $v +] <br>
+[$ endforeach $]
+
+[$ foreach $v(1..5) $]
+ 2:[+ $v +] <br>
+[$ endforeach $]
+
+[- $i = 0 -]
+[$ do $]
+ [+ "\@a[$i] = $a[$i]" +]<br>
+ [$ while ($v, $k) = each (%h) $]
+ [+ "$v = $k" +]<br>
+ [$ foreach $fv (1, 3, 5, 7, 9) $]
+ [+ $fv +] <br>
+ [$ endforeach $]
+ [$ foreach $fv (()) $]
+ [+ $fv +] <br>
+ [$ while ($wv, $wk) = each (%h) $]
+ [+ "$wv = $wk" +]<br>
+ [$ endwhile $]
+ [$ endforeach $]
+ [$ endwhile $]
+ [- $i++ -]
+[$ until $i > $#a $]
+
+
+[- undef @a ; undef @b -]
+
+[$ if 1 $]
+
+x
+
+ [$ foreach $a (@a) $]
+ [$ foreach $b (@b) $]
+ [$ endforeach $]
+ [$ endforeach $]
+
+y
+
+[$ endif $]
+
+
+</body>
+</html>
1.4.6.1 +70 -69 embperl/test/html/object.htm
Index: object.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/object.htm,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -r1.4 -r1.4.6.1
--- object.htm 1999/10/05 06:03:46 1.4
+++ object.htm 2000/09/13 18:14:11 1.4.6.1
@@ -1,69 +1,70 @@
-<html>
-<head>
-<title>Some tests for Embperl</title>
-</head>
-
-
-<body>
-
-[-
-
-package test::object ;
-
-sub id
- {
- my $self = shift ;
-
- return "id $self->{n}" ;
- }
-
-sub name
- {
- my $self = shift ;
-
- return "name $self->{n}" ;
- }
-
-sub new
- {
- my $class = shift ;
- my $n = shift ;
- my $self = {n=>$n} ;
- bless $self, $class ;
- return $self ;
- }
-
--]
-
-
-[-
-test::object->new (0) ;
--]
-
-[-
-$obj[0] = 1 ;
--]
-
-[-
-$obj[0] = test::object->new (0) ;
-
-
-
-$obj[1] = test::object->new (1) ;
-$obj[2] = test::object->new (2) ;
-$obj[3] = test::object->new (3) ;
--]
-
-<TABLE BORDER=0 WIDTH=90%>
- <TR><TH COLSPAN=2><H2>Objects</H2></TH></TR>
- <TR>
- [- $o = $obj[$row] -]
- <TD>
- <A HREF="index.html?id=[+ $o->id+]">[+$o->name+]</A>
- </TD>
- </TR>
-</TABLE>
-
-
-</body>
-</html>
+<html>
+<head>
+<title>Some tests for Embperl</title>
+</head>
+
+
+<body>
+
+[-
+
+package test::object ;
+
+sub id
+ {
+ my $self = shift ;
+
+ return "id $self->{n}" ;
+ }
+
+sub name
+ {
+ my $self = shift ;
+
+ return "name $self->{n}" ;
+ }
+
+sub new
+ {
+ my $class = shift ;
+ my $n = shift ;
+ my $self = {n=>$n} ;
+ bless $self, $class ;
+ return $self ;
+ }
+
+-]
+
+
+[-
+test::object->new (0) ;
+-]
+
+[-
+$obj[0] = 1 ;
+-]
+
+[-
+$obj[0] = test::object->new (0) ;
+
+
+
+$obj[1] = test::object->new (1) ;
+$obj[2] = test::object->new (2) ;
+$obj[3] = test::object->new (3) ;
+-]
+
+<TABLE BORDER=0 WIDTH=90%>
+ [$ if $row == 0 $]<TR><TH COLSPAN=2><H2>Objects</H2></TH></TR>
+ [$endif$]
+ <TR>
+ [- $o = $obj[$row] -]
+ <TD>
+ <A HREF="index.html?id=[+ $o->id+]">[+$o->name+]</A>
+ </TD>
+ </TR>
+</TABLE>
+
+
+</body>
+</html>
1.4.6.1 +231 -235 embperl/test/html/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/table.htm,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -r1.4 -r1.4.6.1
--- table.htm 1999/11/17 07:29:37 1.4
+++ table.htm 2000/09/13 18:14:11 1.4.6.1
@@ -1,235 +1,231 @@
-<html>
-<head>
-<title>HTML table tag in Embperl</title>
-</head>
-
-<body>
-
-<table>
- <tr>
- <td>[+ $c[$row][$col] +] </td>
- </tr>
-</table>
-
-
-<p> $tabmode = default <p>
-
-<hr><p>Display an two dimensional array with one, two and three columns !<BR>
-Please take a look at the source in your browser to see the difference<BR>
-
-[-
- undef @a ;
- undef @b ;
-
- $a[0][0] = 'a1/1' ;
- $a[1][0] = 'a2/1' ;
- $a[1][1] = 'a2/2' ;
- $a[2][0] = 'a3/1' ;
- $a[2][1] = 'a3/2' ;
- $a[2][2] = 'a3/3' ;
-
- $b[0][0] = 'b1/1' ;
- $b[1][0] = 'b2/1' ;
- $b[1][1] = 'b2/2' ;
- $b[2][0] = 'b3/1' ;
- $b[2][1] = 'b3/2' ;
- $b[2][2] = 'b3/3' ;
-
- $maxcol=99 ;
--]
- $a[0][[0] = '1/1' ;<BR>
- $a[1][[0] = '2/1' ;<BR>
- $a[1][[1] = '2/2' ;<BR>
- $a[2][[0] = '3/1' ;<BR>
- $a[2][[1] = '3/2' ;<BR>
- $a[2][[2] = '3/3' ;<BR>
-
-<P>$tabmode = default <P>
-
-<table border="2" width="100%">
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<table border="2" width="100%">
- <tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
- </tr>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<table border="2" width="100%">
- <tr>
- <th>[+ $b[2][$col] +]</th>
- </tr>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<table>
- <tr>
- <td>
- <table>
- <tr>
- <td>[+ $b[$row][$col] +] </td>
- </tr>
- </table>
-
- [+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<table border="3" width="100%">
- <tr>
- <td>[+ $b[2][$col] +]</td>
- </tr>
- <tr>
- <td>[+ $a[2][$col] +] </td>
- </tr>
-</table>
-
-<table border="4" width="100%">
- <tr>
- <td>[+ $a[$row+1][0] +]</td>
- </tr>
- <tr>
- <td>[+ $a[$row][0] +] </td>
- </tr>
-</table>
-
-<table>
- <tr>
- <TD BGCOLOR="[+ ($row &
1)?(($col&1)?'#7CFC00':'#A4A4B4'):(($col&1)?'#FFFF00':'#F4A460') +]">[+ $a[$row][$col]
+] </td>
- </tr>
-</table>
-
-
-[- $a[0][1] = 'a1/2' ; -]
-
-<table>
- <tr>
- <TD BGCOLOR="#F4A460">[+ $a[$row*2][$col*2] +] </td>
- <TD BGCOLOR="#FFFF00">[+ $a[$row*2][$col*2+1] +] </td>
- </tr>
- <tr>
- <TD BGCOLOR="#A4A4B4">[+ $a[$row*2+1][$col*2] +] </td>
- <TD BGCOLOR="#7CFC00">[+ $a[$row*2+1][$col*2+1] +] </td>
- </tr>
-</table>
-
-[- $a[0][1] = undef ; -]
-
-[-
-
-undef @regs ;
-undef @kats ;
-
-$regs[0]{Id} = 'Pfalz' ;
-$regs[1]{Id} = 'Rheinhessen' ;
-
-$kats[0]{Id} = 'Kultur' ;
-$kats[1]{Id} = 'Sport' ;
-
--]
-
- <table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top">
- <a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left">
- <a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
-
-[-
-$kats[2]{Id} = 'Veranstaltungen' ;
-$kats[3]{Id} = '' ;
-
--]
-
-
- <table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top">
- [- $cmp = $regs[$row]{Id} -]
- [$if ($cmp || '') ne '' $]
- <a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
- [$endif$]
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left">
- [- $cmp = $kats[$row]{Id} -]
- [$if ($cmp || '') ne '' $]
- <a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
- [$endif$]
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
-
-<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
-[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]
-
-<table>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-<hr><p> $tabmode=1 + 32 ; <p>
-[- $tabmode=1 + 32 ; -]
-
-<table>
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-optDisableTableScan is set now to: [+ $optDisableTableScan = 1 +] <BR>
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-optDisableTableScan is set now to: [+ $optDisableTableScan = 0 +] <BR>
-optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>[+ $a[$row][$col] +] </td>
- </tr>
-</table>
-
-</body>
-</html>
+<html>
+<head>
+<title>HTML table tag in Embperl</title>
+</head>
+
+<body>
+
+
+<p> $tabmode = default <p>
+
+<hr><p>Display an two dimensional array with one, two and three columns !<BR>
+Please take a look at the source in your browser to see the difference<BR>
+
+[-
+ undef @a ;
+ undef @b ;
+
+ $a[0][0] = 'a1/1' ;
+ $a[1][0] = 'a2/1' ;
+ $a[1][1] = 'a2/2' ;
+ $a[2][0] = 'a3/1' ;
+ $a[2][1] = 'a3/2' ;
+ $a[2][2] = 'a3/3' ;
+
+ $b[0][0] = 'b1/1' ;
+ $b[1][0] = 'b2/1' ;
+ $b[1][1] = 'b2/2' ;
+ $b[2][0] = 'b3/1' ;
+ $b[2][1] = 'b3/2' ;
+ $b[2][2] = 'b3/3' ;
+
+ $maxcol=99 ;
+-]
+ $a[0][[0] = '1/1' ;<BR>
+ $a[1][[0] = '2/1' ;<BR>
+ $a[1][[1] = '2/2' ;<BR>
+ $a[2][[0] = '3/1' ;<BR>
+ $a[2][[1] = '3/2' ;<BR>
+ $a[2][[2] = '3/3' ;<BR>
+
+<P>$tabmode = default <P>
+
+
+<table>
+ <tr>
+ <td>[+ $a[$row][0] +]</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>[+ $a[2][$col] +]</td>
+ </tr>
+</table>
+
+
+<table>
+ <tr>
+ <td>before[+ $a[$row][0] +]</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>before[+ $a[2][$col] +]</td>
+ </tr>
+</table>
+
+<table>
+ <tr>
+ <td>[+ $a[$row][0] +]after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>[+ $a[2][$col] +]after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>before[+ $a[$row][0] +]after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>before[+ $a[2][$col] +]after</td>
+ </tr>
+</table>
+
+<table>
+ <tr>
+ <td>[+ $c[$row] +]</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>[+ $c[$col] +]</td>
+ </tr>
+</table>
+
+
+<table border="1" width="100%">
+ <tr>
+ <td>[+ $a[$row][$col] +] </td>
+ </tr>
+</table>
+
+
+
+<table border="4">
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td>[+ $b[$row][$col] +] </td>
+ </tr>
+ </table>
+
+ [+ $a[$row][$col] +] </td>
+ </tr>
+</table>
+
+<table border="5" width="100%">
+ <tr>
+ <td>[+ $b[2][$col] +]</td>
+ </tr>
+ <tr>
+ <td>[+ $a[2][$col] +] </td>
+ </tr>
+</table>
+
+<table border="6" width="100%">
+ <tr>
+ <td>[+ $a[$row+1][0] +]</td>
+ </tr>
+ <tr>
+ <td>[+ $a[$row][0] +] </td>
+ </tr>
+</table>
+
+<table border="7">
+ <tr>
+ <TD BGCOLOR="[+ ($row &
1)?(($col&1)?'#7CFC00':'#A4A4B4'):(($col&1)?'#FFFF00':'#F4A460') +]">[+ $a[$row][$col]
+] </td>
+ </tr>
+</table>
+
+
+[- $a[0][1] = 'a1/2' ; -]
+
+<table border="8">
+ <tr>
+ <TD BGCOLOR="#F4A460">[+ $a[$row*2][$col*2] +] </td>
+ <TD BGCOLOR="#FFFF00">[+ $a[$row*2][$col*2+1] +] </td>
+ </tr>
+ <tr>
+ <TD BGCOLOR="#A4A4B4">[+ $a[$row*2+1][$col*2] +] </td>
+ <TD BGCOLOR="#7CFC00">[+ $a[$row*2+1][$col*2+1] +] </td>
+ </tr>
+</table>
+
+[- $a[0][1] = undef ; -]
+
+
+[-
+
+undef @regs ;
+undef @kats ;
+
+$regs[0]{Id} = 'Pfalz' ;
+$regs[1]{Id} = 'Rheinhessen' ;
+
+$kats[0]{Id} = 'Kultur' ;
+$kats[1]{Id} = 'Sport' ;
+
+-]
+ <table border="9" width="100%">
+ <tr>
+ <td><table border="10">
+ <tr>
+ <td valign="top">
+ <a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
+ </tr>
+ </table>
+ </td>
+ <td><table border="11">
+ <tr>
+ <td valign="top"><p align="left">
+ <a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
+[-
+$kats[2]{Id} = 'Veranstaltungen' ;
+$kats[3]{Id} = '' ;
+
+-]
+
+ <table border="12" width="100%">
+ <tr>
+ <td><table border="13">
+ <tr>
+ <td valign="top">
+ [- print LOG "row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- print LOG "1row= $row regs=$regs[0]{Id}\n"
; $cmp = $regs[0]->{Id} ; print LOG "2row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- while (($k, $v) = each (%{$regs[0]})) { print LOG "$v=$k;\n"
; } -]
+ [$if ($cmp || '') ne '' $]
+ <a href="inhalt.htm?Region=[+print LOG "row= $row
regs=$regs[0]{Id}\n" ; $regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
+ [$endif$]
+ </tr>
+ </table>
+ </td>
+ <td><table border="14">
+ <tr>
+ <td valign="top"><p align="left">
+ [- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -]
+ [- $cmp = $kats[$row]{Id} -]
+ [$if ($cmp || '') ne '' $]
+ <a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
+ [$endif$]
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
+
+</body>
+</html>
1.3.6.1 +4 -37 embperl/test/html/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscan.htm,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -r1.3 -r1.3.6.1
--- tagscan.htm 1999/10/05 06:03:47 1.3
+++ tagscan.htm 2000/09/13 18:14:13 1.3.6.1
@@ -46,8 +46,10 @@
<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 $]>
@@ -60,43 +62,8 @@
<A HREF="" [$ if $fdat{ VERSION } >= 4 $]
foo="" [$ endif $]>
-
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 1 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-
-
-[+ $fdat{feld2} = 'blabla2' ; +]
-[+ $fdat{feld6} = 'blabla6' ; +]
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
- [- @ks = sort keys %idat -]
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+[- @ks = sort keys %idat -]
<table>
<tr>
No revision
No revision
1.1.2.1 +82 -0 embperl/test/html/Attic/escraw.htm
1.1.2.1 +100 -0 embperl/test/html/Attic/tabmode.htm
1.1.2.1 +44 -0 embperl/test/html/Attic/tagscandisable.htm
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
