richter 00/09/13 22:08:36
Modified: . Tag: Embperl2c Cmd.xs DOM.xs Embperl.pm Embperl.xs
Faq.pod INSTALL.pod Makefile.PL ep.h ep2.h epcmd2.c
epdat.h epmain.c test.pl
test/cmp Tag: Embperl2c errdoc2.htm escape.htm escraw.htm
if.htm loop.htm object.htm table.htm tagscan.htm
tagscandisable.htm
test/cmp2 Tag: Embperl2c input.htm lists.htm loop.htm
mix.htm rawinput.htm tagscan.htm
test/html Tag: Embperl2c escape.htm escraw.htm if.htm
include.htm input.htm inputdisable.htm loop.htm
object.htm table.htm tabmode.htm tagscan.htm
tagscandisable.htm
Log:
Embperl 1 & 2 Source Integration
Revision Changes Path
No revision
No revision
1.1.2.2 +66 -66 embperl/Cmd.xs
Index: Cmd.xs
===================================================================
RCS file: /home/cvs/embperl/Cmd.xs,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- Cmd.xs 2000/09/13 08:40:02 1.1.2.1
+++ Cmd.xs 2000/09/14 05:08:25 1.1.2.2
@@ -1,66 +1,66 @@
-###################################################################################
-#
-# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
-#
-# You may distribute under the terms of either the GNU General Public
-# License or the Artistic License, as specified in the Perl README file.
-# For use with Apache httpd and mod_perl, see also Apache copyright.
-#
-# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
-# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-###################################################################################
-
-
-
-MODULE = HTML::Embperl::Cmd PACKAGE = HTML::Embperl::Cmd PREFIX = embperl_
-
-
-#void
-#embperl_InputText (xDomTree, xNode, sName)
-# int xDomTree
-# int xOldChild
-# char * sName
-#CODE:
-
-
-
-void
-embperl_InputCheck (xDomTree, xNode, sName, sValue)
- int xDomTree
- int xNode
- SV * sName
- SV * sValue
-CODE:
- STRLEN nName ;
- STRLEN nValue ;
- char * sN = SV2String (sName, nName) ;
- char * sV = SV2String (sValue, nValue) ;
- embperlCmd_InputCheck (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV,
nValue) ;
-
-
-void
-embperl_Option (xDomTree, xNode, sName, sValue)
- int xDomTree
- int xNode
- SV * sName
- SV * sValue
-CODE:
- STRLEN nName ;
- STRLEN nValue ;
- char * sN = SV2String (sName, nName) ;
- char * sV = SV2String (sValue, nValue) ;
- embperlCmd_Option (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV,
nValue) ;
-
-
-void
-embperl_Hidden (xDomTree, xNode, sArg)
- int xDomTree
- int xNode
- char * sArg
-CODE:
- embperlCmd_Hidden (pCurrReq, DomTree_self (xDomTree), xNode, sArg) ;
-
-
-
+###################################################################################
+#
+# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+# For use with Apache httpd and mod_perl, see also Apache copyright.
+#
+# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+###################################################################################
+
+
+
+MODULE = HTML::Embperl::Cmd PACKAGE = HTML::Embperl::Cmd PREFIX = embperl_
+
+
+#void
+#embperl_InputText (xDomTree, xNode, sName)
+# int xDomTree
+# int xOldChild
+# char * sName
+#CODE:
+
+
+
+void
+embperl_InputCheck (xDomTree, xNode, sName, sValue)
+ int xDomTree
+ int xNode
+ SV * sName
+ SV * sValue
+CODE:
+ STRLEN nName ;
+ STRLEN nValue ;
+ char * sN = SV2String (sName, nName) ;
+ char * sV = SV2String (sValue, nValue) ;
+ embperlCmd_InputCheck (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV,
nValue) ;
+
+
+void
+embperl_Option (xDomTree, xNode, sName, sValue)
+ int xDomTree
+ int xNode
+ SV * sName
+ SV * sValue
+CODE:
+ STRLEN nName ;
+ STRLEN nValue ;
+ char * sN = SV2String (sName, nName) ;
+ char * sV = SV2String (sValue, nValue) ;
+ embperlCmd_Option (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV,
nValue) ;
+
+
+void
+embperl_Hidden (xDomTree, xNode, sArg)
+ int xDomTree
+ int xNode
+ char * sArg
+CODE:
+ embperlCmd_Hidden (pCurrReq, DomTree_self (xDomTree), xNode, sArg) ;
+
+
+
1.1.2.2 +160 -160 embperl/DOM.xs
Index: DOM.xs
===================================================================
RCS file: /home/cvs/embperl/DOM.xs,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- DOM.xs 2000/09/13 08:40:03 1.1.2.1
+++ DOM.xs 2000/09/14 05:08:25 1.1.2.2
@@ -1,160 +1,160 @@
-###################################################################################
-#
-# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
-#
-# You may distribute under the terms of either the GNU General Public
-# License or the Artistic License, as specified in the Perl README file.
-# For use with Apache httpd and mod_perl, see also Apache copyright.
-#
-# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
-# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-###################################################################################
-
-
-
-MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM PREFIX = embperl_
-
-
-################################################################################
-
-MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Node PREFIX =
embperl_Node_
-
-SV *
-embperl_Node_replaceChildWithCDATA (xDomTree, xOldChild,sText)
- int xDomTree
- int xOldChild
- SV * sText
-PPCODE:
- STRLEN l ;
- char * s = SV2String (sText, l) ;
- Node_replaceChildWithCDATA (DomTree_self(xDomTree), -1, xOldChild, s, l,
(pCurrReq -> nCurrEscMode & 3)== 3?1 + (pCurrReq -> nCurrEscMode & 4):pCurrReq ->
nCurrEscMode, nflgModified | nflgReturn) ;
- pCurrReq -> nCurrEscMode = pCurrReq -> nEscMode ;
- pCurrReq -> bEscModeSet = -1 ;
- /*SvREFCNT_inc (sText) ;*/
- ST(0) = sText ;
- XSRETURN(1) ;
-
-SV *
-embperl_Node_replaceChildWithUrlDATA (xDomTree, xOldChild,sText)
- int xDomTree
- int xOldChild
- SV * sText
-PPCODE:
- SV * sRet = Node_replaceChildWithUrlDATA (xDomTree, xOldChild,sText) ;
-
- ST(0) = sRet ;
- XSRETURN(1) ;
-
-
-void
-embperl_Node_removeChild (xDomTree, xChild)
- int xDomTree
- int xChild
-CODE:
- Node_removeChild (DomTree_self (xDomTree), -1, xChild) ;
-
-
-void
-embperl_Node_appendChild (xDomTree, xParent, nType, sText)
- int xDomTree
- int xParent
- int nType
- SV * sText
-CODE:
- int xNewParent ;
- STRLEN nText ;
- char * sT = SV2String (sText, nText) ;
- tDomTree * pDomTree = DomTree_self(xDomTree) ;
- Node_self (pDomTree,xParent) -> bFlags |= nflgModified | nflgReturn ;
- xNewParent = Node_cloneNode (pDomTree, xParent, 1) ;
- DomTree_selfCheckpoint (pDomTree, xParent, xNewParent) ;
- Node_appendChild (pDomTree, nType, 0, sT, nText, xNewParent, 0, 0) ;
-
-################################################################################
-
-MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Tree PREFIX =
embperl_DomTree_
-
-
-void
-embperl_DomTree_checkpoint (xDomTree, xChild)
- int xDomTree
- int xChild
-CODE:
- pCurrReq -> nCurrEscMode = pCurrReq -> nEscMode ;
- pCurrReq -> bEscModeSet = -1 ;
- DomTree_checkpoint (xDomTree, xChild) ;
-
-void
-embperl_DomTree_discardAfterCheckpoint (xDomTree, xNode)
- int xDomTree
- int xNode
-CODE:
- DomTree_discardAfterCheckpoint (xDomTree, xNode) ;
-
-#void
-#Node_parentNode (xChild)
-# int xChild
-#
-#void
-#Node_firstChild (xChild)
-# int xChild
-
-
-################################################################################
-
-MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Element PREFIX =
embperl_Element_
-
-
-void
-embperl_Element_setAttribut (xDomTree, xNode, sAttr, sText)
- int xDomTree
- int xNode
- SV * sAttr
- SV * sText
-CODE:
- STRLEN nAttr ;
- STRLEN nText ;
- char * sT = SV2String (sText, nText) ;
- char * sA = SV2String (sAttr, nAttr) ;
- tDomTree * pDomTree = DomTree_self (xDomTree) ;
-
- Element_selfSetAttribut (pDomTree, Node_self (pDomTree, xNode), sA, nAttr, sT,
nText, 1) ;
-
-
-
-
-void
-embperl_Element_removeAttribut (xDomTree, xNode, sAttr)
- int xDomTree
- int xNode
- SV * sAttr
-CODE:
- STRLEN nAttr ;
- char * sA = SV2String (sAttr, nAttr) ;
- tDomTree * pDomTree = DomTree_self (xDomTree) ;
-
- Element_selfRemoveAttribut (pDomTree, Node_self (pDomTree, xNode), sA, nAttr,
1) ;
-
-
-################################################################################
-
-MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Attr PREFIX =
embperl_Attr_
-
-
-
-SV *
-embperl_Attr_value (xDomTree, xAttr)
- int xDomTree
- int xAttr
-CODE:
- tDomTree * pDomTree = DomTree_self (xDomTree) ;
- char * sAttrText = NULL ;
-
- Attr_selfValue (pDomTree, Attr_self(pDomTree, xAttr), &sAttrText) ;
- RETVAL = newSVpv (sAttrText, ArrayGetSize (sAttrText)) ;
- StringFree (&sAttrText) ;
-OUTPUT:
- RETVAL
-
+###################################################################################
+#
+# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+# For use with Apache httpd and mod_perl, see also Apache copyright.
+#
+# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+###################################################################################
+
+
+
+MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM PREFIX = embperl_
+
+
+################################################################################
+
+MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Node PREFIX =
embperl_Node_
+
+SV *
+embperl_Node_replaceChildWithCDATA (xDomTree, xOldChild,sText)
+ int xDomTree
+ int xOldChild
+ SV * sText
+PPCODE:
+ STRLEN l ;
+ char * s = SV2String (sText, l) ;
+ Node_replaceChildWithCDATA (DomTree_self(xDomTree), -1, xOldChild, s, l,
(pCurrReq -> nCurrEscMode & 3)== 3?1 + (pCurrReq -> nCurrEscMode & 4):pCurrReq ->
nCurrEscMode, nflgModified | nflgReturn) ;
+ pCurrReq -> nCurrEscMode = pCurrReq -> nEscMode ;
+ pCurrReq -> bEscModeSet = -1 ;
+ /*SvREFCNT_inc (sText) ;*/
+ ST(0) = sText ;
+ XSRETURN(1) ;
+
+SV *
+embperl_Node_replaceChildWithUrlDATA (xDomTree, xOldChild,sText)
+ int xDomTree
+ int xOldChild
+ SV * sText
+PPCODE:
+ SV * sRet = Node_replaceChildWithUrlDATA (xDomTree, xOldChild,sText) ;
+
+ ST(0) = sRet ;
+ XSRETURN(1) ;
+
+
+void
+embperl_Node_removeChild (xDomTree, xChild)
+ int xDomTree
+ int xChild
+CODE:
+ Node_removeChild (DomTree_self (xDomTree), -1, xChild) ;
+
+
+void
+embperl_Node_appendChild (xDomTree, xParent, nType, sText)
+ int xDomTree
+ int xParent
+ int nType
+ SV * sText
+CODE:
+ int xNewParent ;
+ STRLEN nText ;
+ char * sT = SV2String (sText, nText) ;
+ tDomTree * pDomTree = DomTree_self(xDomTree) ;
+ Node_self (pDomTree,xParent) -> bFlags |= nflgModified | nflgReturn ;
+ xNewParent = Node_cloneNode (pDomTree, xParent, 1) ;
+ DomTree_selfCheckpoint (pDomTree, xParent, xNewParent) ;
+ Node_appendChild (pDomTree, nType, 0, sT, nText, xNewParent, 0, 0) ;
+
+################################################################################
+
+MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Tree PREFIX =
embperl_DomTree_
+
+
+void
+embperl_DomTree_checkpoint (xDomTree, xChild)
+ int xDomTree
+ int xChild
+CODE:
+ pCurrReq -> nCurrEscMode = pCurrReq -> nEscMode ;
+ pCurrReq -> bEscModeSet = -1 ;
+ DomTree_checkpoint (xDomTree, xChild) ;
+
+void
+embperl_DomTree_discardAfterCheckpoint (xDomTree, xNode)
+ int xDomTree
+ int xNode
+CODE:
+ DomTree_discardAfterCheckpoint (xDomTree, xNode) ;
+
+#void
+#Node_parentNode (xChild)
+# int xChild
+#
+#void
+#Node_firstChild (xChild)
+# int xChild
+
+
+################################################################################
+
+MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Element PREFIX =
embperl_Element_
+
+
+void
+embperl_Element_setAttribut (xDomTree, xNode, sAttr, sText)
+ int xDomTree
+ int xNode
+ SV * sAttr
+ SV * sText
+CODE:
+ STRLEN nAttr ;
+ STRLEN nText ;
+ char * sT = SV2String (sText, nText) ;
+ char * sA = SV2String (sAttr, nAttr) ;
+ tDomTree * pDomTree = DomTree_self (xDomTree) ;
+
+ Element_selfSetAttribut (pDomTree, Node_self (pDomTree, xNode), sA, nAttr, sT,
nText, 1) ;
+
+
+
+
+void
+embperl_Element_removeAttribut (xDomTree, xNode, sAttr)
+ int xDomTree
+ int xNode
+ SV * sAttr
+CODE:
+ STRLEN nAttr ;
+ char * sA = SV2String (sAttr, nAttr) ;
+ tDomTree * pDomTree = DomTree_self (xDomTree) ;
+
+ Element_selfRemoveAttribut (pDomTree, Node_self (pDomTree, xNode), sA, nAttr,
1) ;
+
+
+################################################################################
+
+MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Attr PREFIX =
embperl_Attr_
+
+
+
+SV *
+embperl_Attr_value (xDomTree, xAttr)
+ int xDomTree
+ int xAttr
+CODE:
+ tDomTree * pDomTree = DomTree_self (xDomTree) ;
+ char * sAttrText = NULL ;
+
+ Attr_selfValue (pDomTree, Attr_self(pDomTree, xAttr), &sAttrText) ;
+ RETVAL = newSVpv (sAttrText, ArrayGetSize (sAttrText)) ;
+ StringFree (&sAttrText) ;
+OUTPUT:
+ RETVAL
+
1.118.4.2 +13 -13 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.1
retrieving revision 1.118.4.2
diff -u -r1.118.4.1 -r1.118.4.2
--- Embperl.pm 2000/09/13 08:37:53 1.118.4.1
+++ Embperl.pm 2000/09/14 05:08:26 1.118.4.2
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.118.4.1 2000/09/13 08:37:53 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.2 2000/09/14 05:08:26 richter Exp $
#
###################################################################################
@@ -24,11 +24,11 @@
require Exporter;
require DynaLoader;
-##ep2##
+##ep2##
#use XML::Embperl::DOM ;
-#use HTML::Embperl::Cmd ;
-use HTML::Embperl::Syntax ;
-##/ep2##
+#use HTML::Embperl::Cmd ;
+use HTML::Embperl::Syntax ;
+##/ep2##
use strict ;
use vars qw(
@@ -87,10 +87,10 @@
@ISA = qw(Exporter DynaLoader);
-##ep2##
+##ep2##
$VERSION = '2.0a7' ;
-##/ep2##
-##ep1##$VERSION = '1.3b6_dev';
+##/ep2##
+##ep1##$VERSION = '1.3b6_dev';
# HTML::Embperl cannot be bootstrapped in nonlazy mode except
# under mod_perl, because its dependencies import symbols like ap_palloc
@@ -686,9 +686,9 @@
$$req{'cookie_path'} = $ENV{EMBPERL_COOKIE_PATH} if (exists
($ENV{EMBPERL_COOKIE_PATH})) ;
$$req{'cookie_expires'} = $ENV{EMBPERL_COOKIE_EXPIRES} if (exists
($ENV{EMBPERL_COOKIE_EXPIRES})) ;
- ##ep2##
+ ##ep2##
$$req{'ep1compat'} = $ENV{EMBPERL_EP1COMPAT} || 0 ;
- ##/ep2##
+ ##/ep2##
}
@@ -1780,9 +1780,9 @@
*{"$package\:\:escmode"} = \$HTML::Embperl::escmode ;
*{"$package\:\:http_headers_out"} = \%HTML::Embperl::http_headers_out ;
*{"$package\:\:req_rec"} = \$HTML::Embperl::req_rec if defined
($HTML::Embperl::req_rec) ;
- ##ep2##
- *{"$package\:\:_ep_node"} = \$HTML::Embperl::_ep_node ;
- ##/ep2##
+ ##ep2##
+ *{"$package\:\:_ep_node"} = \$HTML::Embperl::_ep_node ;
+ ##/ep2##
if (defined (&Apache::exit))
{
1.29.4.2 +15 -15 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.29.4.1
retrieving revision 1.29.4.2
diff -u -r1.29.4.1 -r1.29.4.2
--- Embperl.xs 2000/09/13 08:37:54 1.29.4.1
+++ Embperl.xs 2000/09/14 05:08:26 1.29.4.2
@@ -647,18 +647,18 @@
tReq * r
CODE:
FreeRequest(r) ;
-
-
-#ifdef EP2
-
-INCLUDE: Cmd.xs
-
-INCLUDE: DOM.xs
-
-#endif
-
-# Reste Module, so we get the correct boot function
-
-MODULE = HTML::Embperl PACKAGE = HTML::Embperl PREFIX = embperl_
-
-
+
+
+#ifdef EP2
+
+INCLUDE: Cmd.xs
+
+INCLUDE: DOM.xs
+
+#endif
+
+# Reste Module, so we get the correct boot function
+
+MODULE = HTML::Embperl PACKAGE = HTML::Embperl PREFIX = embperl_
+
+
1.16.4.1 +12 -0 embperl/Faq.pod
Index: Faq.pod
===================================================================
RCS file: /home/cvs/embperl/Faq.pod,v
retrieving revision 1.16
retrieving revision 1.16.4.1
diff -u -r1.16 -r1.16.4.1
--- Faq.pod 2000/09/06 06:24:36 1.16
+++ Faq.pod 2000/09/14 05:08:26 1.16.4.1
@@ -86,6 +86,18 @@
Try recompiling Perl and all modules -- this can sometimes make those
annoying error messages disappear!
+=head2 How can I prevent 'make test' from running some of the tests?
+
+For
+example, I don't allow CGI scripts, so 'make test' fails at CGI. How
+do I run just the other tests?
+
+Try:
+
+ $ make test TESTARGS="--help"
+ # and for just offline and mod_perl:
+ $ make test TESTARGS="-hoe"
+
=head2 Running 'make test' fails with an error message at loading of Embperl
1.12.4.1 +7 -0 embperl/INSTALL.pod
Index: INSTALL.pod
===================================================================
RCS file: /home/cvs/embperl/INSTALL.pod,v
retrieving revision 1.12
retrieving revision 1.12.4.1
diff -u -r1.12 -r1.12.4.1
--- INSTALL.pod 2000/08/17 07:31:57 1.12
+++ INSTALL.pod 2000/09/14 05:08:26 1.12.4.1
@@ -58,8 +58,15 @@
If you have already successfully build and tested C<mod_perl> all modules
will already be there.
+=head2 Options for make test
+C<make test> can take several options, with can be given with the C<TESTARGS>
+parameter:
+ make test TESTARGS="--help"
+
+will show you a list of available option. Most of them you will never need,
+they are mainly nesseccary for debugging I<Embperl> itself.
=head2 WIN 32
1.31.4.2 +4 -4 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.31.4.1
retrieving revision 1.31.4.2
diff -u -r1.31.4.1 -r1.31.4.2
--- Makefile.PL 2000/09/13 08:37:58 1.31.4.1
+++ Makefile.PL 2000/09/14 05:08:26 1.31.4.2
@@ -885,17 +885,17 @@
}
-$d .= ' -DEP2' if ($EP2) ;
-
+$d .= ' -DEP2' if ($EP2) ;
+
$dynlib->{'OTHERLDFLAGS'} .= " $lddebug" ;
WriteMakefile(
'NAME' => 'HTML::Embperl',
'VERSION_FROM' => 'Embperl.pm', # finds $VERSION
- 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epdbg$(OBJ_EXT) ' .
+ 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epdbg$(OBJ_EXT) ' .
($EP2?'epcmd2$(OBJ_EXT) epparse$(OBJ_EXT) epdom$(OBJ_EXT)
epcomp$(OBJ_EXT)':'') . $o,
-# 'XS' => { 'Embperl.xs' => 'Embperl.c', ($EP2?('Cmd.xs' => 'Cmd.c',
'DOM.xs' => 'DOM.c'):())},
+# 'XS' => { 'Embperl.xs' => 'Embperl.c', ($EP2?('Cmd.xs' => 'Cmd.c',
'DOM.xs' => 'DOM.c'):())},
'LIBS' => [''],
'DEFINE' => "$d \$(DEFS)",
'INC' => $i,
1.27.4.2 +10 -10 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.27.4.1
retrieving revision 1.27.4.2
diff -u -r1.27.4.1 -r1.27.4.2
--- ep.h 2000/09/13 08:37:58 1.27.4.1
+++ ep.h 2000/09/14 05:08:26 1.27.4.2
@@ -144,11 +144,11 @@
#endif
#endif
-struct tReq ;
-
-typedef struct tReq req ;
-typedef struct tReq tReq ;
+struct tReq ;
+typedef struct tReq req ;
+typedef struct tReq tReq ;
+
#include "epnames.h"
#ifdef EP2
@@ -529,10 +529,10 @@
/* ---- from epdbg.c ----- */
int SetupDebugger (/*i/o*/ register req * r) ;
+
+
+
+#ifdef EP2
+#include "ep2.h"
+#endif
-
-
-#ifdef EP2
-#include "ep2.h"
-#endif
-
1.1.2.2 +70 -70 embperl/Attic/ep2.h
Index: ep2.h
===================================================================
RCS file: /home/cvs/embperl/Attic/ep2.h,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- ep2.h 2000/09/13 08:40:04 1.1.2.1
+++ ep2.h 2000/09/14 05:08:26 1.1.2.2
@@ -1,70 +1,70 @@
-/*###################################################################################
-#
-# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
-#
-# You may distribute under the terms of either the GNU General Public
-# License or the Artistic License, as specified in the Perl README file.
-# For use with Apache httpd and mod_perl, see also Apache copyright.
-#
-# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
-# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-###################################################################################*/
-
-
-/* ---- from epcmd2.c ----- */
-
-
-void embperlCmd_InputCheck (/*i/o*/ register req * r,
- /*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * pName,
- /*in*/ int nNameLen,
- /*in*/ const char * pVal,
- /*in*/ int nValLen) ;
-
-
-void embperlCmd_Option (/*i/o*/ register req * r,
- /*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * pName,
- /*in*/ int nNameLen,
- /*in*/ const char * pVal,
- /*in*/ int nValLen) ;
-
-int embperlCmd_Hidden (/*i/o*/ register req * r,
- /*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * sArg) ;
-
-
-SV * Node_replaceChildWithUrlDATA (/*in*/ tIndex xDomTree,
- tIndex xOldChild,
- SV * sText) ;
-
-
-/* ---- from epparse.c ----- */
-
-extern struct tTokenTable DefaultTokenTable ;
-
-int BuildTokenTable (/*i/o*/ register req * r,
- /*in*/ HV * pTokenHash,
- /*in*/ const char * pDefEnd,
- /*out*/ struct tTokenTable * pTokenTable) ;
-
-int ParseFile (/*i/o*/ register req * r) ;
-
-
-/* ---- from epcomp.c ----- */
-
-int embperl_CompileInit (void) ;
-
-int embperl_CompileInitItem (/*i/o*/ register req * r,
- /*in*/ HV * pHash,
- /*in*/ int nNodeName,
- /*in*/ int nNodeType,
- /*in*/ int nTagSet) ;
-
-int embperl_CompileDocument (/*i/o*/ register req * r) ;
-
+/*###################################################################################
+#
+# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+# For use with Apache httpd and mod_perl, see also Apache copyright.
+#
+# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+###################################################################################*/
+
+
+/* ---- from epcmd2.c ----- */
+
+
+void embperlCmd_InputCheck (/*i/o*/ register req * r,
+ /*in*/ tDomTree * pDomTree,
+ /*in*/ tNode xNode,
+ /*in*/ const char * pName,
+ /*in*/ int nNameLen,
+ /*in*/ const char * pVal,
+ /*in*/ int nValLen) ;
+
+
+void embperlCmd_Option (/*i/o*/ register req * r,
+ /*in*/ tDomTree * pDomTree,
+ /*in*/ tNode xNode,
+ /*in*/ const char * pName,
+ /*in*/ int nNameLen,
+ /*in*/ const char * pVal,
+ /*in*/ int nValLen) ;
+
+int embperlCmd_Hidden (/*i/o*/ register req * r,
+ /*in*/ tDomTree * pDomTree,
+ /*in*/ tNode xNode,
+ /*in*/ const char * sArg) ;
+
+
+SV * Node_replaceChildWithUrlDATA (/*in*/ tIndex xDomTree,
+ tIndex xOldChild,
+ SV * sText) ;
+
+
+/* ---- from epparse.c ----- */
+
+extern struct tTokenTable DefaultTokenTable ;
+
+int BuildTokenTable (/*i/o*/ register req * r,
+ /*in*/ HV * pTokenHash,
+ /*in*/ const char * pDefEnd,
+ /*out*/ struct tTokenTable * pTokenTable) ;
+
+int ParseFile (/*i/o*/ register req * r) ;
+
+
+/* ---- from epcomp.c ----- */
+
+int embperl_CompileInit (void) ;
+
+int embperl_CompileInitItem (/*i/o*/ register req * r,
+ /*in*/ HV * pHash,
+ /*in*/ int nNodeName,
+ /*in*/ int nNodeType,
+ /*in*/ int nTagSet) ;
+
+int embperl_CompileDocument (/*i/o*/ register req * r) ;
+
1.4.2.3 +1 -1 embperl/Attic/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcmd2.c,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -u -r1.4.2.2 -r1.4.2.3
--- epcmd2.c 2000/09/13 18:13:37 1.4.2.2
+++ epcmd2.c 2000/09/14 05:08:27 1.4.2.3
@@ -336,7 +336,7 @@
SV * pSVValue ;
tNode xNode ;
int i = 0 ;
- I32 l32 ;
+ I32 l32 ;
xOldChild = Node_replaceChildWithCDATA (DomTree_self(xDomTree), -1,
xOldChild, "", 0, 4, nflgModified | nflgReturn) ;
1.20.4.2 +14 -14 embperl/epdat.h
Index: epdat.h
===================================================================
RCS file: /home/cvs/embperl/epdat.h,v
retrieving revision 1.20.4.1
retrieving revision 1.20.4.2
diff -u -r1.20.4.1 -r1.20.4.2
--- epdat.h 2000/09/13 08:38:00 1.20.4.1
+++ epdat.h 2000/09/14 05:08:27 1.20.4.2
@@ -284,18 +284,18 @@
int nSessionMgnt ; /* how to retrieve the session id */
int nInsideSub ; /* Are we inside of a sub? */
int bExit ; /* We should exit the page */
-#ifdef EP2
- bool bEP1Compat ; /* run in Embperl 1.x compatible mode */
-
- /* --- DomTree ---*/
-
- tNode xDocument ;
- tNode xCurrNode ;
- tIndex xCurrDomTree ;
- struct tTokenTable * pTokenTable ;
-
-#endif
+#ifdef EP2
+ bool bEP1Compat ; /* run in Embperl 1.x compatible mode */
+ /* --- DomTree ---*/
+
+ tNode xDocument ;
+ tNode xCurrNode ;
+ tIndex xCurrDomTree ;
+ struct tTokenTable * pTokenTable ;
+
+#endif
+
/* --- Source in memory --- */
tSrcBuf Buf ; /* Buffer */
@@ -400,9 +400,9 @@
HV * pUserHash ; /* User data */
HV * pModHash ; /* Module data */
HV * pHeaderHash ;/* http headers */
-#ifdef EP2
- AV * pDomTreeAV ; /* holds all DomTrees alocated during the request */
-#endif
+#ifdef EP2
+ AV * pDomTreeAV ; /* holds all DomTrees alocated during the request */
+#endif
/* --- for statistics --- */
1.75.4.2 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.1
retrieving revision 1.75.4.2
diff -u -r1.75.4.1 -r1.75.4.2
--- epmain.c 2000/09/13 08:38:01 1.75.4.1
+++ epmain.c 2000/09/14 05:08:27 1.75.4.2
@@ -3148,7 +3148,7 @@
if (rc == ok)
rc = ReadInputFile (r) ;
- if (rc == ok && r -> Buf.pBuf == NULL && r -> Buf.pFile -> nFilesize == 0)
+ if (rc == ok && r -> Buf.pBuf == NULL && r -> Buf.pFile -> nFilesize == 0)
rc = rcMissingInput ;
/* --- ok so far? if not exit ---- */
1.70.4.5 +439 -439 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.4
retrieving revision 1.70.4.5
diff -u -r1.70.4.4 -r1.70.4.5
--- test.pl 2000/09/13 20:00:42 1.70.4.4
+++ test.pl 2000/09/14 05:08:27 1.70.4.5
@@ -1,389 +1,389 @@
#!/usr/bin/perl --
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
-
-
-@testdata = (
- 'ascii' => { },
- 'pure.htm' => { },
- 'plain.htm' => {
- repeat => 3,
- },
- 'plainblock.htm' => {
- repeat => 2,
- },
- 'error.htm' => {
- 'repeat' => 3,
- 'errors' => 8,
- 'version' => 1,
- },
- 'error.htm' => {
- 'repeat' => 3,
- 'errors' => 7,
- 'version' => 2,
- },
- 'errormismatch.htm' => {
- 'errors' => '1',
- 'version' => 2,
- },
- 'errormismatchcmd.htm' => {
- 'errors' => '1',
- 'version' => 2,
- },
- 'unclosed.htm' => {
- 'errors' => '1',
- },
- 'notfound.htm' => {
- 'errors' => '1',
- },
- 'notallow.xhtm' => {
- 'errors' => '1',
- },
- 'noerr/noerrpage.htm' => {
- 'option' => 2,
- 'errors' => 8,
- 'version' => 1,
- },
- 'errdoc/errdoc.htm' => {
- 'option' => '262144',
- 'errors' => 6,
- 'version' => 1,
- },
- 'errdoc/errdoc.htm' => {
- 'option' => '262144',
- 'errors' => 7,
- 'version' => 2,
- },
- 'errdoc/epl/errdoc2.htm' => {
- 'option' => '262144',
- 'errors' => 6,
- 'version' => 1,
- },
- 'errdoc/epl/errdoc2.htm' => {
- 'option' => '262144',
- 'errors' => 7,
- 'version' => 2,
- },
- 'rawinput/rawinput.htm' => {
- 'option' => '16',
- },
- 'var.htm' => { },
- 'varerr.htm' => {
- 'errors' => '-1',
- },
- 'varerr.htm' => {
- 'errors' => '2',
- 'version' => 1,
- },
- 'escape.htm' => {
- repeat => 2,
- },
- 'escraw.htm' => {
- 'version' => 1,
- },
- 'spaces.htm' => {
- 'version' => 1,
- },
- 'tagscan.htm' => { },
- 'tagscan.htm' => {
- 'debug' => '1',
- },
- 'tagscandisable.htm' => {
- 'version' => 1,
- },
- 'if.htm' => { },
- 'ifperl.htm' => { },
- 'loop.htm' => {
- 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
- },
- 'loopperl.htm' => {
- 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
- },
- 'table.htm' => { },
- 'table.htm' => {
- 'debug' => '1',
- },
- 'tabmode.htm' => {
- 'version' => 1,
- },
- 'lists.htm' => {
- 'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
- },
- 'mix.htm' => { },
- 'nesting.htm' => {
- 'version' => 1,
- },
- 'object.htm' => {
- 'version' => 1,
- 'errors' => '2',
- },
- 'object.htm' => {
- 'version' => 2,
- },
- 'discard.htm' => {
- 'errors' => '12',
- 'version' => 1,
- },
- 'input.htm' => {
- 'query_info' =>
'feld5=Wert5&feld6=Wert6&feld7=Wert7&feld8=Wert8&cb5=cbv5&cb6=cbv6&cb7=cbv7&cb8=cbv8&cb9=ncbv9&cb10=ncbv10&cb11=ncbv11&mult=Wert3&mult=Wert6&esc=a<b&escmult=a>b&escmult=Wert3',
- },
- 'hidden.htm' => {
- 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4',
- },
- 'java.htm' => { },
- 'inputjava.htm' => { },
- 'post.htm' => {
- 'offline' => 0,
- },
- 'upload.htm' => {
- 'query_info' => 'multval=A&multval=B&multval=C&single=S',
- 'offline' => 0,
- },
- 'reqrec.htm' => {
- 'offline' => 0,
- },
- 'reqrec.htm' => {
- 'offline' => 0,
- },
- 'include.htm' => {
- 'version' => 1,
- },
- 'rawinput/include.htm' => {
- 'option' => '16',
- 'version' => 2,
- },
- 'includeerr1.htm' => {
- 'errors' => '1',
- },
- 'includeerr2.htm' => {
- 'errors' => 4,
- 'version' => 1,
- },
- 'includeerr2.htm' => {
- 'errors' => 1,
- 'version' => 2,
- },
- 'registry/Execute.htm' => {
- 'modperl' => 1,
- },
- 'registry/errpage.htm' => {
- 'modperl' => 1,
- 'errors' => '16',
- 'version' => 1,
- },
- 'registry/tied.htm' => {
- 'modperl' => 1,
- 'errors' => '3',
- },
- 'registry/tied.htm' => {
- 'modperl' => 1,
- 'errors' => '3',
- },
- 'callsub.htm' => {
- 'version' => 1,
- },
- 'callsub.htm' => {
- 'version' => 1,
- },
- 'importsub.htm' => {
- 'version' => 1,
- },
- 'importsub.htm' => {
- 'version' => 1,
- },
- 'importsub2.htm' => {
- 'version' => 1,
- },
- 'importmodule.htm' => {
- 'version' => 1,
- },
- 'recursexec.htm' => {
- 'version' => 1,
- },
- 'nph/div.htm' => {
- 'option' => '64',
- },
- 'nph/npherr.htm' => {
- 'option' => '64',
- 'errors' => '8',
- 'version' => 1,
- },
- 'nph/nphinc.htm' => {
- 'option' => '64',
- },
- 'sub.htm' => { },
- 'sub.htm' => { },
- 'exit.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'exit2.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'exit3.htm' => {
- 'version' => 1,
- 'offline' => 0,
- },
- 'chdir.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- },
- 'chdir.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- },
- 'allform/allform.htm' => {
- 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
- 'option' => '8192',
- },
- 'stdout/stdout.htm' => {
- 'option' => '16384',
- 'version' => 1,
- },
- 'nochdir/nochdir.htm' => {
- 'query_info' => 'a=1&b=2',
- 'option' => '384',
- },
- 'match/div.htm' => {
- 'offline' => 0,
- },
- 'match/div.asc' => {
- 'offline' => 0,
- },
- 'http.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'div.htm' => { },
- 'taint.htm' => {
- 'offline' => 0,
- 'errors' => '1',
- },
- 'ofunc/div.htm' => { },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'safe/safe.htm' => {
- 'option' => '4',
- 'errors' => '-1',
- 'version' => 1,
- },
- 'opmask/opmask.htm' => {
- 'option' => '12',
- 'errors' => '-1',
- 'compartment'=> 'TEST',
- 'version' => 1,
- },
- 'opmask/opmasktrap.htm' => {
- 'option' => '12',
- 'errors' => '2',
- 'compartment'=> 'TEST',
- 'version' => 1,
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=0',
- },
- 'setsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'a=1',
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=1',
- },
- 'getnosess.htm' => {
- 'offline' => 0,
- 'query_info' => 'nocookie=2',
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=2',
- },
- 'getsess.htm' => {
- 'offline' => 0,
- },
- 'mdatsess.htm' => {
- 'offline' => 0,
- 'query_info' => 'cnt=3',
- },
- 'execgetsess.htm' => {
- 'offline' => 0,
- },
- 'registry/reggetsess.htm' => {
- 'modperl' => 1,
- },
- 'getsess.htm' => {
- 'offline' => 0,
- },
- 'delsess.htm' => {
- 'offline' => 0,
- },
- 'getdelsess.htm' => {
- 'offline' => 0,
- },
- 'clearsess.htm' => {
- 'offline' => 0,
- },
- 'EmbperlObject/epopage1.htm' => {
- 'offline' => 0,
- },
- 'EmbperlObject/epodiv.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/epopage2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/epopage2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/sub/eponotfound.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj1.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj2.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj3.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/obj/epoobj4.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/base2/epostopdir.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
- 'EmbperlObject/base3/epobaselib.htm' => {
- 'offline' => 0,
- 'version' => 1,
- },
-) ;
-
-for ($i = 0 ; $i < @testdata; $i += 2)
- {
- for ($j = 0; $j < ($testdata[$i+1]->{repeat} || 1); $j++)
- { push @tests, $i ; }
- }
-
-=pod
+
+@testdata = (
+ 'ascii' => { },
+ 'pure.htm' => { },
+ 'plain.htm' => {
+ repeat => 3,
+ },
+ 'plainblock.htm' => {
+ repeat => 2,
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 8,
+ 'version' => 1,
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 7,
+ 'version' => 2,
+ },
+ 'errormismatch.htm' => {
+ 'errors' => '1',
+ 'version' => 2,
+ },
+ 'errormismatchcmd.htm' => {
+ 'errors' => '1',
+ 'version' => 2,
+ },
+ 'unclosed.htm' => {
+ 'errors' => '1',
+ },
+ 'notfound.htm' => {
+ 'errors' => '1',
+ },
+ 'notallow.xhtm' => {
+ 'errors' => '1',
+ },
+ 'noerr/noerrpage.htm' => {
+ 'option' => 2,
+ 'errors' => 8,
+ 'version' => 1,
+ },
+ 'errdoc/errdoc.htm' => {
+ 'option' => '262144',
+ 'errors' => 6,
+ 'version' => 1,
+ },
+ 'errdoc/errdoc.htm' => {
+ 'option' => '262144',
+ 'errors' => 7,
+ 'version' => 2,
+ },
+ 'errdoc/epl/errdoc2.htm' => {
+ 'option' => '262144',
+ 'errors' => 6,
+ 'version' => 1,
+ },
+ 'errdoc/epl/errdoc2.htm' => {
+ 'option' => '262144',
+ 'errors' => 7,
+ 'version' => 2,
+ },
+ 'rawinput/rawinput.htm' => {
+ 'option' => '16',
+ },
+ 'var.htm' => { },
+ 'varerr.htm' => {
+ 'errors' => '-1',
+ },
+ 'varerr.htm' => {
+ 'errors' => '2',
+ 'version' => 1,
+ },
+ 'escape.htm' => {
+ repeat => 2,
+ },
+ 'escraw.htm' => {
+ 'version' => 1,
+ },
+ 'spaces.htm' => {
+ 'version' => 1,
+ },
+ 'tagscan.htm' => { },
+ 'tagscan.htm' => {
+ 'debug' => '1',
+ },
+ 'tagscandisable.htm' => {
+ 'version' => 1,
+ },
+ 'if.htm' => { },
+ 'ifperl.htm' => { },
+ 'loop.htm' => {
+ 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
+ },
+ 'loopperl.htm' => {
+ 'query_info' =>
'erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
+ },
+ 'table.htm' => { },
+ 'table.htm' => {
+ 'debug' => '1',
+ },
+ 'tabmode.htm' => {
+ 'version' => 1,
+ },
+ 'lists.htm' => {
+ 'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
+ },
+ 'mix.htm' => { },
+ 'nesting.htm' => {
+ 'version' => 1,
+ },
+ 'object.htm' => {
+ 'version' => 1,
+ 'errors' => '2',
+ },
+ 'object.htm' => {
+ 'version' => 2,
+ },
+ 'discard.htm' => {
+ 'errors' => '12',
+ 'version' => 1,
+ },
+ 'input.htm' => {
+ 'query_info' =>
'feld5=Wert5&feld6=Wert6&feld7=Wert7&feld8=Wert8&cb5=cbv5&cb6=cbv6&cb7=cbv7&cb8=cbv8&cb9=ncbv9&cb10=ncbv10&cb11=ncbv11&mult=Wert3&mult=Wert6&esc=a<b&escmult=a>b&escmult=Wert3',
+ },
+ 'hidden.htm' => {
+ 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4',
+ },
+ 'java.htm' => { },
+ 'inputjava.htm' => { },
+ 'post.htm' => {
+ 'offline' => 0,
+ },
+ 'upload.htm' => {
+ 'query_info' => 'multval=A&multval=B&multval=C&single=S',
+ 'offline' => 0,
+ },
+ 'reqrec.htm' => {
+ 'offline' => 0,
+ },
+ 'reqrec.htm' => {
+ 'offline' => 0,
+ },
+ 'include.htm' => {
+ 'version' => 1,
+ },
+ 'rawinput/include.htm' => {
+ 'option' => '16',
+ 'version' => 2,
+ },
+ 'includeerr1.htm' => {
+ 'errors' => '1',
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 4,
+ 'version' => 1,
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 1,
+ 'version' => 2,
+ },
+ 'registry/Execute.htm' => {
+ 'modperl' => 1,
+ },
+ 'registry/errpage.htm' => {
+ 'modperl' => 1,
+ 'errors' => '16',
+ 'version' => 1,
+ },
+ 'registry/tied.htm' => {
+ 'modperl' => 1,
+ 'errors' => '3',
+ },
+ 'registry/tied.htm' => {
+ 'modperl' => 1,
+ 'errors' => '3',
+ },
+ 'callsub.htm' => {
+ 'version' => 1,
+ },
+ 'callsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub.htm' => {
+ 'version' => 1,
+ },
+ 'importsub2.htm' => {
+ 'version' => 1,
+ },
+ 'importmodule.htm' => {
+ 'version' => 1,
+ },
+ 'recursexec.htm' => {
+ 'version' => 1,
+ },
+ 'nph/div.htm' => {
+ 'option' => '64',
+ },
+ 'nph/npherr.htm' => {
+ 'option' => '64',
+ 'errors' => '8',
+ 'version' => 1,
+ },
+ 'nph/nphinc.htm' => {
+ 'option' => '64',
+ },
+ 'sub.htm' => { },
+ 'sub.htm' => { },
+ 'exit.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ },
+ 'exit2.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ },
+ 'exit3.htm' => {
+ 'version' => 1,
+ 'offline' => 0,
+ },
+ 'chdir.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ },
+ 'chdir.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ },
+ 'allform/allform.htm' => {
+ 'query_info' => 'a=1&b=2&c=&d=&f=5&g&h=7&=8&=',
+ 'option' => '8192',
+ },
+ 'stdout/stdout.htm' => {
+ 'option' => '16384',
+ 'version' => 1,
+ },
+ 'nochdir/nochdir.htm' => {
+ 'query_info' => 'a=1&b=2',
+ 'option' => '384',
+ },
+ 'match/div.htm' => {
+ 'offline' => 0,
+ },
+ 'match/div.asc' => {
+ 'offline' => 0,
+ },
+ 'http.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'div.htm' => { },
+ 'taint.htm' => {
+ 'offline' => 0,
+ 'errors' => '1',
+ },
+ 'ofunc/div.htm' => { },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ },
+ 'safe/safe.htm' => {
+ 'option' => '4',
+ 'errors' => '-1',
+ 'version' => 1,
+ },
+ 'opmask/opmask.htm' => {
+ 'option' => '12',
+ 'errors' => '-1',
+ 'compartment'=> 'TEST',
+ 'version' => 1,
+ },
+ 'opmask/opmasktrap.htm' => {
+ 'option' => '12',
+ 'errors' => '2',
+ 'compartment'=> 'TEST',
+ 'version' => 1,
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=0',
+ },
+ 'setsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'a=1',
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=1',
+ },
+ 'getnosess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'nocookie=2',
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=2',
+ },
+ 'getsess.htm' => {
+ 'offline' => 0,
+ },
+ 'mdatsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'cnt=3',
+ },
+ 'execgetsess.htm' => {
+ 'offline' => 0,
+ },
+ 'registry/reggetsess.htm' => {
+ 'modperl' => 1,
+ },
+ 'getsess.htm' => {
+ 'offline' => 0,
+ },
+ 'delsess.htm' => {
+ 'offline' => 0,
+ },
+ 'getdelsess.htm' => {
+ 'offline' => 0,
+ },
+ 'clearsess.htm' => {
+ 'offline' => 0,
+ },
+ 'EmbperlObject/epopage1.htm' => {
+ 'offline' => 0,
+ },
+ 'EmbperlObject/epodiv.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/epopage2.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/epopage2.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/sub/eponotfound.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj1.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj2.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj3.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/obj/epoobj4.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/base2/epostopdir.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+ 'EmbperlObject/base3/epobaselib.htm' => {
+ 'offline' => 0,
+ 'version' => 1,
+ },
+) ;
+
+for ($i = 0 ; $i < @testdata; $i += 2)
+ {
+ for ($j = 0; $j < ($testdata[$i+1]->{repeat} || 1); $j++)
+ { push @tests, $i ; }
+ }
+
+
+=pod
@tests = (
'ascii',
'pure.htm',
@@ -803,8 +803,8 @@
{
$_[0] = $1
}
- $_[0] =~ s/\s+/ /g ;
- $_[0] =~ s/\s+>/>/g ;
+ $_[0] =~ s/\s+/ /g ;
+ $_[0] =~ s/\s+>/>/g ;
}
#####################################################
@@ -824,19 +824,19 @@
while (defined ($l1 = <F1>))
{
chompcr ($l1) ;
- while (($l1 =~ /^\s*$/) && 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) ; }
+ while (($l2 =~ /^\s*$/) && defined ($l2 = <F2>))
+ { chompcr ($l2) ; }
}
- last if (!defined ($l2) && !defined ($l1)) ;
-
+ last if (!defined ($l2) && !defined ($l1)) ;
+
if (!defined ($l2))
{
print "\nError in Line $line\nIs:\t$l1\nShould:\t<EOF>\n" ;
@@ -1186,7 +1186,7 @@
$loopcnt = 0 ;
$notseen = 1 ;
%seen = () ;
-$max_sv = 0 ;
+$max_sv = 0 ;
$version = $EP2?2:1 ;
$cp = HTML::Embperl::AddCompartment ('TEST') ;
@@ -1225,26 +1225,26 @@
$ENV{EMBPERL_EP1COMPAT} = $ep1compat ;
print "\nTesting Embperl 1.x compatibility mode...\n\n" if ($ep1compat) ;
- foreach $testno (@tests)
+ foreach $testno (@tests)
{
- $file = $testdata[$testno] ;
- $test = $testdata[$testno+1] ;
- $org = '' ;
- $testversion = $version == 2 && !$ep1compat?2:1 ;
-
+ $file = $testdata[$testno] ;
+ $test = $testdata[$testno+1] ;
+ $org = '' ;
+ $testversion = $version == 2 && !$ep1compat?2:1 ;
+
$testnum++ ;
- next if ($test->{version} && $testversion != $test->{version}) ;
- next if ((defined ($test -> {offline}) && $test -> {offline} == 0)
||
- (!$test -> {offline} && ($test -> {modperl} || $test
-> {cgi} || $test -> {http}))) ;
-
+ next if ($test->{version} && $testversion != $test->{version}) ;
+ next if ((defined ($test -> {offline}) && $test -> {offline} == 0)
||
+ (!$test -> {offline} && ($test -> {modperl} || $test
-> {cgi} || $test -> {http}))) ;
+
next if ($DProf && ($file =~ /safe/)) ;
next if ($DProf && ($file =~ /opmask/)) ;
-
- $errcnt = $test -> {errors} || 0 ;
+
+ $errcnt = $test -> {errors} || 0 ;
$errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
$debug = $test -> {debug} || $defaultdebug ;
- $page = "$inpath/$file" ;
+ $page = "$inpath/$file" ;
$page = "$inpath$testversion/$file" if (-e
"$inpath$testversion/$file") ;
#$page .= '-1' if ($ep1compat && -e "$page-1") ;
@@ -1289,7 +1289,7 @@
if ($err == 0 && $errin != 500 && $file ne 'notfound.htm' && $file ne
'notallow.xhtm')
{
$page =~ /.*\/(.*)$/ ;
- $org = "$cmppath/$1" ;
+ $org = "$cmppath/$1" ;
$org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1")
;
$org .= '56' if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0)
;
#$org .= '-1' if ($ep1compat && -e "$org-1") ;
@@ -1631,26 +1631,26 @@
$n_req = 0 ;
$n = 0 ;
$testnum = -1 + $startnumber;
- foreach $testno (@tests)
- {
- $file = $testdata[$testno] ;
- $test = $testdata[$testno+1] ;
- $org = '' ;
- $testnum++ ;
- $testversion = $version == 2 && !$ep1compat?2:1 ;
-
- next if ($test->{version} && $testversion != $test->{version}) ;
- next if ($loc eq $embploc &&
- ((defined ($test -> {modperl}) && $test -> {modperl} == 0) ||
- (!$test -> {modperl} && ($test -> {offline} || $test ->
{cgi})))) ;
-
- next if ($loc eq $cgiloc &&
- ((defined ($test -> {cgi}) && $test -> {cgi} == 0) ||
- (!$test -> {cgi} && ($test -> {offline} || $test ->
{modperl})))) ;
-
-
+ foreach $testno (@tests)
+ {
+ $file = $testdata[$testno] ;
+ $test = $testdata[$testno+1] ;
+ $org = '' ;
+ $testnum++ ;
+ $testversion = $version == 2 && !$ep1compat?2:1 ;
+
+ next if ($test->{version} && $testversion != $test->{version}) ;
+ next if ($loc eq $embploc &&
+ ((defined ($test -> {modperl}) && $test -> {modperl} == 0) ||
+ (!$test -> {modperl} && ($test -> {offline} || $test ->
{cgi})))) ;
+
+ next if ($loc eq $cgiloc &&
+ ((defined ($test -> {cgi}) && $test -> {cgi} == 0) ||
+ (!$test -> {cgi} && ($test -> {offline} || $test ->
{modperl})))) ;
+
+
-=pod
+=pod
next if ($file =~ /\// && $loc eq $cgiloc) ;
next if ($file eq 'taint.htm' && $loc eq $cgiloc) ;
next if ($file eq 'reqrec.htm' && $loc eq $cgiloc) ;
@@ -1664,10 +1664,10 @@
#next if ($file eq 'notallow.xhtm' && $loc eq $cgiloc && $EPWIN32) ;
next if ($file eq 'clearsess.htm' && !$looptest) ;
next if (($file =~ /EmbperlObject/) && $loc eq $cgiloc) ;
-=cut
- next if ($file eq 'chdir.htm' && $EPWIN32) ;
- next if ($file eq 'notfound.htm' && $loc eq $cgiloc && $EPWIN32) ;
- next if ($file =~ /opmask/ && $EPSTARTUP =~ /_dso/) ;
+=cut
+ next if ($file eq 'chdir.htm' && $EPWIN32) ;
+ next if ($file eq 'notfound.htm' && $loc eq $cgiloc && $EPWIN32) ;
+ next if ($file =~ /opmask/ && $EPSTARTUP =~ /_dso/) ;
if ($file =~ /sess\.htm/)
{
next if ($loc eq $cgiloc && $EPSESSIONCLASS ne 'Embperl') ;
@@ -1680,13 +1680,13 @@
}
}
- $errcnt = $test -> {errors} || 0 ;
- $errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
- $errcnt = -1 if ($EPWIN32 && $loc eq $cgiloc) ;
-
- $debug = $test -> {debug} || $defaultdebug ;
+ $errcnt = $test -> {errors} || 0 ;
+ $errcnt = 7 if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
+ $errcnt = -1 if ($EPWIN32 && $loc eq $cgiloc) ;
+
+ $debug = $test -> {debug} || $defaultdebug ;
$page = "$inpath/$file" ;
- $page = "$inpath$testversion/$file" if (-e "$inpath$testversion/$file")
;
+ $page = "$inpath$testversion/$file" if (-e "$inpath$testversion/$file")
;
if ($opt_nostart)
{
$notseen = 0 ;
@@ -1764,7 +1764,7 @@
{
$page =~ /.*\/(.*)$/ ;
$org = "$cmppath/$1" ;
- $org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1") ;
+ $org = "$cmppath$testversion/$1" if (-e "$cmppath$testversion/$1") ;
$org .= '56' if ($file eq 'varerr.htm' && $^V && $^V ge v5.6.0) ;
#$org .= '-1' if ($opt_ep1 && -e "$org-1") ;
@@ -1819,8 +1819,8 @@
print "Output:\t\t$outfile\n" ;
print "Compared to:\t$org\n" if ($org) ;
print "Log:\t\t$logfile\n" ;
- @p = map { " $_ = $test->{$_}\n" } keys %$test if (ref ($test) eq 'HASH') ;
- print "Testparameter:\n @p" if (@p) ;
+ @p = map { " $_ = $test->{$_}\n" } keys %$test if (ref ($test) eq 'HASH') ;
+ print "Testparameter:\n @p" if (@p) ;
print "\n ERRORS detected! NOT all test have been passed successfully\n\n" ;
}
else
No revision
No revision
1.2.4.2 +1 -1 embperl/test/cmp/errdoc2.htm
Index: errdoc2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/errdoc2.htm,v
retrieving revision 1.2.4.1
retrieving revision 1.2.4.2
diff -u -r1.2.4.1 -r1.2.4.2
--- errdoc2.htm 2000/09/13 08:38:15 1.2.4.1
+++ errdoc2.htm 2000/09/14 05:08:29 1.2.4.2
@@ -12,7 +12,7 @@
^prev: Apache=SCALAR
next:
^last: Apache=SCALAR
-^There are 1(2|5) errormessages:
+^There are 1(2|3|5) errormessages:
<table border=1>
^ <tr><td>\[\d+\]ERR: 32: Line 13: Warning in Perl code: Use of uninitialized
value
1.19.4.2 +6 -6 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.19.4.1
retrieving revision 1.19.4.2
diff -u -r1.19.4.1 -r1.19.4.2
--- escape.htm 2000/09/13 18:13:45 1.19.4.1
+++ escape.htm 2000/09/14 05:08:29 1.19.4.2
@@ -30,7 +30,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|\"12\")>x<\/A>
-^A Tag 12b\: <A HREF=(12b|\"12b\") >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">
@@ -40,11 +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 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">
+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
1.1.2.3 +69 -69 embperl/test/cmp/escraw.htm
Index: escraw.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escraw.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- escraw.htm 2000/09/13 20:00:49 1.1.2.2
+++ escraw.htm 2000/09/14 05:08:29 1.1.2.3
@@ -1,69 +1,69 @@
-
-<html>
-<head>
-<title>Some tests for Embperl escaping</title>
-</head>
-
-<body>
-
-
-$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\>
+
+<html>
+<head>
+<title>Some tests for Embperl escaping</title>
+</head>
+
+<body>
+
+
+$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\>
1.4.6.2 +103 -100 embperl/test/cmp/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/if.htm,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -r1.4.6.1 -r1.4.6.2
--- if.htm 2000/09/13 18:13:50 1.4.6.1
+++ if.htm 2000/09/14 05:08:29 1.4.6.2
@@ -1,100 +1,103 @@
-
-<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>
-
-
+
+<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=".gifSRC="/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.9.4.1 +6 -11 embperl/test/cmp/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/loop.htm,v
retrieving revision 1.9
retrieving revision 1.9.4.1
diff -u -r1.9 -r1.9.4.1
--- loop.htm 2000/08/21 04:22:49 1.9
+++ loop.htm 2000/09/14 05:08:30 1.9.4.1
@@ -6,6 +6,11 @@
<body>
+0
+
+ 1
+
+ 2
erstes = Hallo Wert2 0 <BR>
zweites = Leer zeichen 0
@@ -14,12 +19,7 @@
drittes = !"#*+ 0
1
2 <BR>
- 0
-
- 1
-
- 2
-A = 1<br>
+ A = 1<br>
B = 2<br>
@@ -82,11 +82,6 @@
2:4 <br>
2:5 <br>
-3:a <br>
-
- 3:b <br>
-
- 3:c <br>
@a[0] = a<br>
A = 1<br>
1 <br>
1.5.4.1 +0 -1 embperl/test/cmp/object.htm
Index: object.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/object.htm,v
retrieving revision 1.5
retrieving revision 1.5.4.1
diff -u -r1.5 -r1.5.4.1
--- object.htm 2000/07/17 05:16:23 1.5
+++ object.htm 2000/09/14 05:08:30 1.5.4.1
@@ -7,7 +7,6 @@
<body>
<TABLE BORDER=0 WIDTH=90%>
- <TR><TH COLSPAN=2><H2>Objects</H2></TH></TR>
<TR>
<TD>
<A HREF="index.html?id=id%200">name 0</A>
1.5.6.2 +431 -431 embperl/test/cmp/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/table.htm,v
retrieving revision 1.5.6.1
retrieving revision 1.5.6.2
diff -u -r1.5.6.1 -r1.5.6.2
--- table.htm 2000/09/13 18:13:51 1.5.6.1
+++ table.htm 2000/09/14 05:08:30 1.5.6.2
@@ -1,431 +1,431 @@
-<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>
-
+<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>
+
1.4.6.1 +3 -44 embperl/test/cmp/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/tagscan.htm,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -r1.4 -r1.4.6.1
--- tagscan.htm 1999/10/05 06:02:21 1.4
+++ tagscan.htm 2000/09/14 05:08:30 1.4.6.1
@@ -43,6 +43,8 @@
<body bgcolor="blue" >
<body >
+<body bgcolor="blue">
+<body >
<IMG SRC="img.gif" WIDTH=35 >
@@ -53,50 +55,7 @@
<A HREF="" >
-optDisableHtmlScan is now: 0 <BR>
-optDisableHtmlScan is set now to: 1 <BR>
-optDisableHtmlScan is now: 1 <BR>
-
-
-blabla2
-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>
- <table>
- <tr>
- <td></td><td></td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>VERSION</td><td>3</td>
- </tr>
- </table>
-
-optDisableHtmlScan is now: 1 <BR>
-optDisableHtmlScan is set now to: 0 <BR>
-optDisableHtmlScan is now: 0 <BR>
-
-<table>
- <tr>
- <td>VERSION</td><td>3</td>
- </tr>
-
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
-</table>
+<table></table>
Testing ... length of STUFF=2080<p>
<input type="hidden" name="STUFF"
value="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1.1.2.2 +81 -81 embperl/test/cmp/tagscandisable.htm
Index: tagscandisable.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/tagscandisable.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- tagscandisable.htm 2000/09/13 20:00:51 1.1.2.1
+++ tagscandisable.htm 2000/09/14 05:08:30 1.1.2.2
@@ -1,82 +1,82 @@
-
-
-optDisableHtmlScan is now: 0 <BR>
-optDisableHtmlScan is set now to: 1 <BR>
-optDisableHtmlScan is now: 1 <BR>
-
-
+
+
+optDisableHtmlScan is now: 0 <BR>
+optDisableHtmlScan is set now to: 1 <BR>
+optDisableHtmlScan is now: 1 <BR>
+
+
blabla2
-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>
- <table>
- <tr>
- <td></td><td></td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-</table>
-
-optDisableHtmlScan is now: 1 <BR>
-optDisableHtmlScan is set now to: 0 <BR>
-optDisableHtmlScan is now: 0 <BR>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
-</table>
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2" value="blabla2">
- <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" value="blabla6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
-
- <table>
- <tr>
- <td>feld1</td><td>Wert1</td>
- </tr>
-
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld5</td><td>Wert5</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
- </table>
-
- <table>
- <tr>
- <td>feld2</td><td>blabla2</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>blabla6</td>
- </tr>
- </table>
-
-
+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>
+ <table>
+ <tr>
+ <td></td><td></td>
+ </tr>
+ </table>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+</table>
+
+optDisableHtmlScan is now: 1 <BR>
+optDisableHtmlScan is set now to: 0 <BR>
+optDisableHtmlScan is now: 0 <BR>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+</table>
+
+ <input type="text" name="feld1" value="Wert1">
+ <input type="text" name="feld2" value="blabla2">
+ <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" value="blabla6">
+ <input type="text" size=10 name="feld7">
+ <input type="text" name="feld8" size=10>
+
+ <table>
+ <tr>
+ <td>feld1</td><td>Wert1</td>
+ </tr>
+
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld5</td><td>Wert5</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+ </table>
+
+ <table>
+ <tr>
+ <td>feld2</td><td>blabla2</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>blabla6</td>
+ </tr>
+ </table>
+
+
No revision
No revision
1.1.2.2 +154 -154 embperl/test/cmp2/Attic/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/input.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- input.htm 2000/09/13 19:17:29 1.1.2.1
+++ input.htm 2000/09/14 05:08:31 1.1.2.2
@@ -53,48 +53,48 @@
<input type="checkbox" name="cb11" value="cbv11">
- <input type="checkbox" name="dec" checked value="a & b">
- <input type="checkbox" name="dec" value="a & b">
-
-
+ <input type="checkbox" name="dec" checked value="a & b">
+ <input type="checkbox" name="dec" value="a & b">
+
+
<textarea name="feld1"></textarea>
<textarea name="feld5">Wert5</textarea>
<textarea name="feld1">text1</textarea>
<textarea name="feld5">text5</textarea>
- <table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top"><input type="checkbox" name="Region"
value="Pfalz"><a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
- </tr>
-
- <tr>
- <td valign="top"><input type="checkbox" name="Region"
value="Rheinhessen"><a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Kultur"><a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Sport"><a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Veranstaltungen"><a
href="inhalt.htm?Kategorie=Veranstaltungen">Veranstaltungen</a></p>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
+ <table border="0" width="100%">
+ <tr>
+ <td><table border="0">
+ <tr>
+ <td valign="top"><input type="checkbox" name="Region"
value="Pfalz"><a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
+ </tr>
+
+ <tr>
+ <td valign="top"><input type="checkbox" name="Region"
value="Rheinhessen"><a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
+ </tr>
+ </table>
+ </td>
+ <td><table border="0">
+ <tr>
+ <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Kultur"><a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Sport"><a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><p align="left"><input type="checkbox"
name="Kategorie" value="Veranstaltungen"><a
href="inhalt.htm?Kategorie=Veranstaltungen">Veranstaltungen</a></p>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
<select name="foo">
<option value="feld1">feld1</option>
<option value="feld2">feld2</option>
@@ -184,11 +184,123 @@
<tr>
<td>cb8</td><td>cbv8</td>
</tr>
+
+ <tr>
+ <td>dec</td><td>a & b</td>
+ </tr>
+
+ <tr>
+ <td>feld1</td><td>text1</td>
+ </tr>
+
+ <tr>
+ <td>feld2</td><td></td>
+ </tr>
+
+ <tr>
+ <td>feld3</td><td></td>
+ </tr>
+
+ <tr>
+ <td>feld4</td><td></td>
+ </tr>
+
+ <tr>
+ <td>feld5</td><td>Wert5</td>
+ </tr>
+
+ <tr>
+ <td>feld6</td><td>Wert6</td>
+ </tr>
+
+ <tr>
+ <td>feld7</td><td>Wert7</td>
+ </tr>
+
+ <tr>
+ <td>feld8</td><td>Wert8</td>
+ </tr>
+
+ <tr>
+ <td>mult</td><td>Wert6</td>
+ </tr>
+
+ <tr>
+ <td>neu1</td><td>no</td>
+ </tr>
+
+ <tr>
+ <td>neu2</td><td></td>
+ </tr>
+
+ <tr>
+ <td>neu3</td><td>>></td>
+ </tr>
+
+ <tr>
+ <td>undef</td><td>no</td>
+ </tr>
+ </table>
+
+
+
+ <select name="feld5">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5" selected>Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <input type="checkbox" value="Wert1" name="mult">
+ <input type="checkbox" value="Wert1" name="mult">
+ <input type="checkbox" value="Wert2" name="mult">
+ <input type="checkbox" value="Wert2" name="mult">
+ <input type="checkbox" value="Wert3" name="mult" checked>
+ <input type="checkbox" value="Wert3" name="mult" checked>
+ <input type="checkbox" value="Wert4" name="mult">
+ <input type="checkbox" value="Wert4" name="mult">
+ <input type="checkbox" value="Wert5" name="mult">
+ <input type="checkbox" value="Wert5" name="mult">
+ <input type="checkbox" value="Wert6" name="mult" checked>
+ <input type="checkbox" value="Wert6" name="mult" checked>
+ <input type="checkbox" value="Wert7" name="mult">
+ <input type="checkbox" value="Wert7" name="mult">
+
+ ks = cb1 cb2 cb5 cb6 cb7 cb8 dec feld1 feld2 feld3 feld4 feld5 feld6 feld7
feld8 mult neu1 neu2 neu3 undef<p>
+
+ <table border=10>
+ <tr>
+ <td>cb1</td><td>cbv1</td>
+ </tr>
+
+ <tr>
+ <td>cb2</td><td>cbv2</td>
+ </tr>
+
+ <tr>
+ <td>cb5</td><td>cbv5</td>
+ </tr>
+
+ <tr>
+ <td>cb6</td><td>cbv6</td>
+ </tr>
+
+ <tr>
+ <td>cb7</td><td>cbv7</td>
+ </tr>
+
+ <tr>
+ <td>cb8</td><td>cbv8</td>
+ </tr>
+
+ <tr>
+ <td>dec</td><td>a & b</td>
+ </tr>
- <tr>
- <td>dec</td><td>a & b</td>
- </tr>
-
<tr>
<td>feld1</td><td>text1</td>
</tr>
@@ -241,121 +353,9 @@
<td>undef</td><td>no</td>
</tr>
</table>
+
+</form>
-
-
- <select name="feld5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5" selected>Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <input type="checkbox" value="Wert1" name="mult">
- <input type="checkbox" value="Wert1" name="mult">
- <input type="checkbox" value="Wert2" name="mult">
- <input type="checkbox" value="Wert2" name="mult">
- <input type="checkbox" value="Wert3" name="mult" checked>
- <input type="checkbox" value="Wert3" name="mult" checked>
- <input type="checkbox" value="Wert4" name="mult">
- <input type="checkbox" value="Wert4" name="mult">
- <input type="checkbox" value="Wert5" name="mult">
- <input type="checkbox" value="Wert5" name="mult">
- <input type="checkbox" value="Wert6" name="mult" checked>
- <input type="checkbox" value="Wert6" name="mult" checked>
- <input type="checkbox" value="Wert7" name="mult">
- <input type="checkbox" value="Wert7" name="mult">
-
- ks = cb1 cb2 cb5 cb6 cb7 cb8 dec feld1 feld2 feld3 feld4 feld5 feld6 feld7
feld8 mult neu1 neu2 neu3 undef<p>
-
- <table border=10>
- <tr>
- <td>cb1</td><td>cbv1</td>
- </tr>
-
- <tr>
- <td>cb2</td><td>cbv2</td>
- </tr>
-
- <tr>
- <td>cb5</td><td>cbv5</td>
- </tr>
-
- <tr>
- <td>cb6</td><td>cbv6</td>
- </tr>
-
- <tr>
- <td>cb7</td><td>cbv7</td>
- </tr>
-
- <tr>
- <td>cb8</td><td>cbv8</td>
- </tr>
-
- <tr>
- <td>dec</td><td>a & b</td>
- </tr>
-
- <tr>
- <td>feld1</td><td>text1</td>
- </tr>
-
- <tr>
- <td>feld2</td><td></td>
- </tr>
-
- <tr>
- <td>feld3</td><td></td>
- </tr>
-
- <tr>
- <td>feld4</td><td></td>
- </tr>
-
- <tr>
- <td>feld5</td><td>Wert5</td>
- </tr>
-
- <tr>
- <td>feld6</td><td>Wert6</td>
- </tr>
-
- <tr>
- <td>feld7</td><td>Wert7</td>
- </tr>
-
- <tr>
- <td>feld8</td><td>Wert8</td>
- </tr>
-
- <tr>
- <td>mult</td><td>Wert6</td>
- </tr>
-
- <tr>
- <td>neu1</td><td>no</td>
- </tr>
-
- <tr>
- <td>neu2</td><td></td>
- </tr>
-
- <tr>
- <td>neu3</td><td>>></td>
- </tr>
-
- <tr>
- <td>undef</td><td>no</td>
- </tr>
- </table>
-
-</form>
-
</body>
</html>
1.1.2.2 +214 -214 embperl/test/cmp2/Attic/lists.htm
Index: lists.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/lists.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- lists.htm 2000/09/13 18:13:57 1.1.2.1
+++ lists.htm 2000/09/14 05:08:31 1.1.2.2
@@ -1,215 +1,215 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type"
-content="text/html; charset=iso-8859-1">
-<title>Lists</title>
-</head>
-
-<body bgcolor="#FFFFFF">
-
-</p>
-<hr>
-<P>OL Tag</P>
-<ol>
- <li>1 = A</li>
-
- <li>2 = B</li>
-
- <li>3 = C</li>
-
- <li>4 = D</li>
-
- <li>5 = E</li>
-
- <li>6 = F</li>
-</ol>
-
-<hr>
-<P>UL Tag</P>
-<ul>
- <li>1 = A</li>
-
- <li>2 = B</li>
-
- <li>3 = C</li>
-
- <li>4 = D</li>
-
- <li>5 = E</li>
-
- <li>6 = F</li>
-</ul>
-
-<hr>
-<form method="POST">
- <P>Select Tag</P>
-
- If you request this document with list.htm?sel=n you can specify that the
- nth element of the dropdownlist is initialy selected
-
-
- <p><select name="D1" size="1">
- <option value="A" >1</option>
-
- <option value="B" SELECTED>2</option>
-
- <option value="C" >3</option>
-
- <option value="D" >4</option>
-
- <option value="E" >5</option>
-
- <option value="F" >6</option>
- </select></p>
-</form>
-
-
-<form method="POST">
- <P>Select Tag</P>
-
- If you request this document with list.htm?sel1=x you can specify that the
- element of the dropdownlist is initialy selected
-
-
- <p><select name="SEL1">
- <option value="A">1</option>
-
- <option value="B" selected>2</option>
-
- <option value="C">3</option>
-
- <option value="D">4</option>
-
- <option value="E">5</option>
-
- <option value="F">6</option>
- </select></p>
-</form>
-
-<form method="POST">
- <P>Select Tag</P>
-
- If you request this document with list.htm?sel2=x you can specify that the
- element of the dropdownlist is initialy selected
-
-
- <p><select name="SEL2">
- <option selected value="A">1</option>
- <option value="A" selected>1</option>
- <option value="A" selected size=5>1</option>
-
- <option selected value="B">2</option>
- <option value="B" selected>2</option>
- <option value="B" selected size=5>2</option>
-
- <option selected value="C">3</option>
- <option value="C" selected>3</option>
- <option value="C" selected size=5>3</option>
-
- <option selected value="D">4</option>
- <option value="D" selected>4</option>
- <option value="D" selected size=5>4</option>
-
- <option selected value="E">5</option>
- <option value="E" selected>5</option>
- <option value="E" selected size=5>5</option>
-
- <option selected value="F">6</option>
- <option value="F" selected>6</option>
- <option value="F" selected size=5>6</option>
- </select></p>
- <p><select name="SEL3">
- <option value="A">1</option>
- <option value="A">1</option>
- <option value="A" size=5>1</option>
-
- <option value="B">2</option>
- <option value="B">2</option>
- <option value="B" size=5>2</option>
-
- <option value="C">3</option>
- <option value="C">3</option>
- <option value="C" size=5>3</option>
-
- <option value="D" selected>4</option>
- <option value="D" selected>4</option>
- <option value="D" size=5 selected>4</option>
-
- <option value="E">5</option>
- <option value="E">5</option>
- <option value="E" size=5>5</option>
-
- <option value="F">6</option>
- <option value="F">6</option>
- <option value="F" size=5>6</option>
- </select></p>
- <p><select name="SEL4">
- <option value="aa">aaaa</option>
- <option value="bb">bbbb</option>
- <option value="cc" selected size=5>cccc</option>
- <option value="dd">aaaa</option>
- <option value="ee">bbbb</option>
- <option value="cc" size=5 selected>cccc</option>
- </select></p>
-</form>
-
-
-
-<hr>
-<P>DL Tag</P>
-<dl>
- <dt>1</dt>
- <dd>A</dd>
-
- <dt>2</dt>
- <dd>B</dd>
-
- <dt>3</dt>
- <dd>C</dd>
-
- <dt>4</dt>
- <dd>D</dd>
-
- <dt>5</dt>
- <dd>E</dd>
-
- <dt>6</dt>
- <dd>F</dd>
-</dl>
-
-<hr>
-<P>MENU Tag</P>
-<menu>
- <li>1 = A</li>
-
- <li>2 = B</li>
-
- <li>3 = C</li>
-
- <li>4 = D</li>
-
- <li>5 = E</li>
-
- <li>6 = F</li>
-</menu>
-
-<hr>
-<P>DIR Tag</P>
-<dir>
- <li>1 = A</li>
-
- <li>2 = B</li>
-
- <li>3 = C</li>
-
- <li>4 = D</li>
-
- <li>5 = E</li>
-
- <li>6 = F</li>
-</dir>
-</body>
-</html>
+<html>
-
+<head>
+<meta http-equiv="Content-Type"
+content="text/html; charset=iso-8859-1">
+<title>Lists</title>
+</head>
+
+<body bgcolor="#FFFFFF">
+
+</p>
+<hr>
+<P>OL Tag</P>
+<ol>
+ <li>1 = A</li>
+
+ <li>2 = B</li>
+
+ <li>3 = C</li>
+
+ <li>4 = D</li>
+
+ <li>5 = E</li>
+
+ <li>6 = F</li>
+</ol>
+
+<hr>
+<P>UL Tag</P>
+<ul>
+ <li>1 = A</li>
+
+ <li>2 = B</li>
+
+ <li>3 = C</li>
+
+ <li>4 = D</li>
+
+ <li>5 = E</li>
+
+ <li>6 = F</li>
+</ul>
+
+<hr>
+<form method="POST">
+ <P>Select Tag</P>
+
+ If you request this document with list.htm?sel=n you can specify that the
+ nth element of the dropdownlist is initialy selected
+
+
+ <p><select name="D1" size="1">
+ <option value="A" >1</option>
+
+ <option value="B" SELECTED>2</option>
+
+ <option value="C" >3</option>
+
+ <option value="D" >4</option>
+
+ <option value="E" >5</option>
+
+ <option value="F" >6</option>
+ </select></p>
+</form>
+
+
+<form method="POST">
+ <P>Select Tag</P>
+
+ If you request this document with list.htm?sel1=x you can specify that the
+ element of the dropdownlist is initialy selected
+
+
+ <p><select name="SEL1">
+ <option value="A">1</option>
+
+ <option value="B" selected>2</option>
+
+ <option value="C">3</option>
+
+ <option value="D">4</option>
+
+ <option value="E">5</option>
+
+ <option value="F">6</option>
+ </select></p>
+</form>
+
+<form method="POST">
+ <P>Select Tag</P>
+
+ If you request this document with list.htm?sel2=x you can specify that the
+ element of the dropdownlist is initialy selected
+
+
+ <p><select name="SEL2">
+ <option selected value="A">1</option>
+ <option value="A" selected>1</option>
+ <option value="A" selected size=5>1</option>
+
+ <option selected value="B">2</option>
+ <option value="B" selected>2</option>
+ <option value="B" selected size=5>2</option>
+
+ <option selected value="C">3</option>
+ <option value="C" selected>3</option>
+ <option value="C" selected size=5>3</option>
+
+ <option selected value="D">4</option>
+ <option value="D" selected>4</option>
+ <option value="D" selected size=5>4</option>
+
+ <option selected value="E">5</option>
+ <option value="E" selected>5</option>
+ <option value="E" selected size=5>5</option>
+
+ <option selected value="F">6</option>
+ <option value="F" selected>6</option>
+ <option value="F" selected size=5>6</option>
+ </select></p>
+ <p><select name="SEL3">
+ <option value="A">1</option>
+ <option value="A">1</option>
+ <option value="A" size=5>1</option>
+
+ <option value="B">2</option>
+ <option value="B">2</option>
+ <option value="B" size=5>2</option>
+
+ <option value="C">3</option>
+ <option value="C">3</option>
+ <option value="C" size=5>3</option>
+
+ <option value="D" selected>4</option>
+ <option value="D" selected>4</option>
+ <option value="D" size=5 selected>4</option>
+
+ <option value="E">5</option>
+ <option value="E">5</option>
+ <option value="E" size=5>5</option>
+
+ <option value="F">6</option>
+ <option value="F">6</option>
+ <option value="F" size=5>6</option>
+ </select></p>
+ <p><select name="SEL4">
+ <option value="aa">aaaa</option>
+ <option value="bb">bbbb</option>
+ <option value="cc" selected size=5>cccc</option>
+ <option value="dd">aaaa</option>
+ <option value="ee">bbbb</option>
+ <option value="cc" size=5 selected>cccc</option>
+ </select></p>
+</form>
+
+
+
+<hr>
+<P>DL Tag</P>
+<dl>
+ <dt>1</dt>
+ <dd>A</dd>
+
+ <dt>2</dt>
+ <dd>B</dd>
+
+ <dt>3</dt>
+ <dd>C</dd>
+
+ <dt>4</dt>
+ <dd>D</dd>
+
+ <dt>5</dt>
+ <dd>E</dd>
+
+ <dt>6</dt>
+ <dd>F</dd>
+</dl>
+
+<hr>
+<P>MENU Tag</P>
+<menu>
+ <li>1 = A</li>
+
+ <li>2 = B</li>
+
+ <li>3 = C</li>
+
+ <li>4 = D</li>
+
+ <li>5 = E</li>
+
+ <li>6 = F</li>
+</menu>
+
+<hr>
+<P>DIR Tag</P>
+<dir>
+ <li>1 = A</li>
+
+ <li>2 = B</li>
+
+ <li>3 = C</li>
+
+ <li>4 = D</li>
+
+ <li>5 = E</li>
+
+ <li>6 = F</li>
+</dir>
+</body>
+</html>
+
+
1.1.2.2 +132 -132 embperl/test/cmp2/Attic/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/loop.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- loop.htm 2000/09/13 18:14:00 1.1.2.1
+++ loop.htm 2000/09/14 05:08:31 1.1.2.2
@@ -1,132 +1,132 @@
-
-<html>
-<head>
-<title>Test for Embperl - Loop Metacommand</title>
-</head>
-
-<body>
-
-0
-1
-2
-erstes = Hallo Wert2 0 <BR>
- zweites = Leer zeichen 0 1 <BR>
- drittes = !"#*+ 0 1 2 <BR>
- A = 1<br>
-B = 2<br>
-C = 3<br>
-@a[0] = a<br>
- @a[1] = b<br>
- @a[2] = c<br>
- @a[3] = d<br>
- @a[0] = a<br>
- @a[1] = b<br>
- @a[2] = c<br>
- @a[3] = d<br>
- a <br>
-b <br>
-c <br>
-d <br>
-1 <br>
-3 <br>
-5 <br>
-7 <br>
-9 <br>
-1 <br>
-2 <br>
-3 <br>
-4 <br>
-5 <br>
-6 <br>
-7 <br>
-8 <br>
-9 <br>
-10 <br>
-2:1 <br>
-2:2 <br>
-2:3 <br>
-2:4 <br>
-2:5 <br>
-@a[0] = a<br>
- A = 1<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- B = 2<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- C = 3<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- @a[1] = b<br>
- A = 1<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- B = 2<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- C = 3<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- @a[2] = c<br>
- A = 1<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- B = 2<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- C = 3<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- @a[3] = d<br>
- A = 1<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- B = 2<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- C = 3<br>
- 1 <br>
- 3 <br>
- 5 <br>
- 7 <br>
- 9 <br>
- x
-
- y
-
-</body>
-</html>
-
+
+<html>
+<head>
+<title>Test for Embperl - Loop Metacommand</title>
+</head>
+
+<body>
+
+0
+1
+2
+erstes = Hallo Wert2 0 <BR>
+ zweites = Leer zeichen 0 1 <BR>
+ drittes = !"#*+ 0 1 2 <BR>
+ A = 1<br>
+B = 2<br>
+C = 3<br>
+@a[0] = a<br>
+ @a[1] = b<br>
+ @a[2] = c<br>
+ @a[3] = d<br>
+ @a[0] = a<br>
+ @a[1] = b<br>
+ @a[2] = c<br>
+ @a[3] = d<br>
+ a <br>
+b <br>
+c <br>
+d <br>
+1 <br>
+3 <br>
+5 <br>
+7 <br>
+9 <br>
+1 <br>
+2 <br>
+3 <br>
+4 <br>
+5 <br>
+6 <br>
+7 <br>
+8 <br>
+9 <br>
+10 <br>
+2:1 <br>
+2:2 <br>
+2:3 <br>
+2:4 <br>
+2:5 <br>
+@a[0] = a<br>
+ A = 1<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ B = 2<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ C = 3<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[1] = b<br>
+ A = 1<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ B = 2<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ C = 3<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[2] = c<br>
+ A = 1<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ B = 2<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ C = 3<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[3] = d<br>
+ A = 1<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ B = 2<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ C = 3<br>
+ 1 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ x
+
+ y
+
+</body>
+</html>
+
1.1.2.2 +57 -57 embperl/test/cmp2/Attic/mix.htm
Index: mix.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/mix.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- mix.htm 2000/09/13 18:14:02 1.1.2.1
+++ mix.htm 2000/09/14 05:08:32 1.1.2.2
@@ -1,57 +1,57 @@
-
-<html>
-<head>
-<title>Embperl Tests - Mix top level perl, with subroutines and
metacommands</title>
-</head>
-
-<body>
-
-Here it starts with some HTML Text<P>
-
-All values should be undefined:
-
-<BR>
-
-global value: $a = global value <BR>
-
-$a = <BR>
-
-<BR>
-
-lokal value: $a = lokal value <BR>
-
-again global value: $a = global value <BR>
-
-0 = 1 <br>
- 0 <BR>
- 1 = 4 <br>
- 0 1 <BR>
- 2 = 8 <br>
- 0 1 2 <BR>
- 3 = 17 <br>
- 0 1 2 3 <BR>
- <table>
- <tr>
- <td>0</td><td>b1/1 </td>
- </tr>
-
- <tr>
- <td>1</td><td>b2/1 </td>
-
- <td>1</td><td>b2/2 </td>
- </tr>
-
- <tr>
- <td>2</td><td>b3/1 </td>
-
- <td>2</td><td>b3/2 </td>
-
- <td>2</td><td>b3/3 </td>
- </tr>
-</table>
-
-
-
-</body>
-</html>
-
+
+<html>
+<head>
+<title>Embperl Tests - Mix top level perl, with subroutines and metacommands</title>
+</head>
+
+<body>
+
+Here it starts with some HTML Text<P>
+
+All values should be undefined:
+
+<BR>
+
+global value: $a = global value <BR>
+
+$a = <BR>
+
+<BR>
+
+lokal value: $a = lokal value <BR>
+
+again global value: $a = global value <BR>
+
+0 = 1 <br>
+ 0 <BR>
+ 1 = 4 <br>
+ 0 1 <BR>
+ 2 = 8 <br>
+ 0 1 2 <BR>
+ 3 = 17 <br>
+ 0 1 2 3 <BR>
+ <table>
+ <tr>
+ <td>0</td><td>b1/1 </td>
+ </tr>
+
+ <tr>
+ <td>1</td><td>b2/1 </td>
+
+ <td>1</td><td>b2/2 </td>
+ </tr>
+
+ <tr>
+ <td>2</td><td>b3/1 </td>
+
+ <td>2</td><td>b3/2 </td>
+
+ <td>2</td><td>b3/3 </td>
+ </tr>
+</table>
+
+
+
+</body>
+</html>
+
1.1.2.2 +1 -1 embperl/test/cmp2/Attic/rawinput.htm
Index: rawinput.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/rawinput.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- rawinput.htm 2000/09/13 08:38:22 1.1.2.1
+++ rawinput.htm 2000/09/14 05:08:32 1.1.2.2
@@ -79,4 +79,4 @@
</body>
</html>
-
+
1.1.2.2 +4 -4 embperl/test/cmp2/Attic/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/tagscan.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- tagscan.htm 2000/09/13 18:14:03 1.1.2.1
+++ tagscan.htm 2000/09/14 05:08:32 1.1.2.2
@@ -43,10 +43,10 @@
<body bgcolor="blue" >
<body >
-<body bgcolor="blue" >
-<body >
-
+<body bgcolor="blue" >
+<body >
+
<img src="img.gif" WIDTH=35 >
<img src="img.gif" >
@@ -109,4 +109,4 @@
</body>
</html>
-
+
No revision
No revision
1.13.4.2 +9 -9 embperl/test/html/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escape.htm,v
retrieving revision 1.13.4.1
retrieving revision 1.13.4.2
diff -u -r1.13.4.1 -r1.13.4.2
--- escape.htm 2000/09/13 18:14:06 1.13.4.1
+++ escape.htm 2000/09/14 05:08:33 1.13.4.2
@@ -34,7 +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 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">
@@ -44,14 +44,14 @@
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 +]">
-
-[- %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 } +]">
-
+[- %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 +]
1.1.2.2 +82 -82 embperl/test/html/escraw.htm
Index: escraw.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escraw.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- escraw.htm 2000/09/13 18:14:09 1.1.2.1
+++ escraw.htm 2000/09/14 05:08:33 1.1.2.2
@@ -1,82 +1,82 @@
-
-<html>
-<head>
-<title>Some tests for Embperl escaping</title>
-</head>
-
-<body>
-
-
-[- $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\\\\>' +]
-
+
+<html>
+<head>
+<title>Some tests for Embperl escaping</title>
+</head>
+
+<body>
+
+
+[- $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\\\\>' +]
+
1.3.6.2 +100 -100 embperl/test/html/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/if.htm,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -r1.3.6.1 -r1.3.6.2
--- if.htm 2000/09/13 18:14:09 1.3.6.1
+++ if.htm 2000/09/14 05:08:33 1.3.6.2
@@ -28,13 +28,13 @@
[$ endif <br>$]
a4
-[#
+[#
[$<br>if $a $]
a <br>
[$ <br> else<br>$]
not a<br>
[$ <br>endif $]
-#]
+#]
a5
[$ if $a$]
a <br>
@@ -313,104 +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>
-
+
+
+<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.6.6.2 +8 -8 embperl/test/html/include.htm
Index: include.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/include.htm,v
retrieving revision 1.6.6.1
retrieving revision 1.6.6.2
diff -u -r1.6.6.1 -r1.6.6.2
--- include.htm 2000/09/13 19:17:31 1.6.6.1
+++ include.htm 2000/09/14 05:08:33 1.6.6.2
@@ -99,14 +99,14 @@
-]
-<H1> 8a.) Include a file</H1>
-
-[- Execute ('inc.htm') -]
-
-<H1> 8b.) Include again the same file </H1>
-
-[- Execute ('inc.htm') -]
-
+<H1> 8a.) Include a file</H1>
+
+[- Execute ('inc.htm') -]
+
+<H1> 8b.) Include again the same file </H1>
+
+[- Execute ('inc.htm') -]
+
<H1> 9.) Inculde a file and return output in a scalar</H1>
1.10.4.2 +26 -26 embperl/test/html/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/input.htm,v
retrieving revision 1.10.4.1
retrieving revision 1.10.4.2
diff -u -r1.10.4.1 -r1.10.4.2
--- input.htm 2000/09/13 19:17:31 1.10.4.1
+++ input.htm 2000/09/14 05:08:33 1.10.4.2
@@ -19,9 +19,9 @@
<form action="inhalt.htm" method="POST">
<p> </p>
- <input name=neu1 value="[+ 1 > 2?'yes':'no' +]" >
- <input name=[+ $name || 'undef' +] value="[+ 1 > 2?'yes':'no' +]">
-
+ <input name=neu1 value="[+ 1 > 2?'yes':'no' +]" >
+ <input name=[+ $name || 'undef' +] value="[+ 1 > 2?'yes':'no' +]">
+
<input>
<input >
<input name="feld1">
@@ -36,10 +36,10 @@
<input typo = "text2" >
<input foo>
<input foo >
+
+ <input name=neu2 value="[+ 1 > 2 +]">
+ <input name='neu3' value=">>">
- <input name=neu2 value="[+ 1 > 2 +]">
- <input name='neu3' value=">>">
-
<input type="text" name="feld1" value="Wert1">
<input type="text" name="feld2">
<input type="text" size=10 name="feld3">
@@ -124,24 +124,24 @@
<option value="Wert8">Wert8</option>
</select>
- <select name="feld5">
- <option value="Wert3">Wert3
- <option value="Wert4">Wert4
- <option value="Wert5">Wert5
- </select>
-
- <select name="feld5">
- <option>Wert3</option>
- <option>Wert4</option>
- <option>Wert5</option>
- </select>
-
- <select name="feld5">
- <option>Wert3
- <option>Wert4
- <option>Wert5
- </select>
-
+ <select name="feld5">
+ <option value="Wert3">Wert3
+ <option value="Wert4">Wert4
+ <option value="Wert5">Wert5
+ </select>
+
+ <select name="feld5">
+ <option>Wert3</option>
+ <option>Wert4</option>
+ <option>Wert5</option>
+ </select>
+
+ <select name="feld5">
+ <option>Wert3
+ <option>Wert4
+ <option>Wert5
+ </select>
+
<select name="mult" multiple>
<option value="Wert1">Wert1</option>
<option value="Wert2">Wert2</option>
@@ -201,11 +201,11 @@
<input type="checkbox" value="Wert7" name="mult" checked>
<input type="checkbox" value="Wert7" name="mult">
- ks = [+ @ks = sort keys %idat ; "@ks" +]<p>
+ ks = [+ @ks = sort keys %idat ; "@ks" +]<p>
<table border=10>
<tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i] || '<undef>'}
+]</td>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i] || '<undef>'}
+]</td>
</tr>
</table>
1.1.2.2 +224 -224 embperl/test/html/inputdisable.htm
Index: inputdisable.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/inputdisable.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- inputdisable.htm 2000/09/13 20:00:55 1.1.2.1
+++ inputdisable.htm 2000/09/14 05:08:33 1.1.2.2
@@ -1,224 +1,224 @@
-
- [- @ks = sort keys %idat -]
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
-
-
-
-
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-optDisableInputScan is set now to: [+ $optDisableInputScan = 1 +] <BR>
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-
- <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>
-
- <select name="feld5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-optDisableInputScan is set now to: [+ $optDisableInputScan = 0 +] <BR>
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-
-
- <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>
-
- <select name="feld5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
-
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 1 +] <BR>
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-
- <input type="text" name="qqfeld1" value="Wert1">
- <input type="text" name="qqfeld2">
- <input type="text" size=10 name="qqfeld3">
- <input type="text" name="qqfeld4" size=10>
-
- <input type="checkbox" name="qqfeld1" value="Wert1">
- <input type="checkbox" name="qqfeld2">
- <input type="checkbox" size=10 name="qqfeld3">
- <input type="checkbox" name="qqfeld4" size=10>
-
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 0 +] <BR>
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-
-
-[- $fdat{mult2} = "Wert2\tWert5\tWert6" ; -]
-[- $fdat{mult3} = "Wert4" ; -]
-[- $fdat{mult4} = "Wert1\tWert2\tWert7" ; -]
-[- $fdat{mult5} = "Wert3" ; -]
-
- <input type="checkbox" value="Wert1" name="mult2" checked>
- <input type="checkbox" value="Wert1" name="mult2">
- <input type="checkbox" value="Wert2" name="mult2" checked>
- <input type="checkbox" value="Wert2" name="mult2">
- <input type="checkbox" value="Wert3" name="mult2" checked>
- <input type="checkbox" value="Wert3" name="mult2">
- <input type="checkbox" value="Wert4" name="mult2" checked>
- <input type="checkbox" value="Wert4" name="mult2">
- <input type="checkbox" value="Wert5" name="mult2" checked>
- <input type="checkbox" value="Wert5" name="mult2">
- <input type="checkbox" value="Wert6" name="mult2" checked>
- <input type="checkbox" value="Wert6" name="mult2">
- <input type="checkbox" value="Wert7" name="mult2" checked>
- <input type="checkbox" value="Wert7" name="mult2">
-
-
- <input type="checkbox" value="Wert1" name="mult3" checked>
- <input type="checkbox" value="Wert1" name="mult3">
- <input type="checkbox" value="Wert2" name="mult3" checked>
- <input type="checkbox" value="Wert2" name="mult3">
- <input type="checkbox" value="Wert3" name="mult3" checked>
- <input type="checkbox" value="Wert3" name="mult3">
- <input type="checkbox" value="Wert4" name="mult3" checked>
- <input type="checkbox" value="Wert4" name="mult3">
- <input type="checkbox" value="Wert5" name="mult3" checked>
- <input type="checkbox" value="Wert5" name="mult3">
- <input type="checkbox" value="Wert6" name="mult3" checked>
- <input type="checkbox" value="Wert6" name="mult3">
- <input type="checkbox" value="Wert7" name="mult3" checked>
- <input type="checkbox" value="Wert7" name="mult3">
-
- <select name="mult2">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult3">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult4">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
-
- [- $fdat{mycheck} = 'N' -]
- <input type=checkbox name=mycheck value=N checked>
-
- <select name="esc">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="a<b">a<b</option>
- <option value="a>b">a<b</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="escmult">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="a<b">a<b</option>
- <option value="a>b">a>b</option>
- <option value="Wert8">Wert8</option>
- </select>
-
-optRawInput is now: [+ $optRawInput +] <BR>
-optRawInput is set now to: [+ $optRawInput = 1 +] <BR>
-optRawInput is now: [+ $optRawInput +] <BR>
-
- <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>
-
- <input type="text" name="feld1" value="Wert<1">
- <input type="text" name="feld5" value="Wert<5">
-
- <p><input type="submit" name="Search" value="Absenden"></p>
+
+ [- @ks = sort keys %idat -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
+ </tr>
+ </table>
+
+
+
+
+
+optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
+optDisableInputScan is set now to: [+ $optDisableInputScan = 1 +] <BR>
+optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
+
+ <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>
+
+ <select name="feld5">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <table>
+ <tr>
+ <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
+ </tr>
+ </table>
+
+optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
+optDisableInputScan is set now to: [+ $optDisableInputScan = 0 +] <BR>
+optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
+
+
+ <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>
+
+ <select name="feld5">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <table>
+ <tr>
+ <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
+ </tr>
+ </table>
+
+
+optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
+optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 1 +] <BR>
+optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
+
+ <input type="text" name="qqfeld1" value="Wert1">
+ <input type="text" name="qqfeld2">
+ <input type="text" size=10 name="qqfeld3">
+ <input type="text" name="qqfeld4" size=10>
+
+ <input type="checkbox" name="qqfeld1" value="Wert1">
+ <input type="checkbox" name="qqfeld2">
+ <input type="checkbox" size=10 name="qqfeld3">
+ <input type="checkbox" name="qqfeld4" size=10>
+
+optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
+optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 0 +] <BR>
+optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
+
+
+[- $fdat{mult2} = "Wert2\tWert5\tWert6" ; -]
+[- $fdat{mult3} = "Wert4" ; -]
+[- $fdat{mult4} = "Wert1\tWert2\tWert7" ; -]
+[- $fdat{mult5} = "Wert3" ; -]
+
+ <input type="checkbox" value="Wert1" name="mult2" checked>
+ <input type="checkbox" value="Wert1" name="mult2">
+ <input type="checkbox" value="Wert2" name="mult2" checked>
+ <input type="checkbox" value="Wert2" name="mult2">
+ <input type="checkbox" value="Wert3" name="mult2" checked>
+ <input type="checkbox" value="Wert3" name="mult2">
+ <input type="checkbox" value="Wert4" name="mult2" checked>
+ <input type="checkbox" value="Wert4" name="mult2">
+ <input type="checkbox" value="Wert5" name="mult2" checked>
+ <input type="checkbox" value="Wert5" name="mult2">
+ <input type="checkbox" value="Wert6" name="mult2" checked>
+ <input type="checkbox" value="Wert6" name="mult2">
+ <input type="checkbox" value="Wert7" name="mult2" checked>
+ <input type="checkbox" value="Wert7" name="mult2">
+
+
+ <input type="checkbox" value="Wert1" name="mult3" checked>
+ <input type="checkbox" value="Wert1" name="mult3">
+ <input type="checkbox" value="Wert2" name="mult3" checked>
+ <input type="checkbox" value="Wert2" name="mult3">
+ <input type="checkbox" value="Wert3" name="mult3" checked>
+ <input type="checkbox" value="Wert3" name="mult3">
+ <input type="checkbox" value="Wert4" name="mult3" checked>
+ <input type="checkbox" value="Wert4" name="mult3">
+ <input type="checkbox" value="Wert5" name="mult3" checked>
+ <input type="checkbox" value="Wert5" name="mult3">
+ <input type="checkbox" value="Wert6" name="mult3" checked>
+ <input type="checkbox" value="Wert6" name="mult3">
+ <input type="checkbox" value="Wert7" name="mult3" checked>
+ <input type="checkbox" value="Wert7" name="mult3">
+
+ <select name="mult2">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <select name="mult3">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <select name="mult4">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <select name="mult5">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+
+ [- $fdat{mycheck} = 'N' -]
+ <input type=checkbox name=mycheck value=N checked>
+
+ <select name="esc">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="a<b">a<b</option>
+ <option value="a>b">a<b</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+ <select name="escmult">
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
+ <option value="Wert3">Wert3</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
+ <option value="Wert6">Wert6</option>
+ <option value="Wert7">Wert7</option>
+ <option value="a<b">a<b</option>
+ <option value="a>b">a>b</option>
+ <option value="Wert8">Wert8</option>
+ </select>
+
+optRawInput is now: [+ $optRawInput +] <BR>
+optRawInput is set now to: [+ $optRawInput = 1 +] <BR>
+optRawInput is now: [+ $optRawInput +] <BR>
+
+ <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>
+
+ <input type="text" name="feld1" value="Wert<1">
+ <input type="text" name="feld5" value="Wert<5">
+
+ <p><input type="submit" name="Search" value="Absenden"></p>
1.5.4.2 +97 -97 embperl/test/html/loop.htm
Index: loop.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/loop.htm,v
retrieving revision 1.5.4.1
retrieving revision 1.5.4.2
diff -u -r1.5.4.1 -r1.5.4.2
--- loop.htm 2000/09/13 18:14:10 1.5.4.1
+++ loop.htm 2000/09/14 05:08:33 1.5.4.2
@@ -1,97 +1,97 @@
-
-<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>
+
+<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.2 +68 -70 embperl/test/html/object.htm
Index: object.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/object.htm,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -r1.4.6.1 -r1.4.6.2
--- object.htm 2000/09/13 18:14:11 1.4.6.1
+++ object.htm 2000/09/14 05:08:33 1.4.6.2
@@ -1,70 +1,68 @@
-<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>
+<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>
+ [- $o = $obj[$row] -]
+ <TD>
+ <A HREF="index.html?id=[+ $o->id+]">[+$o->name+]</A>
+ </TD>
+ </TR>
+</TABLE>
+
+
+</body>
+</html>
1.4.6.2 +231 -231 embperl/test/html/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/table.htm,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -r1.4.6.1 -r1.4.6.2
--- table.htm 2000/09/13 18:14:11 1.4.6.1
+++ table.htm 2000/09/14 05:08:33 1.4.6.2
@@ -1,231 +1,231 @@
-<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>
+<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.1.2.2 +100 -100 embperl/test/html/tabmode.htm
Index: tabmode.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tabmode.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- tabmode.htm 2000/09/13 18:14:12 1.1.2.1
+++ tabmode.htm 2000/09/14 05:08:33 1.1.2.2
@@ -1,100 +1,100 @@
-
-
-[-
- 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 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="3" width="100%">
- <tr>
- <th>[+ $b[2][$col] +]</th>
- </tr>
- <tr>
- <td>[+ $a[$row][$col] +] </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>
+
+
+[-
+ 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 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="3" width="100%">
+ <tr>
+ <th>[+ $b[2][$col] +]</th>
+ </tr>
+ <tr>
+ <td>[+ $a[$row][$col] +] </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>
1.3.6.2 +3 -3 embperl/test/html/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscan.htm,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -r1.3.6.1 -r1.3.6.2
--- tagscan.htm 2000/09/13 18:14:13 1.3.6.1
+++ tagscan.htm 2000/09/14 05:08:34 1.3.6.2
@@ -46,9 +46,9 @@
<body [$if $aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
<body [$if !$aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
-<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 $]
1.1.2.3 +73 -73 embperl/test/html/tagscandisable.htm
Index: tagscandisable.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscandisable.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- tagscandisable.htm 2000/09/13 20:00:55 1.1.2.2
+++ tagscandisable.htm 2000/09/14 05:08:34 1.1.2.3
@@ -1,73 +1,73 @@
-
-
-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[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
-<table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
- </tr>
-</table>
-
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
-optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
-
- [- @ks = sort keys %fdat -]
-
-<table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
- </tr>
-</table>
-
- <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[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
- [- @ks = sort keys %fdat -]
-
- <table>
- <tr>
- <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>'
+]</td>
- </tr>
- </table>
-
+
+
+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[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
+ [- @ks = sort keys %fdat -]
+
+<table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
+ </tr>
+</table>
+
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +] <BR>
+optDisableHtmlScan is now: [+ $optDisableHtmlScan +] <BR>
+
+ [- @ks = sort keys %fdat -]
+
+<table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>' +]</td>
+ </tr>
+</table>
+
+ <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[$i=$row] +]</td><td>[+ $idat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
+ [- @ks = sort keys %fdat -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $fdat{$ks[$i]} || '<undef>'
+]</td>
+ </tr>
+ </table>
+
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
