You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/04/08 05:39:10 UTC
cvs commit: embperl/test/cmp escape.htm
richter 02/04/07 20:39:10
Modified: . Tag: Embperl2c Changes.pod epcmd2.c epdom.c
test/cmp Tag: Embperl2c escape.htm
Log:
escaping hash/array inside URL
Revision Changes Path
No revision
No revision
1.129.4.63 +5 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.62
retrieving revision 1.129.4.63
diff -u -r1.129.4.62 -r1.129.4.63
--- Changes.pod 7 Apr 2002 19:25:03 -0000 1.129.4.62
+++ Changes.pod 8 Apr 2002 03:39:09 -0000 1.129.4.63
@@ -4,8 +4,12 @@
- when setting $r -> param -> filename in an application object
to a relativ path it is interpreted relativ to original request
- - fix bug with setting of escmode and print Out reported by
+ - fixed bug with setting of escmode and print Out reported by
Eric-Olivier Le Bigot.
+ - fixed incorrected escaping inside of an URL when expanding an hash
+ or array reference. Reported by Axel Beckert.
+ - fixed possible endless loop when expanding hash or array inside of
+ an URL.
=head1 2.0b7 (BETA) 21. Mar. 2002
1.4.2.21 +3 -1 embperl/Attic/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcmd2.c,v
retrieving revision 1.4.2.20
retrieving revision 1.4.2.21
diff -u -r1.4.2.20 -r1.4.2.21
--- epcmd2.c 7 Apr 2002 19:25:03 -0000 1.4.2.20
+++ epcmd2.c 8 Apr 2002 03:39:09 -0000 1.4.2.21
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcmd2.c,v 1.4.2.20 2002/04/07 19:25:03 richter Exp $
+# $Id: epcmd2.c,v 1.4.2.21 2002/04/08 03:39:09 richter Exp $
#
###################################################################################*/
@@ -432,7 +432,9 @@
int i = 0 ;
I32 l32 ;
+ lprintf (r -> pApp, "xOldChild=%d, rl=%d\n", xOldChild, nRepeatLevel) ;
xOldChild = Node_replaceChildWithCDATA (r -> pApp, DomTree_self(xDomTree), xOldChild, nRepeatLevel, "", 0, 4, 0) ;
+ lprintf (r -> pApp, "a xOldChild=%d, rl=%d\n", xOldChild, nRepeatLevel) ;
hv_iterinit (pHV) ;
while (pEntry = hv_iternext (pHV))
1.4.2.85 +3 -3 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.84
retrieving revision 1.4.2.85
diff -u -r1.4.2.84 -r1.4.2.85
--- epdom.c 20 Mar 2002 15:31:00 -0000 1.4.2.84
+++ epdom.c 8 Apr 2002 03:39:09 -0000 1.4.2.85
@@ -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.84 2002/03/20 15:31:00 richter Exp $
+# $Id: epdom.c,v 1.4.2.85 2002/04/08 03:39:09 richter Exp $
#
###################################################################################*/
@@ -2718,7 +2718,7 @@
av_push (pOldChildDomTree -> pDependsOn, SvREFCNT_inc (pDomTree -> pDomTreeSV)) ;
}
- return xOldChild ;
+ return pOldChild -> xNdx ;
}
/* ------------------------------------------------------------------------ */
@@ -2916,7 +2916,7 @@
NdxStringFree (a, n) ;
/* *** lprintf (a, "rp<-- nText=%d sText=>%*.*s< nTextLen = %d SVs=%d\n", pOldChild -> nText, nTextLen,nTextLen, sText?sText:"<null>", nTextLen, sv_count) ; */
- return xOldChild ;
+ return pOldChild -> xNdx ;
}
No revision
No revision
1.19.4.8 +5 -0 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.19.4.7
retrieving revision 1.19.4.8
diff -u -r1.19.4.7 -r1.19.4.8
--- escape.htm 7 Apr 2002 19:25:04 -0000 1.19.4.7
+++ escape.htm 8 Apr 2002 03:39:10 -0000 1.19.4.8
@@ -189,6 +189,11 @@
0: �ric
7: éric
0: �ric
+<a href="0?!Table=interface,router&$where=interface.router_id=router.id&!LongNames=1">
+
+<a href="7?!Table=interface,router&$where=interface.router_id%3Drouter.id&!LongNames=1">
+
+
<P>Ok.<P>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org