richter 01/05/02 04:54:58
Modified: . Tag: Embperl2c Changes.pod Embperl.xs MANIFEST
MANIFEST.2 epcomp.c epdom.c epdom.h epnames.h
test.pl
test/cmp Tag: Embperl2c input.htm
test/cmp2 Tag: Embperl2c input.htm
test/html Tag: Embperl2c input.htm
test/html/rawinput Tag: Embperl2c include.htm
Added: test/cmp Tag: Embperl2c execprint.htm
test/html Tag: Embperl2c execprint.htm
Log:
Embperl 2 - fix make test, fix print OUT, remove \n after Execute
Revision Changes Path
No revision
No revision
1.129.4.17 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.16
retrieving revision 1.129.4.17
diff -u -r1.129.4.16 -r1.129.4.17
--- Changes.pod 2001/04/27 06:33:18 1.129.4.16
+++ Changes.pod 2001/05/02 11:54:41 1.129.4.17
@@ -18,6 +18,8 @@
Janny Cavell.
- Embperl doesn't search for attributes inside of quotes inside of
html tags anymore. Spotted by Ian Van der Poel.
+ - type=checkbox|radio is now case insensitiv as it should. Spotted
+ by Jonny Cavell.
=head1 2.0b2 (BETA) 29. Mar 2001
1.29.4.14 +3 -2 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.29.4.13
retrieving revision 1.29.4.14
diff -u -r1.29.4.13 -r1.29.4.14
--- Embperl.xs 2001/03/28 10:07:30 1.29.4.13
+++ Embperl.xs 2001/05/02 11:54:42 1.29.4.14
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.xs,v 1.29.4.13 2001/03/28 10:07:30 richter Exp $
+# $Id: Embperl.xs,v 1.29.4.14 2001/05/02 11:54:42 richter Exp $
#
###################################################################################*/
@@ -244,7 +244,8 @@
if (!r->bEP1Compat)
{
char * p = SvPV (sText, l) ;
- Node_appendChild (DomTree_self (r -> xCurrDomTree), ntypCDATA, 0, p, l, r
-> xCurrNode, 0, 0) ;
+ /* Node_appendChild (DomTree_self (r -> xCurrDomTree), ntypCDATA, 0, p, l,
r -> xCurrNode, 0, 0) ; */
+ r -> xCurrNode = Node_insertAfter_CDATA (p, l, (r -> nCurrEscMode & 3)==
3?1 + (r -> nCurrEscMode & 4):r -> nCurrEscMode, DomTree_self (r -> xCurrDomTree), r
-> xCurrNode) ;
}
else
#endif
1.50.4.21 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.20
retrieving revision 1.50.4.21
diff -u -r1.50.4.20 -r1.50.4.21
--- MANIFEST 2001/05/02 08:59:08 1.50.4.20
+++ MANIFEST 2001/05/02 11:54:42 1.50.4.21
@@ -55,6 +55,7 @@
test/html/subtab.htm
test/html/execfirst.htm
test/html/execsecond.htm
+test/html/execprint.htm
test/html/inputjs2.htm
test/cmp/incif.htm
test/cmp/executesub.htm
@@ -67,6 +68,7 @@
test/cmp/subtab.htm
test/cmp/execfirst.htm
test/cmp/execsecond.htm
+test/cmp/execprint.htm
test/cmp/inputjs2.htm
Changes.pod
Embperl.pm
1.1.2.14 +2 -0 embperl/Attic/MANIFEST.2
Index: MANIFEST.2
===================================================================
RCS file: /home/cvs/embperl/Attic/MANIFEST.2,v
retrieving revision 1.1.2.13
retrieving revision 1.1.2.14
diff -u -r1.1.2.13 -r1.1.2.14
--- MANIFEST.2 2001/05/02 08:59:09 1.1.2.13
+++ MANIFEST.2 2001/05/02 11:54:43 1.1.2.14
@@ -55,6 +55,7 @@
test/html/subtab.htm
test/html/execfirst.htm
test/html/execsecond.htm
+test/html/execprint.htm
test/html/inputjs2.htm
test/cmp/incif.htm
test/cmp/executesub.htm
@@ -68,6 +69,7 @@
test/cmp/subtab.htm
test/cmp/execfirst.htm
test/cmp/execsecond.htm
+test/cmp/execprint.htm
test/cmp/inputjs2.htm
1.4.2.48 +2 -2 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.47
retrieving revision 1.4.2.48
diff -u -r1.4.2.47 -r1.4.2.48
--- epcomp.c 2001/04/26 13:12:49 1.4.2.47
+++ epcomp.c 2001/05/02 11:54:43 1.4.2.48
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcomp.c,v 1.4.2.47 2001/04/26 13:12:49 richter Exp $
+# $Id: epcomp.c,v 1.4.2.48 2001/05/02 11:54:43 richter Exp $
#
###################################################################################*/
@@ -305,7 +305,7 @@
{
or = strchr (eq + 1, '|') ;
e = or?or:q ;
- if (strncmp (sText, eq, e - eq) == 0)
+ if (strncasecmp (sText, eq, e - eq) == 0)
break ;
if (or == NULL)
return 0 ;
1.4.2.33 +74 -6 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.32
retrieving revision 1.4.2.33
diff -u -r1.4.2.32 -r1.4.2.33
--- epdom.c 2001/04/27 05:01:13 1.4.2.32
+++ epdom.c 2001/05/02 11:54:43 1.4.2.33
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.c,v 1.4.2.32 2001/04/27 05:01:13 richter Exp $
+# $Id: epdom.c,v 1.4.2.33 2001/05/02 11:54:43 richter Exp $
#
###################################################################################*/
@@ -1798,14 +1798,72 @@
+/* ------------------------------------------------------------------------ */
+/* */
+/* Node_insertAfter_CDATA */
+/* */
+/* Inserts a cdata after another node */
+/* */
+/* ------------------------------------------------------------------------ */
+
+tNode Node_insertAfter_CDATA (/*in*/ const char * sText,
+ /*in*/ int nTextLen,
+ /*in*/ int nEscMode,
+ /*in*/ tDomTree * pRefNodeDomTree,
+ /*in*/ tNode xRefNode)
+
+ {
+ tNodeData * pRefNode = Node_self (pRefNodeDomTree, xRefNode) ;
+ tNodeData * pNxtNode = Node_selfNextSibling (pRefNodeDomTree,
pRefNode) ;
+ tNode xOrgNode ;
+
+
+ tNodeData * pNew = Node_newAndAppend (pRefNodeDomTree, pRefNode -> xParent,
NULL, pRefNode -> nLinenumber, sizeof (tNodeData)) ;
+
+ pNew -> xChilds = 0 ;
+ pNew -> bFlags = 0 ; //nflgModified | nflgReturn ;
+
+ if (nEscMode != -1)
+ {
+ pNew -> nType = (nEscMode & 3)?ntypText:ntypCDATA ;
+ pNew -> bFlags &= ~(nflgEscUrl + nflgEscChar) ;
+ pNew -> bFlags |= (nEscMode ^ nflgEscChar) & (nflgEscUrl + nflgEscChar) ;
+ }
+ else
+ pNew -> nType = ntypCDATA ;
+
+ pNew -> nText = String2Ndx(sText, nTextLen) ;
+
+ pRefNode = Node_selfCondCloneNode (pRefNodeDomTree, pRefNode) ;
+ if (pNxtNode)
+ pNxtNode = Node_selfCondCloneNode (pRefNodeDomTree, pNxtNode) ;
+ else
+ pNxtNode = Node_self (pRefNodeDomTree, pRefNode -> xNext) ; /* first one */
+
+ //if ((pNxtNode -> bFlags & nflgModified) == 0)
+ {
+ pNxtNode -> xPrev = pNew -> xNdx ;
+ pRefNode -> xNext = pNew -> xNdx ;
+ pNew -> xPrev = pRefNode -> xNdx ;
+ pNew -> xNext = pNxtNode -> xNdx ;
+ }
+
+ //DomTree_selfCheckpoint (pRefNodeDomTree, xRefNode, pNew -> xNdx) ;
+ return pNew -> xNdx ;
+ }
+
+
+
+
+
/* ------------------------------------------------------------------------ */
/* */
/* Node_replaceChild */
@@ -1946,15 +2004,25 @@
{
tNodeData * pParent ;
+ tNodeData * pNxt ;
if (pNode -> xNext == pNode -> xNdx)
return NULL ;
- pParent = Node_self (pDomTree, pNode -> xParent) ;
- if (pParent -> xChilds == pNode -> xNext)
- return NULL ;
+ if ((pParent = Node_self (pDomTree, pNode -> xParent)) != NULL)
+ {
+ if (pParent -> xChilds == pNode -> xNext)
+ return NULL ;
+ }
+
+ pNxt = Node_self (pDomTree, pNode -> xNext) ;
- return Node_self (pDomTree, pNode -> xNext) ;
+ if (!pParent)
+ {
+ if (pNxt -> nType == ntypDocumentFraq)
+ return NULL ;
+ }
+ return pNxt ;
}
@@ -2216,7 +2284,7 @@
else if (pNode -> nType == ntypDocumentFraq)
{
Node_toString (pDomTree, r, pNode -> xNdx) ;
- oputs (r, "\r\n") ;
+ //oputs (r, "\r\n") ;
}
else if (pNode -> nType == ntypTag || pNode -> nType == ntypStartTag)
{
1.4.2.15 +7 -1 embperl/Attic/epdom.h
Index: epdom.h
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.h,v
retrieving revision 1.4.2.14
retrieving revision 1.4.2.15
diff -u -r1.4.2.14 -r1.4.2.15
--- epdom.h 2001/04/16 18:32:30 1.4.2.14
+++ epdom.h 2001/05/02 11:54:44 1.4.2.15
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.h,v 1.4.2.14 2001/04/16 18:32:30 richter Exp $
+# $Id: epdom.h,v 1.4.2.15 2001/05/02 11:54:44 richter Exp $
#
###################################################################################*/
@@ -317,6 +317,12 @@
tNode Node_insertAfter (/*in*/ tDomTree * pNewNodeDomTree,
/*in*/ tNode xNewNode,
+ /*in*/ tDomTree * pRefNodeDomTree,
+ /*in*/ tNode xRefNode) ;
+
+tNode Node_insertAfter_CDATA (/*in*/ const char * sText,
+ /*in*/ int nTextLen,
+ /*in*/ int nEscMode,
/*in*/ tDomTree * pRefNodeDomTree,
/*in*/ tNode xRefNode) ;
1.19.4.6 +11 -2 embperl/epnames.h
Index: epnames.h
===================================================================
RCS file: /home/cvs/embperl/epnames.h,v
retrieving revision 1.19.4.5
retrieving revision 1.19.4.6
diff -u -r1.19.4.5 -r1.19.4.6
--- epnames.h 2001/03/28 19:16:04 1.19.4.5
+++ epnames.h 2001/05/02 11:54:44 1.19.4.6
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epnames.h,v 1.19.4.5 2001/03/28 19:16:04 richter Exp $
+# $Id: epnames.h,v 1.19.4.6 2001/05/02 11:54:44 richter Exp $
#
###################################################################################*/
@@ -310,4 +310,13 @@
#endif /* endif WIN32 */
-#endif /* APACHE */
\ No newline at end of file
+#endif /* APACHE */
+
+
+
+
+#ifdef WIN32
+
+#define strncasecmp _strnicmp
+
+#endif
1.70.4.50 +40 -3 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.49
retrieving revision 1.70.4.50
diff -u -r1.70.4.49 -r1.70.4.50
--- test.pl 2001/05/02 08:59:10 1.70.4.49
+++ test.pl 2001/05/02 11:54:45 1.70.4.50
@@ -1,4 +1,20 @@
#!/usr/bin/perl --
+
+###################################################################################
+#
+# Embperl - Copyright (c) 1997-2001 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.
+#
+# 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.
+#
+# $Id: test.pl,v 1.70.4.50 2001/05/02 11:54:45 richter Exp $
+#
+###################################################################################
+
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
@@ -20,7 +36,9 @@
@testdata = (
'ascii' => { },
- 'pure.htm' => { },
+ 'pure.htm' => {
+# 'noloop' => 1,
+ },
'plain.htm' => {
repeat => 3,
},
@@ -164,6 +182,9 @@
},
'java.htm' => { },
'inputjava.htm' => { },
+ 'inputjs2.htm' => {
+ 'version' => 2,
+ },
'heredoc.htm' => { },
'post.htm' => {
'offline' => 0,
@@ -171,6 +192,7 @@
'upload.htm' => {
'query_info' => 'multval=A&multval=B&multval=C&single=S',
'offline' => 0,
+# 'noloop' => 1,
},
'reqrec.htm' => {
'offline' => 0,
@@ -221,6 +243,17 @@
'version' => 2,
'repeat' => 2,
},
+ 'execfirst.htm' => {
+ 'version' => 2,
+ },
+ 'execsecond.htm' => {
+ 'version' => 2,
+ },
+ 'execprint.htm' => {
+ 'version' => 2,
+ },
+# 'execinside.htm' => {
+# },
'importsub.htm' => {
'repeat' => 2,
},
@@ -245,6 +278,7 @@
},
'sub.htm' => { },
'sub.htm' => { },
+ 'subtab.htm' => { },
'exit.htm' => {
'version' => 1,
'offline' => 0,
@@ -529,6 +563,9 @@
'incperl.htm' => {
'version' => 2,
},
+ 'asp.htm' => {
+ 'version' => 2,
+ },
'syntax.htm' => {
'version' => 2,
'repeat' => 2,
@@ -576,7 +613,7 @@
$opt_testlib = 1 ;
}
- if ($INC[0] =~ /^blib/)
+ if ($INC[0] =~ /^(\.\/)?blib/)
{
my $i = 0 ;
foreach (@INC)
@@ -1064,7 +1101,7 @@
open SVLOG, $logfile or die "Cannot open $logfile ($!)" ;
- seek SVLOG, -3000, 2 ;
+ seek SVLOG, ($EP2?-10000:-3000), 2 ;
while (<SVLOG>)
{
No revision
No revision
1.12.4.5 +19 -0 embperl/test/cmp/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/input.htm,v
retrieving revision 1.12.4.4
retrieving revision 1.12.4.5
diff -u -r1.12.4.4 -r1.12.4.5
--- input.htm 2001/04/26 13:13:12 1.12.4.4
+++ input.htm 2001/05/02 11:54:52 1.12.4.5
@@ -329,6 +329,25 @@
<input type="checkbox" value="cbv4" name="cb5">
<input type="checkbox" value="cbv5" name="cb5" checked>
<input type="checkbox" value="cbv6" name="cb5">
+
+
+ <input type="CHECKBOX" value="cbv1" name="cb1">
+ <input type="CHECKBOX" value="cbv1" name="cb1">
+ <input type="CHECKBOX" value="cbv2" name="cb1">
+ <input type="CHECKBOX" value="cbv3" name="cb1">
+ <input type="CHECKBOX" value="cbv4" name="cb1">
+ <input type="CHECKBOX" value="cbv5" name="cb1">
+ <input type="CHECKBOX" value="cbv6" name="cb1">
+ <input type="CHECKBOX" value="cbv5" name="cb5" checked>
+ <input type="CHECKBOX" value="cbv1" name="cb5">
+ <input type="CHECKBOX" value="cbv2" name="cb5">
+ <input type="CHECKBOX" value="cbv3" name="cb5">
+ <input type="CHECKBOX" value="cbv4" name="cb5">
+ <input type="CHECKBOX" value="cbv5" name="cb5" checked>
+ <input type="CHECKBOX" value="cbv6" name="cb5">
+
+
+
<input type="checkbox" value="cbv2" name="cb2">
<input type="checkbox" value="cbv1" name="cb2">
<input type="checkbox" value="cbv2" name="cb2">
No revision
No revision
1.1.2.1 +25 -0 embperl/test/cmp/Attic/execprint.htm
No revision
No revision
1.1.2.6 +19 -0 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.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- input.htm 2001/04/26 13:13:17 1.1.2.5
+++ input.htm 2001/05/02 11:54:54 1.1.2.6
@@ -296,6 +296,25 @@
<input type="checkbox" value="cbv4" name="cb5">
<input type="checkbox" value="cbv5" name="cb5" checked>
<input type="checkbox" value="cbv6" name="cb5">
+
+
+ <input type="CHECKBOX" value="cbv1" name="cb1">
+ <input type="CHECKBOX" value="cbv1" name="cb1">
+ <input type="CHECKBOX" value="cbv2" name="cb1">
+ <input type="CHECKBOX" value="cbv3" name="cb1">
+ <input type="CHECKBOX" value="cbv4" name="cb1">
+ <input type="CHECKBOX" value="cbv5" name="cb1">
+ <input type="CHECKBOX" value="cbv6" name="cb1">
+ <input type="CHECKBOX" value="cbv5" name="cb5" checked>
+ <input type="CHECKBOX" value="cbv1" name="cb5">
+ <input type="CHECKBOX" value="cbv2" name="cb5">
+ <input type="CHECKBOX" value="cbv3" name="cb5">
+ <input type="CHECKBOX" value="cbv4" name="cb5">
+ <input type="CHECKBOX" value="cbv5" name="cb5" checked>
+ <input type="CHECKBOX" value="cbv6" name="cb5">
+
+
+
<input type="checkbox" value="cbv2" name="cb2">
<input type="checkbox" value="cbv1" name="cb2">
<input type="checkbox" value="cbv2" name="cb2">
No revision
No revision
1.10.4.9 +19 -0 embperl/test/html/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/input.htm,v
retrieving revision 1.10.4.8
retrieving revision 1.10.4.9
diff -u -r1.10.4.8 -r1.10.4.9
--- input.htm 2001/04/26 13:13:22 1.10.4.8
+++ input.htm 2001/05/02 11:54:56 1.10.4.9
@@ -226,6 +226,25 @@
<input type="checkbox" value="cbv4" name="cb5">
<input type="checkbox" value="cbv5" name="cb5">
<input type="checkbox" value="cbv6" name="cb5">
+
+
+ <INPUT TYPE="CHECKBOX" VALUE="cbv1" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv1" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv2" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv3" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv4" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv5" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv6" NAME="cb1">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv5" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv1" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv2" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv3" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv4" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv5" NAME="cb5">
+ <INPUT TYPE="CHECKBOX" VALUE="cbv6" NAME="cb5">
+
+
+
<input type="checkbox" value="cbv2" name="cb2">
<input type="checkbox" value="cbv1" name="cb2">
<input type="checkbox" value="cbv2" name="cb2">
No revision
No revision
1.1.2.1 +46 -0 embperl/test/html/Attic/execprint.htm
No revision
No revision
1.1.4.6 +7 -7 embperl/test/html/rawinput/Attic/include.htm
Index: include.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/rawinput/Attic/include.htm,v
retrieving revision 1.1.4.5
retrieving revision 1.1.4.6
diff -u -r1.1.4.5 -r1.1.4.6
--- include.htm 2000/12/21 09:37:55 1.1.4.5
+++ include.htm 2001/05/02 11:54:57 1.1.4.6
@@ -8,7 +8,7 @@
[- $optRawInput = 1 -]
-[- $tst1 = '<P>Here is some text</P>' ; -]
+[- $tst1 = '<P>Here is some text</P>' . "\n" ; -]
<H1> 1.) Include from memory</H1>
@@ -21,7 +21,7 @@
<H1> 2.) Include from memory with some Embperl code</H1>
-[- Execute ({input => \('[- @ar = (a1, b2, c3) -' .
']<table><tr><td>[+$ar[$col]+]</td> </tr> </table> </P>'),
+[- Execute ({input => \('[- @ar = (a1, b2, c3) -' .
']<table><tr><td>[+$ar[$col]+]</td> </tr> </table> </P>' . "\n" ),
mtime => 1,
inputfile => 'table',
}) ;
@@ -32,7 +32,7 @@
[- $MyPackage::Interface::Var = 'Some Var' ; -]
-[- Execute ({input => \'<P>Transfer some vars [+ $Var +] !</P>',
+[- Execute ({input => \"<P>Transfer some vars [+ \$Var +] !</P>\n" ,
inputfile => 'Var',
mtime => 1,
'package' => 'MyPackage::Interface',
@@ -49,7 +49,7 @@
# Note you get problems is you change the code, but did not restart the server or
# change the value in mtime. So make sure if you change something also change mtime!
-Execute ({input => \'<P>Transfer some vars [+ $Var +] !</P>',
+Execute ({input => \"<P>Transfer some vars [+ \$Var +] !</P>\n",
inputfile => 'Var2',
mtime => 1,
'package' => 'MyPackage::Interface',
@@ -60,7 +60,7 @@
[-
-Execute ({input => \'<P>Use @param to transfer some data ([+ "@param"
+]) !</P>',
+Execute ({input => \"<P>Use \@param to transfer some data ([+
\"\@param\" +]) !</P>\n",
inputfile => 'Param',
param => [1, 2, 3, 4] }
) ;
@@ -73,7 +73,7 @@
<H3> $p[0] is [+ $p[0] +] and $p[1] is [+ $p[1] +]<H3>
[-
-Execute ({input => \('<P>Got data in @param ([+ "@param" +]) !</P>[-
$param[0] = "newA" ; $param[1] = "newB" ; -' . ']<P>Change data in @param to ([+
"@param" +]) !</P>'),
+Execute ({input => \('<P>Got data in @param ([+ "@param" +]) !</P>[-
$param[0] = "newA" ; $param[1] = "newB" ; -' . ']<P>Change data in @param to ([+
"@param" +]) !</P>' . "\n"),
inputfile => 'Param & Return',
req_rec => $req_rec,
param => \@p }
@@ -89,7 +89,7 @@
@myffld = sort keys %myfdat ;
-Execute ({input => \'<P><table><tr><td>[+ $ffld[$row] +]</td><td>[+ do
{ local $^W = 0 ; $fdat{$ffld[$row]} } +]</td></tr></table></P>',
+Execute ({input => \('<P><table><tr><td>[+ $ffld[$row] +]</td><td>[+
do { local $^W = 0 ; $fdat{$ffld[$row]} } +]</td></tr></table></P>' . "\n") ,
inputfile => 'fdat & ffld',
req_rec => $req_rec,
fdat => \%myfdat,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
