richter 00/06/04 23:44:09
Modified: . Tag: Embperl2 Embperl.xs ep.h epcmd2.c epcomp.c
epdom.c epparse.c eputil.c test.pl
Embperl Tag: Embperl2 Syntax.pm
test/cmp Tag: Embperl2 hidden.htm input.htm inputjava.htm
test/html Tag: Embperl2 tagscan.htm
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.26.2.15 +10 -2 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.26.2.14
retrieving revision 1.26.2.15
diff -u -r1.26.2.14 -r1.26.2.15
--- Embperl.xs 2000/06/04 19:42:40 1.26.2.14
+++ Embperl.xs 2000/06/05 06:44:04 1.26.2.15
@@ -623,7 +623,7 @@
IV nValue ;
char * sN = SV2String (sName, nName) ;
char * sV = SV2String (sValue, nValue) ;
- embperlCmd_InputCheck (DomTree_self (xDomTree), xNode, sN, nName, sV, nValue) ;
+ embperlCmd_InputCheck (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV,
nValue) ;
void
@@ -637,9 +637,17 @@
IV nValue ;
char * sN = SV2String (sName, nName) ;
char * sV = SV2String (sValue, nValue) ;
- embperlCmd_Option (DomTree_self (xDomTree), xNode, sN, nName, sV, 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.23.2.6 +17 -8 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.23.2.5
retrieving revision 1.23.2.6
diff -u -r1.23.2.5 -r1.23.2.6
--- ep.h 2000/06/04 19:42:40 1.23.2.5
+++ ep.h 2000/06/05 06:44:04 1.23.2.6
@@ -381,21 +381,27 @@
/* ---- from epcmd2.c ----- */
-void embperlCmd_InputCheck (/*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * pName,
- /*in*/ int nNameLen,
- /*in*/ const char * pVal,
- /*in*/ int nValLen) ;
+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 (/*in*/ tDomTree * pDomTree,
+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) ;
/* ---- from eputil.c ----- */
@@ -419,6 +425,9 @@
/*in*/ const char * sKey,
/*in*/ char * sDefault) ;
+char * GetHashValueStrDup (/*in*/ HV * pHash,
+ /*in*/ const char * sKey,
+ /*in*/ char * sDefault) ;
const char * GetHtmlArg (/*in*/ const char * pTag,
/*in*/ const char * pArg,
1.1.2.3 +209 -24 embperl/Attic/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcmd2.c,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- epcmd2.c 2000/06/04 19:42:40 1.1.2.2
+++ epcmd2.c 2000/06/05 06:44:04 1.1.2.3
@@ -15,26 +15,33 @@
#include "ep.h"
#include "epmacro.h"
+/* ---------------------------------------------------------------------------- */
+/* */
+/* SetRemove Attribute on html tag ... */
+/* */
+/* ---------------------------------------------------------------------------- */
-static embperlCmd_SetRemove (/*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * pName,
- /*in*/ int nNameLen,
- /*in*/ const char * pVal,
- /*in*/ int nValLen,
- /*in*/ const char * sAttrName,
- /*in*/ int nAttrLen)
+static embperlCmd_SetRemove (/*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,
+ /*in*/ const char * sAttrName,
+ /*in*/ int nAttrLen)
+
{
int bEqual = 0 ;
SV ** ppSV = hv_fetch(pCurrReq -> pFormHash, (char *)pName, nNameLen, 0) ;
+ tNodeData * pNode = Node_self (pDomTree, xNode) ;
if (ppSV)
{
SV ** ppSVerg = hv_fetch(pCurrReq -> pFormSplitHash, (char *)pName,
nNameLen, 0) ;
SV * pSV = SplitFdat (pCurrReq, ppSV, ppSVerg, (char *)pName, nNameLen) ;
- tNodeData * pNode = Node_self (pDomTree, xNode) ;
if (SvTYPE (pSV) == SVt_PVHV)
{ /* -> Hash -> check if key exists */
@@ -51,6 +58,7 @@
if (dlen == nValLen && strncmp (pVal, pData, dlen) == 0)
{
bEqual = 1 ;
+ SvREFCNT_inc (pSV) ;
hv_store (pCurrReq -> pInputHash, (char *)pName, nNameLen, pSV, 0) ;
}
}
@@ -63,34 +71,211 @@
Element_selfRemoveAttribut (pDomTree, pNode, sAttrName, nAttrLen) ;
}
else
- hv_store (pCurrReq -> pInputHash, (char *)pName, nNameLen, newSVpvn ((char
*)pVal, nValLen), 0) ;
+ if (Element_selfGetAttribut (pDomTree, pNode, sAttrName, nAttrLen))
+ hv_store (pCurrReq -> pInputHash, (char *)pName, nNameLen, newSVpvn ((char
*)pVal, nValLen), 0) ;
}
+/* ---------------------------------------------------------------------------- */
+/* */
+/* input checkbox/radio html tag ... */
+/* */
+/* ---------------------------------------------------------------------------- */
+
-void embperlCmd_InputCheck (/*in*/ tDomTree * pDomTree,
- /*in*/ tNode xNode,
- /*in*/ const char * pName,
- /*in*/ int nNameLen,
- /*in*/ const char * pVal,
- /*in*/ int nValLen)
+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)
{
- embperlCmd_SetRemove (pDomTree, xNode, pName, nNameLen, pVal, nValLen,
"checked", 7) ;
+ embperlCmd_SetRemove (r, pDomTree, xNode, pName, nNameLen, pVal, nValLen,
"checked", 7) ;
}
+/* ---------------------------------------------------------------------------- */
+/* */
+/* option html tag ... */
+/* */
+/* ---------------------------------------------------------------------------- */
-void embperlCmd_Option (/*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)
{
- embperlCmd_SetRemove (pDomTree, xNode, pName, nNameLen, pVal, nValLen,
"selected", 8) ;
+ embperlCmd_SetRemove (r, pDomTree, xNode, pName, nNameLen, pVal, nValLen,
"selected", 8) ;
}
+
+
+
+
+/* ---------------------------------------------------------------------------- */
+/* */
+/* hidden command ... */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+
+int embperlCmd_Hidden (/*i/o*/ register req * r,
+ /*in*/ tDomTree * pDomTree,
+ /*in*/ tNode xNode,
+ /*in*/ const char * sArg)
+
+ {
+ char * pKey ;
+ SV * psv ;
+ SV * * ppsv ;
+ HV * pAddHash = r -> pFormHash ;
+ HV * pSubHash = r -> pInputHash ;
+ AV * pSort = NULL ;
+ HE * pEntry ;
+ I32 l ;
+ char * sArgs ;
+ char * sVarName ;
+ char sVar[512] ;
+ int nMax ;
+ STRLEN nKey ;
+
+ EPENTRY (CmdHidden) ;
+
+
+ sArgs = _ep_strdup (r, sArg) ;
+ if (sArgs && *sArgs != '\0')
+ {
+ strncpy (sVar, r -> Buf.sEvalPackage, sizeof (sVar) - 5) ;
+ sVar[r -> Buf.nEvalPackage] = ':' ;
+ sVar[r -> Buf.nEvalPackage+1] = ':' ;
+ sVar[sizeof(sVar) - 1] = '\0' ;
+ nMax = sizeof(sVar) - r -> Buf.nEvalPackage - 3 ;
+
+ if ((sVarName = strtok (sArgs, ", \t\n")))
+ {
+ if (*sVarName == '%')
+ sVarName++ ;
+
+ strncpy (sVar + r -> Buf.nEvalPackage + 2, sVarName, nMax) ;
+
+ if ((pAddHash = perl_get_hv ((char *)sVar, FALSE)) == NULL)
+ {
+ strncpy (r -> errdat1, sVar, sizeof (r -> errdat1) - 1) ;
+ _free (r, sArgs) ;
+ return rcHashError ;
+ }
+
+ if ((sVarName = strtok (NULL, ", \t\n")))
+ {
+ if (*sVarName == '%')
+ sVarName++ ;
+
+ strncpy (sVar + r -> Buf.nEvalPackage + 2, sVarName, nMax) ;
+
+ if ((pSubHash = perl_get_hv ((char *)sVar, FALSE)) == NULL)
+ {
+ strncpy (r -> errdat1, sVar, sizeof (r -> errdat1) - 1) ;
+ _free (r, sArgs) ;
+ return rcHashError ;
+ }
+
+ if ((sVarName = strtok (NULL, ", \t\n")))
+ {
+ if (*sVarName == '@')
+ sVarName++ ;
+
+ strncpy (sVar + r -> Buf.nEvalPackage + 2, sVarName, nMax) ;
+
+ if ((pSort = perl_get_av ((char *)sVar, FALSE)) == NULL)
+ {
+ strncpy (r -> errdat1, sVar, sizeof (r -> errdat1) - 1) ;
+ _free (r, sArgs) ;
+ return rcArrayError ;
+ }
+ }
+ }
+ }
+ }
+ else
+ pSort = r -> pFormArray ;
+
+
+ /* oputc (r, '\n') ; */
+ if (pSort)
+ {
+ int n = AvFILL (pSort) + 1 ;
+ int i ;
+
+ for (i = 0; i < n; i++)
+ {
+ ppsv = av_fetch (pSort, i, 0) ;
+ if (ppsv && (pKey = SvPV(*ppsv, nKey)) && !hv_exists (pSubHash, pKey,
nKey))
+ {
+ IV lppsv ;
+ ppsv = hv_fetch (pAddHash, pKey, nKey, 0) ;
+
+ if (ppsv && (!(r -> bOptions & optNoHiddenEmptyValue) || *SvPV
(*ppsv, lppsv)))
+ {
+ char * s ;
+ IV l ;
+ tNode xInputNode = Node_appendChild (pDomTree, ntypTag, 0,
"input", 5, xNode, 0) ;
+ tNode xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"type", 4, xInputNode, 0) ;
+ Node_appendChild (pDomTree, ntypAttrValue,
0, "hidden", 6, xAttr, 0) ;
+
+ xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"name", 4, xInputNode, 0) ;
+ Node_appendChild (pDomTree, ntypAttrValue,
0, pKey, nKey, xAttr, 0) ;
+ xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"value", 5, xInputNode, 0) ;
+
+ s = SvPV (*ppsv, l) ;
+
+ Node_appendChild (pDomTree, ntypAttrValue, 0, s, l, xAttr,
0) ;
+ }
+ }
+ }
+ }
+ else
+ {
+ hv_iterinit (pAddHash) ;
+ while ((pEntry = hv_iternext (pAddHash)))
+ {
+ IV nKey ;
+ pKey = hv_iterkey (pEntry, &l) ;
+ nKey = strlen (pKey) ;
+ if (!hv_exists (pSubHash, pKey, nKey))
+ {
+ IV lpsv ;
+ psv = hv_iterval (pAddHash, pEntry) ;
+
+ if (!(r -> bOptions & optNoHiddenEmptyValue) || *SvPV (psv, lpsv))
+ {
+ char * s ;
+ IV l ;
+ tNode xInputNode = Node_appendChild (pDomTree, ntypTag, 0,
"input", 5, xNode, 0) ;
+ tNode xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"type", 4, xInputNode, 0) ;
+ Node_appendChild (pDomTree, ntypAttrValue,
0, "hidden", 6, xAttr, 0) ;
+
+ xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"name", 4, xInputNode, 0) ;
+ Node_appendChild (pDomTree, ntypAttrValue,
0, pKey, nKey, xAttr, 0) ;
+ xAttr = Node_appendChild (pDomTree, ntypAttr, 0,
"value", 5, xInputNode, 0) ;
+
+ s = SvPV (psv, l) ;
+
+ Node_appendChild (pDomTree, ntypAttrValue, 0, s, l, xAttr,
0) ;
+ }
+ }
+ }
+ }
+
+ if (sArgs)
+ _free (r, sArgs) ;
+
+ return ok ;
+ }
1.1.2.22 +18 -13 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.1.2.21
retrieving revision 1.1.2.22
diff -u -r1.1.2.21 -r1.1.2.22
--- epcomp.c 2000/06/01 06:38:13 1.1.2.21
+++ epcomp.c 2000/06/05 06:44:04 1.1.2.22
@@ -95,7 +95,7 @@
{
ppSV = av_fetch (pAV, i, 0) ;
if (ppSV && *ppSV)
- pEmbperlCmds[nNodeName].sPerlCode[i] = SvPV (*ppSV, l) ;
+ pEmbperlCmds[nNodeName].sPerlCode[i] = strdup (SvPV (*ppSV, l)) ;
else
pEmbperlCmds[nNodeName].sPerlCode[i] = NULL ;
}
@@ -108,19 +108,19 @@
pEmbperlCmds[nNodeName].sPerlCode = malloc (sizeof (char *)) ;
pEmbperlCmds[nNodeName].numPerlCode = 1 ;
- pEmbperlCmds[nNodeName].sPerlCode[0] = SvPV (*ppSV, l) ;
+ pEmbperlCmds[nNodeName].sPerlCode[0] = sstrdup (SvPV (*ppSV, l)) ;
}
}
- pEmbperlCmds[nNodeName].sPerlCodeEnd = GetHashValueStr (pHash, "perlcodeend",
NULL) ;
- pEmbperlCmds[nNodeName].sStackName = GetHashValueStr (pHash, "stackname",
NULL) ;
- pEmbperlCmds[nNodeName].sPushStack = GetHashValueStr (pHash, "push", NULL) ;
- pEmbperlCmds[nNodeName].sStackName2 = GetHashValueStr (pHash, "stackname2",
NULL) ;
- pEmbperlCmds[nNodeName].sPushStack2 = GetHashValueStr (pHash, "push2", NULL) ;
- pEmbperlCmds[nNodeName].bRemoveNode = GetHashValueInt (pHash, "removenode", 0)
;
- pEmbperlCmds[nNodeName].sMayJump = GetHashValueStr (pHash, "mayjump", NULL)
;
+ pEmbperlCmds[nNodeName].sPerlCodeEnd = GetHashValueStrDup (pHash,
"perlcodeend", NULL) ;
+ pEmbperlCmds[nNodeName].sStackName = GetHashValueStrDup (pHash, "stackname",
NULL) ;
+ pEmbperlCmds[nNodeName].sPushStack = GetHashValueStrDup (pHash, "push",
NULL) ;
+ pEmbperlCmds[nNodeName].sStackName2 = GetHashValueStrDup (pHash,
"stackname2", NULL) ;
+ pEmbperlCmds[nNodeName].sPushStack2 = GetHashValueStrDup (pHash, "push2",
NULL) ;
+ pEmbperlCmds[nNodeName].bRemoveNode = GetHashValueInt (pHash,
"removenode", 0) ;
+ pEmbperlCmds[nNodeName].sMayJump = GetHashValueStrDup (pHash, "mayjump",
NULL) ;
pEmbperlCmds[nNodeName].bPerlCodeRemove = GetHashValueInt (pHash,
"perlcoderemove", 0) ;
- pEmbperlCmds[nNodeName].bCompileChilds = GetHashValueInt (pHash,
"compilechilds", 1) ;
+ pEmbperlCmds[nNodeName].bCompileChilds = GetHashValueInt (pHash,
"compilechilds", 1) ;
if (r -> bDebug & dbgParse)
@@ -222,15 +222,20 @@
StringAdd (ppCode, sText, 0) ;
StringAdd (ppCode, "'", 1) ;
}
- else
+ else if (out)
StringAdd (ppCode, sText, 0) ;
}
}
else
{
- if (op != '!')
+ if (op != '!' && op != 0)
return 0 ;
- }
+
+ if (out == 2)
+ StringAdd (ppCode, "''", 2) ;
+ else if (out)
+ StringAdd (ppCode, "undef", 5) ;
+ }
return 1 ;
}
1.1.2.26 +2 -2 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.1.2.25
retrieving revision 1.1.2.26
diff -u -r1.1.2.25 -r1.1.2.26
--- epdom.c 2000/06/01 06:38:13 1.1.2.25
+++ epdom.c 2000/06/05 06:44:05 1.1.2.26
@@ -1281,7 +1281,7 @@
{
if (pNode -> bFlags & nflgCheckpoint)
{ /* see how the control flow contiounes */
- if ((xNextNode = pDomTree -> pOrder[nOrderNdx]) != pNode -> xNdx)
+ if ((xNextNode = pDomTree -> pOrder[nOrderNdx]) != pNode -> xNdx &&
xNextNode)
{
tNodeData * pNewNode ;
tNodeData * pNewParent ;
@@ -1318,7 +1318,7 @@
if (pNode -> bFlags & nflgReturn)
{ /* we should use another node to replace this one */
- if ((xNextNode = pDomTree -> pOrder[nOrderNdx]) != pNode -> xNdx)
+ if ((xNextNode = pDomTree -> pOrder[nOrderNdx]) != pNode -> xNdx &&
xNextNode)
{
if (pCurrReq -> bDebug & dbgParse)
lprintf (r, "[%d]toString: Replace Node=%d with Node=%d\n", r ->
nPid, pNode -> xNdx, xNextNode) ;
1.1.2.19 +5 -5 embperl/Attic/epparse.c
Index: epparse.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epparse.c,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -u -r1.1.2.18 -r1.1.2.19
--- epparse.c 2000/05/31 06:21:49 1.1.2.18
+++ epparse.c 2000/06/05 06:44:05 1.1.2.19
@@ -286,16 +286,16 @@
p = &pTable[n] ;
p -> sName = pKey ;
- p -> sText = GetHashValueStr (pHash, "text", "") ;
+ p -> sText = GetHashValueStrDup (pHash, "text", "") ;
p -> nTextLen = strlen (p -> sText) ;
- p -> sEndText = GetHashValueStr (pHash, "end", (char *)pDefEnd) ;
- p -> sNodeName = GetHashValueStr (pHash, "nodename", NULL) ;
+ p -> sEndText = GetHashValueStrDup (pHash, "end", (char *)pDefEnd) ;
+ p -> sNodeName = GetHashValueStrDup (pHash, "nodename", NULL) ;
p -> nNodeType = GetHashValueInt (pHash, "nodetype", ntypTag) ;
p -> bUnescape = GetHashValueInt (pHash, "unescape", 0) ;
p -> nCDataType = GetHashValueInt (pHash, "cdatatype", -1) ;
p -> nForceType = GetHashValueInt (pHash, "forcetype", -1) ;
- p -> pEndTag = (struct tToken *)GetHashValueStr (pHash, "endtag", NULL)
;
- if (sContains = GetHashValueStr (pHash, "contains", NULL))
+ p -> pEndTag = (struct tToken *)GetHashValueStrDup (pHash, "endtag",
NULL) ;
+ if (sContains = GetHashValueStrDup (pHash, "contains", NULL))
{
unsigned char * pC ;
if ((p -> pContains = _malloc (r, sizeof (tCharMap))) == NULL)
1.14.2.4 +25 -3 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.14.2.3
retrieving revision 1.14.2.4
diff -u -r1.14.2.3 -r1.14.2.4
--- eputil.c 2000/05/29 14:22:10 1.14.2.3
+++ eputil.c 2000/06/05 06:44:05 1.14.2.4
@@ -565,16 +565,38 @@
{
SV ** ppSV ;
+ IV l ;
- /*EPENTRY (GetHashValueInt) ;*/
-
ppSV = hv_fetch(pHash, (char *)sKey, strlen (sKey), 0) ;
if (ppSV != NULL)
- return SvPV (*ppSV, na) ;
+ return SvPV (*ppSV, l) ;
return sDefault ;
}
+
+char * GetHashValueStrDup (/*in*/ HV * pHash,
+ /*in*/ const char * sKey,
+ /*in*/ char * sDefault)
+ {
+ SV ** ppSV ;
+ IV l ;
+ char * s ;
+
+ ppSV = hv_fetch(pHash, (char *)sKey, strlen (sKey), 0) ;
+ if (ppSV != NULL)
+ {
+ if (s = SvPV (*ppSV, l))
+ return strdup (s);
+ else
+ return NULL ;
+ }
+
+ if (sDefault)
+ return strdup (sDefault) ;
+ else
+ return NULL ;
+ }
void SetHashValueStr (/*in*/ HV * pHash,
1.57.2.15 +4 -4 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.57.2.14
retrieving revision 1.57.2.15
diff -u -r1.57.2.14 -r1.57.2.15
--- test.pl 2000/06/01 06:38:13 1.57.2.14
+++ test.pl 2000/06/05 06:44:05 1.57.2.15
@@ -13,8 +13,8 @@
'plain.htm',
'plain.htm',
'plain.htm',
-## 'plainblock.htm',
-## 'plainblock.htm',
+ 'plainblock.htm',
+ 'plainblock.htm',
'error.htm???8',
'error.htm???8',
'error.htm???8',
@@ -33,10 +33,10 @@
## 'tagscan.htm',
## 'tagscan.htm??1',
'if.htm',
-## 'ifperl.htm',
+ 'ifperl.htm',
'loop.htm?erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
'loop.htm?erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23%2a%2B&erstes=Wert2',
-##
'loopperl.htm?erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
+ 'loopperl.htm?erstes=Hallo&zweites=Leer+zeichen&drittes=%21%22%23&erstes=Wert2',
'table.htm',
'table.htm??1',
## 'lists.htm?sel=2&SEL1=B&SEL3=D&SEL4=cc',
No revision
No revision
1.1.2.18 +13 -3 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.2.17
retrieving revision 1.1.2.18
diff -u -r1.1.2.17 -r1.1.2.18
--- Syntax.pm 2000/06/04 19:42:41 1.1.2.17
+++ Syntax.pm 2000/06/05 06:44:07 1.1.2.18
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Syntax.pm,v 1.1.2.17 2000/06/04 19:42:41 richter Exp $
+# $Id: Syntax.pm,v 1.1.2.18 2000/06/05 06:44:07 richter Exp $
#
###################################################################################
@@ -274,7 +274,7 @@
perlcode =>
[
'HTML::Embperl::Cmd::InputCheck (%$n%, %&*\'name%, %&*\'value%)
; %&=-type:radio|checkbox% ',
- '$idat{%&*\'name%}=$fdat{%&*\'name%} ;
XML::Embperl::DOM::Element_setAttribut (%$n%, \'value\', $fdat{%&*\'name%} || \'\') ;
%&!value%',
+ '$idat{%&*\'name%}=$fdat{%&*\'name%} ;
XML::Embperl::DOM::Element_setAttribut (%$n%, \'value\', $fdat{%&*\'name%} || \'\') ;
%&!-value%',
'$idat{%&*\'name%}=%&*\'value% ; ',
]
}
@@ -632,7 +632,17 @@
}
},
},
-
+ 'hidden' => {
+ 'text' => 'hidden',
+ 'cdatatype' => ntypAttrValue,
+ 'unescape' => 1,
+ 'procinfo' => {
+ embperl => {
+ perlcode => 'HTML::Embperl::Cmd::Hidden (%$n%,%&\'<noname>%);',
+ removenode => 8,
+ }
+ },
+ },
) ;
No revision
No revision
1.4.2.1 +44 -79 embperl/test/cmp/hidden.htm
Index: hidden.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/hidden.htm,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -u -r1.4 -r1.4.2.1
--- hidden.htm 1999/10/05 06:02:07 1.4
+++ hidden.htm 2000/06/05 06:44:08 1.4.2.1
@@ -8,89 +8,54 @@
<form action="inhalt.htm" method="POST">
<p> </p>
- a1
-<input type="hidden" name="feld1" value="Wert1">
-<input type="hidden" name="feld2" value="Wert2">
-<input type="hidden" name="feld3" value="Wert3">
-<input type="hidden" name="feld4" value="Wert4">
-a2
-<input type="hidden" name="feld1" value="Pfalz">
-<input type="hidden" name="feld2" value="Rheinhessen">
-a3
-<input type="hidden" name="feld2" value="Rheinhessen">
-a4
-<input type="hidden" name="feld2" value="Rheinhessen">
-a5
-<input type="hidden" name="feld1" value="Pfalz">
-<input type="hidden" name="feld2" value="Rheinhessen">
-a6
-<input type="hidden" name="feld2" value="Rheinhessen">
-a7
-<input type="hidden" name="feld2" value="Rheinhessen">
-a8
-<input type="hidden" name="feld4" value="Wert4">
-<input type="hidden" name="feld3" value="Wert3">
-<input type="hidden" name="feld2" value="Wert2">
-<input type="hidden" name="feld1" value="Wert1">
-<INPUT type="text" name="feld1" VALUE="Wert1">
-
- b1
-<input type="hidden" name="feld2" value="Wert2">
-<input type="hidden" name="feld3" value="Wert3">
-<input type="hidden" name="feld4" value="Wert4">
-b2
-<input type="hidden" name="feld2" value="Rheinhessen">
-b3
-<input type="hidden" name="feld2" value="Rheinhessen">
-b4
-<input type="hidden" name="feld2" value="Rheinhessen">
-b5
-<input type="hidden" name="feld2" value="Rheinhessen">
-b6
-<input type="hidden" name="feld2" value="Rheinhessen">
-<INPUT type="text" name="feld2" VALUE="Wert2">
+ a1<input type="hidden" name="feld1" value="Wert1"><input type="hidden"
name="feld2" value="Wert2"><input type="hidden" name="feld3" value="Wert3"><input
type="hidden" name="feld4" value="Wert4">
+ a2<input type="hidden" name="feld1" value="Pfalz"><input type="hidden"
name="feld2" value="Rheinhessen">
+ a3<input type="hidden" name="feld2" value="Rheinhessen">
+ a4<input type="hidden" name="feld2" value="Rheinhessen">
+ a5<input type="hidden" name="feld1" value="Pfalz"><input type="hidden"
name="feld2" value="Rheinhessen">
+ a6<input type="hidden" name="feld2" value="Rheinhessen">
+ a7<input type="hidden" name="feld2" value="Rheinhessen">
+ a8<input type="hidden" name="feld4" value="Wert4"><input type="hidden"
name="feld3" value="Wert3"><input type="hidden" name="feld2" value="Wert2"><input
type="hidden" name="feld1" value="Wert1">
- c1
-<input type="hidden" name="feld3" value="Wert3">
-<input type="hidden" name="feld4" value="Wert4">
-c2
-c3
-<input type="hidden" name="feld2" value="Rheinhessen">
-c4
-<input type="hidden" name="feld2" value="Rheinhessen">
-c5
-c6
-<input type="hidden" name="feld2" value="Rheinhessen">
-<INPUT type="text" name="feld3" VALUE="Wert3">
- <INPUT type="text" name="feld4" VALUE="Wert4">
+ <input type="text" name="feld1" value="Wert1">
+
+ b1<input type="hidden" name="feld2" value="Wert2"><input type="hidden"
name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4">
+ b2<input type="hidden" name="feld2" value="Rheinhessen">
+ b3<input type="hidden" name="feld2" value="Rheinhessen">
+ b4<input type="hidden" name="feld2" value="Rheinhessen">
+ b5<input type="hidden" name="feld2" value="Rheinhessen">
+ b6<input type="hidden" name="feld2" value="Rheinhessen">
+
+
+ <input type="text" name="feld2" value="Wert2">
+
+ c1<input type="hidden" name="feld3" value="Wert3"><input type="hidden"
name="feld4" value="Wert4">
+ c2
+ c3<input type="hidden" name="feld2" value="Rheinhessen">
+ c4<input type="hidden" name="feld2" value="Rheinhessen">
+ c5
+ c6<input type="hidden" name="feld2" value="Rheinhessen">
+
+ <input type="text" name="feld3" value="Wert3">
+ <input type="text" name="feld4" value="Wert4">
d1
-d2
-d3
-<input type="hidden" name="feld2" value="Rheinhessen">
-d4
-<input type="hidden" name="feld2" value="Rheinhessen">
-d5
-d6
-<input type="hidden" name="feld2" value="Rheinhessen">
-d7
-<input type="hidden" name="feld2" value="Rheinhessen">
-e1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
-e2
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
-optNoHiddenEmptyValue is now 0 optNoHiddenEmptyValue is now 1 e1
-e2
-optNoHiddenEmptyValue is now 0 e1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
-e2
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+ d2
+ d3<input type="hidden" name="feld2" value="Rheinhessen">
+ d4<input type="hidden" name="feld2" value="Rheinhessen">
+ d5
+ d6<input type="hidden" name="feld2" value="Rheinhessen">
+ d7<input type="hidden" name="feld2" value="Rheinhessen">
+
+
+ e1<input type="hidden" name="empty1" value=""><input type="hidden"
name="empty2" value="">
+ e2<input type="hidden" name="empty1" value=""><input type="hidden"
name="empty2" value="">
+ optNoHiddenEmptyValue is now 0 optNoHiddenEmptyValue is now 1 e1
+ e2
+ optNoHiddenEmptyValue is now 0 e1<input type="hidden" name="empty1"
value=""><input type="hidden" name="empty2" value="">
+ e2<input type="hidden" name="empty1" value=""><input type="hidden"
name="empty2" value="">
+
</form>
</body>
</html>
-
1.10.2.3 +28 -431 embperl/test/cmp/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/input.htm,v
retrieving revision 1.10.2.2
retrieving revision 1.10.2.3
diff -u -r1.10.2.2 -r1.10.2.3
--- input.htm 2000/06/04 19:42:41 1.10.2.2
+++ input.htm 2000/06/05 06:44:08 1.10.2.3
@@ -45,69 +45,21 @@
<input type="checkbox" value="cbv5" name="cb5" checked>
<input type="checkbox" checked name="cb6" value="cbv6">
- <INPUT type="checkbox" name="cb7" value="cbv7" CHECKED>
- <INPUT type="checkbox" value="cbv8" name="cb8" CHECKED>
+ <input type="checkbox" name="cb7" value="cbv7" checked>
+ <input type="checkbox" value="cbv8" name="cb8" checked>
- <INPUT type="checkbox" value="cbv9" name="cb9" >
- <INPUT type="checkbox" name="cb10" value="cbv10">
- <INPUT type="checkbox" name="cb11" value="cbv11">
+ <input type="checkbox" value="cbv9" name="cb9">
+ <input type="checkbox" name="cb10" value="cbv10">
+ <input type="checkbox" name="cb11" value="cbv11">
- <textarea Name=feld1></textarea>
- <textarea Name=feld5>Wert5</textarea>
+ <textarea name="feld1"></textarea>
+ <textarea name="feld5">Wert5</textarea>
- <textarea Name=feld1>text1</textarea>
- <textarea Name=feld5>text5</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>
-
- <select name="foo">
+<select name="foo">
<option value="feld1">feld1</option>
<option value="feld2">feld2</option>
<option value="feld3">feld3</option>
@@ -123,7 +75,7 @@
<option value="Wert2">Wert2</option>
<option value="Wert3">Wert3</option>
<option value="Wert4">Wert4</option>
- <option value="Wert5" SELECTED>Wert5</option>
+ <option value="Wert5" selected>Wert5</option>
<option value="Wert6">Wert6</option>
<option value="Wert7">Wert7</option>
<option value="Wert8">Wert8</option>
@@ -132,60 +84,38 @@
<select name="mult" multiple>
<option value="Wert1">Wert1</option>
<option value="Wert2">Wert2</option>
- <option value="Wert3" SELECTED>Wert3</option>
+ <option value="Wert3" selected>Wert3</option>
<option value="Wert4">Wert4</option>
<option value="Wert5">Wert5</option>
- <option value="Wert6" SELECTED>Wert6</option>
+ <option value="Wert6" selected>Wert6</option>
<option value="Wert7">Wert7</option>
<option value="Wert8">Wert8</option>
</select>
<select name="mult" multiple>
- <option value="Wert1" >Wert1</option>
- <option value="Wert2" >Wert2</option>
+ <option value="Wert1">Wert1</option>
+ <option value="Wert2">Wert2</option>
<option value="Wert3" selected>Wert3</option>
- <option value="Wert4" >Wert4</option>
- <option value="Wert5" >Wert5</option>
+ <option value="Wert4">Wert4</option>
+ <option value="Wert5">Wert5</option>
<option value="Wert6" selected>Wert6</option>
- <option value="Wert7" >Wert7</option>
- <option value="Wert8" >Wert8</option>
+ <option value="Wert7">Wert7</option>
+ <option value="Wert8">Wert8</option>
</select>
+ ks = cb1 cb2 cb5 cb6 cb7 cb8 feld1 feld2 feld3 feld4 feld5 feld6 feld7 feld8
mult neu1 neu2 neu3 undef<p>
+
<table>
<tr>
- <td>Kategorie</td><td>Veranstaltungen</td>
- </tr>
-
- <tr>
- <td>Region</td><td>Rheinhessen</td>
- </tr>
-
- <tr>
<td>cb1</td><td>cbv1</td>
</tr>
<tr>
- <td>cb10</td><td>ncbv10</td>
- </tr>
-
- <tr>
- <td>cb11</td><td>ncbv11</td>
- </tr>
-
- <tr>
<td>cb2</td><td>cbv2</td>
</tr>
<tr>
- <td>cb3</td><td>cbv3</td>
- </tr>
-
- <tr>
- <td>cb4</td><td>cbv4</td>
- </tr>
-
- <tr>
<td>cb5</td><td>cbv5</td>
</tr>
@@ -202,119 +132,22 @@
</tr>
<tr>
- <td>cb9</td><td>ncbv9</td>
- </tr>
-
- <tr>
<td>feld1</td><td>text1</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>
- </table>
-
-
-
-optDisableInputScan is now: 0 <BR>
-optDisableInputScan is set now to: 1 <BR>
-optDisableInputScan is now: 1 <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>Kategorie</td><td>Veranstaltungen</td>
- </tr>
-
- <tr>
- <td>Region</td><td>Rheinhessen</td>
- </tr>
-
- <tr>
- <td>cb1</td><td>cbv1</td>
- </tr>
-
- <tr>
- <td>cb10</td><td>ncbv10</td>
- </tr>
-
- <tr>
- <td>cb11</td><td>ncbv11</td>
- </tr>
-
- <tr>
- <td>cb2</td><td>cbv2</td>
- </tr>
-
- <tr>
- <td>cb3</td><td>cbv3</td>
- </tr>
-
<tr>
- <td>cb4</td><td>cbv4</td>
+ <td>feld2</td><td></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>
+ <td>feld3</td><td></td>
</tr>
<tr>
- <td>cb9</td><td>ncbv9</td>
+ <td>feld4</td><td></td>
</tr>
<tr>
- <td>feld1</td><td>text1</td>
- </tr>
-
- <tr>
<td>feld5</td><td>Wert5</td>
</tr>
@@ -333,259 +166,23 @@
<tr>
<td>mult</td><td>Wert6</td>
</tr>
- </table>
-
-optDisableInputScan is now: 1 <BR>
-optDisableInputScan is set now to: 0 <BR>
-optDisableInputScan is now: 0 <BR>
-
- <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">
-
- <table>
- <tr>
- <td>Kategorie</td><td>Veranstaltungen</td>
- </tr>
-
- <tr>
- <td>Region</td><td>Rheinhessen</td>
- </tr>
-
- <tr>
- <td>cb1</td><td>cbv1</td>
- </tr>
-
- <tr>
- <td>cb10</td><td>ncbv10</td>
- </tr>
-
- <tr>
- <td>cb11</td><td>ncbv11</td>
- </tr>
-
- <tr>
- <td>cb2</td><td>cbv2</td>
- </tr>
-
- <tr>
- <td>cb3</td><td>cbv3</td>
- </tr>
-
- <tr>
- <td>cb4</td><td>cbv4</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>cb9</td><td>ncbv9</td>
+ <td>neu1</td><td>no</td>
</tr>
<tr>
- <td>feld1</td><td>text1</td>
+ <td>neu2</td><td></td>
</tr>
<tr>
- <td>feld5</td><td>Wert5</td>
+ <td>neu3</td><td>>></td>
</tr>
<tr>
- <td>feld6</td><td>Wert6</td>
+ <td>undef</td><td>no</td>
</tr>
-
- <tr>
- <td>feld7</td><td>Wert7</td>
- </tr>
-
- <tr>
- <td>feld8</td><td>Wert8</td>
- </tr>
-
- <tr>
- <td>mult</td><td>Wert3 Wert6</td>
- </tr>
</table>
-optUndefToEmptyValue is now: 0 <BR>
-optUndefToEmptyValue is set now to: 1 <BR>
-optUndefToEmptyValue is now: 1 <BR>
-
- <input type="text" name="qqfeld1" value="Wert1">
- <INPUT type="text" name="qqfeld2" VALUE="">
- <INPUT type="text" size=10 name="qqfeld3" VALUE="">
- <INPUT type="text" name="qqfeld4" size=10 VALUE="">
-
- <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: 1 <BR>
-optUndefToEmptyValue is set now to: 0 <BR>
-optUndefToEmptyValue is now: 0 <BR>
-
-
-<INPUT type="checkbox" value="Wert1" name="mult2" >
- <input type="checkbox" value="Wert1" name="mult2">
- <input type="checkbox" value="Wert2" name="mult2" checked>
- <INPUT type="checkbox" value="Wert2" name="mult2" CHECKED>
- <INPUT type="checkbox" value="Wert3" name="mult2" >
- <input type="checkbox" value="Wert3" name="mult2">
- <INPUT type="checkbox" value="Wert4" name="mult2" >
- <input type="checkbox" value="Wert4" name="mult2">
- <input type="checkbox" value="Wert5" name="mult2" checked>
- <INPUT type="checkbox" value="Wert5" name="mult2" CHECKED>
- <input type="checkbox" value="Wert6" name="mult2" checked>
- <INPUT type="checkbox" value="Wert6" name="mult2" CHECKED>
- <INPUT type="checkbox" value="Wert7" name="mult2" >
- <input type="checkbox" value="Wert7" name="mult2">
-
-
- <INPUT type="checkbox" value="Wert1" name="mult3" >
- <input type="checkbox" value="Wert1" name="mult3">
- <INPUT type="checkbox" value="Wert2" name="mult3" >
- <input type="checkbox" value="Wert2" name="mult3">
- <INPUT type="checkbox" value="Wert3" name="mult3" >
- <input type="checkbox" value="Wert3" name="mult3">
- <input type="checkbox" value="Wert4" name="mult3" checked>
- <INPUT type="checkbox" value="Wert4" name="mult3" CHECKED>
- <INPUT type="checkbox" value="Wert5" name="mult3" >
- <input type="checkbox" value="Wert5" name="mult3">
- <INPUT type="checkbox" value="Wert6" name="mult3" >
- <input type="checkbox" value="Wert6" name="mult3">
- <INPUT type="checkbox" value="Wert7" name="mult3" >
- <input type="checkbox" value="Wert7" name="mult3">
-
- <select name="mult2">
- <option value="Wert1">Wert1</option>
- <option value="Wert2" SELECTED>Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5" SELECTED>Wert5</option>
- <option value="Wert6" SELECTED>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" SELECTED>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" SELECTED>Wert1</option>
- <option value="Wert2" SELECTED>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" SELECTED>Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3" SELECTED>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>
-
-
- <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" SELECTED>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" SELECTED>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" SELECTED>a>b</option>
- <option value="Wert8">Wert8</option>
- </select>
-
-optRawInput is now: 0 <BR>
-optRawInput is set now to: 1 <BR>
-optRawInput is now: 1 <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" VALUE="Wert6">
- <INPUT type="text" size=10 name="feld7" VALUE="Wert7">
- <INPUT type="text" name="feld8" size=10 VALUE="Wert8">
-
- <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>
-</form>
-
</body>
</html>
-
1.3.2.1 +5 -4 embperl/test/cmp/inputjava.htm
Index: inputjava.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/inputjava.htm,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -u -r1.3 -r1.3.2.1
--- inputjava.htm 1999/10/05 06:02:12 1.3
+++ inputjava.htm 2000/06/05 06:44:08 1.3.2.1
@@ -1,12 +1,13 @@
<html>
<body>
<form action="script.htm" method="POST">
- <input type=hidden name="Screen" value="1">
+ <input type="hidden" name="Screen" value="1">
Screen 1<br>
- <input type=submit name="Command" value="Start"
onClick="document.forms[0].Command.action = 'Start'">
- <input type=submit name="Command" value="Next"
onClick="document.forms[0].Command.action = 'Next'">
+ <input type="submit" name="Command" value="Start"
onClick="document.forms[0].Command.action = 'Start'">
+ <input type="submit" name="Command" value="Next"
onClick="document.forms[0].Command.action = 'Next'">
</form>
- </body>
+
+ </body>
</html>
No revision
No revision
1.3.2.2 +0 -4 embperl/test/html/tagscan.htm
Index: tagscan.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/tagscan.htm,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -u -r1.3.2.1 -r1.3.2.2
--- tagscan.htm 2000/05/24 14:33:35 1.3.2.1
+++ tagscan.htm 2000/06/05 06:44:08 1.3.2.2
@@ -1,7 +1,3 @@
-[- $aaa = 1 -]
-<body [$if $aaa $] bgcolor="[+ 'blue' +]" [$endif$]>
-<body [$if !$aaa $] bgcolor="[+ 'blue' +]" [$endif$] bla>
-
<html bgcolor="[+ 'blue' +]">
<head bgcolor="[+ 'blue' +]">
<title>Some tests for Embperl</title>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
