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 2001/07/09 14:53:36 UTC
cvs commit: embperl/test/html escape.htm
richter 01/07/09 05:53:36
Modified: . Tag: Embperl2c Embperl.pm test.pl
test/cmp Tag: Embperl2c escape.htm hidden.htm
test/html Tag: Embperl2c escape.htm
Log:
Embperl 2.0b3 :-)
Revision Changes Path
No revision
No revision
1.118.4.47 +3 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.46
retrieving revision 1.118.4.47
diff -u -r1.118.4.46 -r1.118.4.47
--- Embperl.pm 2001/06/25 03:30:01 1.118.4.46
+++ Embperl.pm 2001/07/09 12:53:28 1.118.4.47
@@ -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.46 2001/06/25 03:30:01 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.47 2001/07/09 12:53:28 richter Exp $
#
###################################################################################
@@ -68,9 +68,9 @@
##ep2##
-$VERSION = '2.0b3_dev-10' ;
+$VERSION = '2.0b3' ;
##/ep2##
-##ep1##$VERSION = '1.3.3';
+##ep1##$VERSION = '1.3.4_dev';
# HTML::Embperl cannot be bootstrapped in nonlazy mode except
# under mod_perl, because its dependencies import symbols like ap_palloc
1.70.4.63 +3 -3 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.62
retrieving revision 1.70.4.63
diff -u -r1.70.4.62 -r1.70.4.63
--- test.pl 2001/06/05 11:58:12 1.70.4.62
+++ test.pl 2001/07/09 12:53:29 1.70.4.63
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.70.4.62 2001/06/05 11:58:12 richter Exp $
+# $Id: test.pl,v 1.70.4.63 2001/07/09 12:53:29 richter Exp $
#
###################################################################################
@@ -1701,7 +1701,7 @@
},
{
text => 'Wait for expire',
- 'sleep' => 2,
+ 'sleep' => 3,
},
{
text => 'Expires in 1 sec (reexec)',
@@ -1808,7 +1808,7 @@
},
{
text => 'Wait for expire',
- 'sleep' => 2,
+ 'sleep' => 3,
},
{
text => '$EXPIRES in source (reexc)',
No revision
No revision
1.19.4.4 +11 -4 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.19.4.3
retrieving revision 1.19.4.4
diff -u -r1.19.4.3 -r1.19.4.4
--- escape.htm 2001/03/27 11:52:32 1.19.4.3
+++ escape.htm 2001/07/09 12:53:31 1.19.4.4
@@ -44,9 +44,9 @@
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">
+^Array in H \<a href\=\"http\:\/\/localhost\/tests\?(X=9&Y=8&Z=7)|(Z=7&X=9&Y=8)\"\>
-<a href="tst.html?par1=1&par2=2">1</a>
+^<a href="tst.html\?(par1=1&par2=2)|(par2=2&par1=1)">1</a>
<a href="tst.html?par1=1&par2=2&par3=3">2</a>
<a href="tst.html?par1=1&par2=2">3</a>
<a href="tst.html?par1=1&par2=2&par3=3">4</a>
@@ -159,9 +159,16 @@
</TR>
</table>
+Escape method:
-
-
+0: (this is the value in $a) ������???<&+
+1: (this is the value in $a) äöüäöü???<&+
+2: (this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20
+3: (this is the value in $a) äöüäöü???<&+
+4: (this is the value in $a) ������???<&+
+5: (this is the value in $a) äöüäöü???<&+
+6: (this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20
+7: (this is the value in $a) äöüäöü???<&+
<P>Ok.<P>
1.4.6.4 +12 -12 embperl/test/cmp/hidden.htm
Index: hidden.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/hidden.htm,v
retrieving revision 1.4.6.3
retrieving revision 1.4.6.4
diff -u -r1.4.6.3 -r1.4.6.4
--- hidden.htm 2001/05/11 07:14:22 1.4.6.3
+++ hidden.htm 2001/07/09 12:53:32 1.4.6.4
@@ -76,16 +76,16 @@
d7
<input type="hidden" name="feld2" value="Rheinhessen">
e1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" 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="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" value="">
e2
<input type="hidden" name="empty1" value="">
<input type="hidden" name="empty2" value="">
@@ -94,26 +94,26 @@
<form >
l1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" value="">
</form>
<form >
l1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" value="">
</form>
<form >
l1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" value="">
</form>
<form >
l1
-<input type="hidden" name="empty1" value="">
-<input type="hidden" name="empty2" value="">
+^<input type="hidden" name="empty(1|2)" value="">
+^<input type="hidden" name="empty(1|2)" value="">
</form>
</body>
</html>
No revision
No revision
1.13.4.5 +12 -1 embperl/test/html/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/escape.htm,v
retrieving revision 1.13.4.4
retrieving revision 1.13.4.5
diff -u -r1.13.4.4 -r1.13.4.5
--- escape.htm 2001/03/27 11:52:36 1.13.4.4
+++ escape.htm 2001/07/09 12:53:34 1.13.4.5
@@ -1,4 +1,4 @@
-
+[- $r = shift -]
<html>
<head>
<title>Some tests for Embperl escaping</title>
@@ -183,7 +183,18 @@
</TR>
</table>
+Escape method:
+
+[- $escmode = 0 -]
+0: [+ $r -> Escape($b, 0) +]
+1: [+ $r -> Escape($b, 1) +]
+2: [+ $r -> Escape($b, 2) +]
+3: [+ $r -> Escape($b, 3) +]
+4: [+ $r -> Escape($b, 4) +]
+5: [+ $r -> Escape($b, 5) +]
+6: [+ $r -> Escape($b, 6) +]
+7: [+ $r -> Escape($b, 7) +]
<P>Ok.<P>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org