richter at apache
Aug 15, 2004, 11:28 PM
Post #1 of 1
(848 views)
Permalink
|
|
cvs commit: embperl Changes.pod TODO epcmd2.c epdom.c test.pl
|
|
richter 2004/08/15 23:28:04
Modified: . Changes.pod TODO epcmd2.c epdom.c test.pl
Log:
fix unescape problem in input
Revision Changes Path
1.245 +3 -3 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.244
retrieving revision 1.245
diff -u -r1.244 -r1.245
--- Changes.pod 16 Aug 2004 05:58:30 -0000 1.244
+++ Changes.pod 16 Aug 2004 06:28:03 -0000 1.245
@@ -1,8 +1,6 @@
=pod
-=head1 2.0b12
-
-This version is currently under developement. You can get it from the L<CVS|CVS.pod>.
+=head1 2.0
- Addeded configuration directive Embperl_Object_Reqpath, which allows to
search serveral directories for the file of the initial request.
@@ -19,6 +17,8 @@
- Added single quotes arround xslt paramenters that are automaticly
generated from %fdat to avoid security problems.
- Fixed some memory leaks
+ - Fixed problem that checkboxes or options or not correctly selected
+ on the second request when value was html escaped
=head1 2.0b11 15. March 2004
1.126 +9 -4 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -r1.125 -r1.126
--- TODO 16 Aug 2004 05:30:05 -0000 1.125
+++ TODO 16 Aug 2004 06:28:03 -0000 1.126
@@ -1,7 +1,5 @@
-TODO before Embperl 2.0 release
-
-- preload on Apache startup problem [Neil Gunton 25.1.04]
+TODO
- en/de select parameter passing in eg/web/header.epl
@@ -11,9 +9,16 @@
- doc that %mdat is per application
+- check memory on recompile of epl files
+
+
+SOLVED, need more TESTS:
+
- Perl hash error at end of apache and apachectl restart
-- check memory on recompile of epl files
+- preload on Apache startup problem [Neil Gunton 25.1.04]
+
+
TODO for Embperl 2.1 and later
1.15 +9 -2 embperl/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/epcmd2.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- epcmd2.c 15 Aug 2004 19:26:48 -0000 1.14
+++ epcmd2.c 16 Aug 2004 06:28:03 -0000 1.15
@@ -101,13 +101,17 @@
SV ** ppSV = hv_fetch(r -> pThread -> pFormHash, (char *)pName, nNameLen, 0) ;
tNodeData * pNode = Node_selfLevel (r -> pApp, pDomTree, xNode, nRepeatLevel) ;
SV * pInputHashValue = NULL ;
+ const char * tmp ;
if (ppSV)
{
SV ** ppSVerg = hv_fetch(r -> pThread -> pFormSplitHash, (char *)pName, nNameLen, 0) ;
SV * pSV = SplitFdat (r, ppSV, ppSVerg, (char *)pName, nNameLen) ;
-
- if (SvTYPE (pSV) == SVt_PVHV)
+ tmp = malloc (nValLen) ;
+ memcpy (tmp, pVal, nValLen) ;
+ pVal = tmp ;
+
+ if (SvTYPE (pSV) == SVt_PVHV)
{ /* -> Hash -> check if key exists */
nValLen = TransHtml (r, (char *)pVal, nValLen) ;
if (hv_exists ((HV *)pSV, (char *)pVal, nValLen))
@@ -165,6 +169,9 @@
hv_store (r -> pThread -> pInputHash, (char *)pName, nNameLen, newSVpv ("", 0), 0) ;
}
+ if (tmp)
+ free (tmp) ;
+
}
/* ---------------------------------------------------------------------------- */
1.22 +0 -0 embperl/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/epdom.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
1.141 +1 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -r1.140 -r1.141
--- test.pl 14 Aug 2004 14:28:45 -0000 1.140
+++ test.pl 16 Aug 2004 06:28:04 -0000 1.141
@@ -235,6 +235,7 @@
},
'input.htm' => {
'query_info' => 'feld5=Wert5&feld5a=Wert4\'y\'r&feld5b="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',
+ 'repeat' => 2,
},
'hidden.htm' => {
'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4',
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
