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...@locus.apache.org on 2000/11/09 21:10:29 UTC
cvs commit: embperl/test/html delwrsess.htm
richter 00/11/09 12:10:28
Modified: . Embperl.pm test.pl
test/cmp delwrsess.htm
test/html delwrsess.htm
Log:
Session handling
Revision Changes Path
1.126 +5 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -r1.125 -r1.126
--- Embperl.pm 2000/11/09 08:03:14 1.125
+++ Embperl.pm 2000/11/09 20:10:19 1.126
@@ -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.125 2000/11/09 08:03:14 richter Exp $
+# $Id: Embperl.pm,v 1.126 2000/11/09 20:10:19 richter Exp $
#
###################################################################################
@@ -1686,14 +1686,16 @@
my $r = shift || HTML::Embperl::CurrReq () ;
my $disabledelete = shift ;
+ my $udat = tied (%HTML::Embperl::udat) ;
if (!$disabledelete) # Delete session data
{
- tied(%HTML::Embperl::udat) -> delete ;
+ $udat -> delete ;
}
else
{
- tied (%HTML::Embperl::udat) -> setid (undef) ; # for make test only
+ $udat-> {data} = {} ; # for make test only
}
+ $udat->{status} = 0;
}
1.80 +18 -5 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- test.pl 2000/11/09 13:58:37 1.79
+++ test.pl 2000/11/09 20:10:19 1.80
@@ -322,7 +322,7 @@
'getnosess.htm' => {
'offline' => 0,
'query_info' => 'nocookie=2',
- 'cookie' => 'expectnew,nocookie',
+ 'cookie' => 'expectnew,nocookie,nosave',
},
'mdatsess.htm' => {
'offline' => 0,
@@ -355,10 +355,23 @@
'offline' => 0,
'cookie' => 'expectnew',
},
- 'getsess.htm' => {
+ 'getbsess.htm' => {
'offline' => 0,
'cookie' => 'expectno',
},
+ 'delrdsess.htm' => {
+ 'offline' => 0,
+ 'cookie' => 'expectnew',
+ },
+ 'getemptysess.htm' => {
+ 'offline' => 0,
+ 'cookie' => 'expectno',
+ },
+ 'setsess.htm' => {
+ 'offline' => 0,
+ 'query_info' => 'a=1',
+ 'cookie' => 'expectnew',
+ },
'delsess.htm' => {
'offline' => 0,
'cookie' => 'expectno',
@@ -818,11 +831,11 @@
close FH ;
my $c = $response -> header ('Set-Cookie') || '' ;
- $cookie = $c if (!$cookie && ($c =~ /EMBPERL_UID/)) ;
- $cookie = undef if (($c =~ /EMBPERL_UID=;/)) ;
+ $cookie = $c if (($c =~ /EMBPERL_UID/) && !($cookieaction =~ /nosave/)) ;
+ $cookie = undef if (($c =~ /EMBPERL_UID=;/) && !($cookieaction =~ /nosave/)) ;
$sendcookie ||= '' ;
- #print "\nSend: $sendcookie, Got: " , ($c||''), "\n" ;
+ print "\nSend: $sendcookie, Got: " , ($c||''), "\n" ;
print "\nExpected new cookie: Send: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectnew/) && $sendcookie eq $c) ;
print "\nExpected same cookie: Send: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectsame/) && $sendcookie ne $c) ;
print "\nExpected no cookie: Send: $sendcookie, Got: " , ($c||''), "\n" if (($cookieaction =~ /expectno/) && $c) ;
1.2 +6 -1 embperl/test/cmp/delwrsess.htm
Index: delwrsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/delwrsess.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- delwrsess.htm 2000/11/09 08:03:15 1.1
+++ delwrsess.htm 2000/11/09 20:10:24 1.2
@@ -19,9 +19,14 @@
$udat{cnt} = -- <br>
udat after:<br>
+ <table></table>
+
+ ok (num=1)<p>
+
+ 2 udat after write:<br>
<table>
<tr>
- <td>a</td><td>1</td>
+ <td>b</td><td>2</td>
</tr>
</table>
1.2 +12 -0 embperl/test/html/delwrsess.htm
Index: delwrsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/delwrsess.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- delwrsess.htm 2000/11/09 08:03:16 1.1
+++ delwrsess.htm 2000/11/09 20:10:27 1.2
@@ -33,5 +33,17 @@
[+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
+ [+ $udat{b} = 2 +]
+ udat after write:<br>
+ [- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - $#ks - 1 ; -]
+
+ <table>
+ <tr>
+ <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} +]</td>
+ </tr>
+ </table>
+
+ [+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
+
</body>
</html>