richter 00/11/09 12:18:17
Modified: . MANIFEST
Added: test/cmp delrdsess.htm getbsess.htm getemptysess.htm
test/html delrdsess.htm getbsess.htm getemptysess.htm
Log:
Session handling
Revision Changes Path
1.54 +6 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- MANIFEST 2000/11/07 11:28:19 1.53
+++ MANIFEST 2000/11/09 20:18:16 1.54
@@ -139,6 +139,9 @@
test/html/clearsess.htm
test/html/delsess.htm
test/html/getdelsess.htm
+test/html/getemptysess.htm
+test/html/getbsess.htm
+test/html/delrdsess.htm
test/html/registry/reggetsess.htm
test/html/EmbperlObject/epobase.htm
test/html/EmbperlObject/epohead.htm
@@ -250,6 +253,9 @@
test/cmp/eponotfound.htm
test/cmp/epostopdir.htm
test/cmp/epobaselib.htm
+test/cmp/getemptysess.htm
+test/cmp/getbsess.htm
+test/cmp/delrdsess.htm
test/conf/httpd.conf.src
test/conf/startup.pl
test/conf/startup_dso.pl
1.1 embperl/test/cmp/delrdsess.htm
Index: delrdsess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Delete Session Data</title>
</head>
<body>
udat before:<br>
<table>
<tr>
<td>b</td><td>2</td>
</tr>
</table>
ok (num=1)<p>
$mdat{cnt} = -- <br>
$udat{cnt} = -- <br>
udat after:<br>
<table></table>
ok (num=1)<p>
</body>
</html>
1.1 embperl/test/cmp/getbsess.htm
Index: getbsess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Set Session Data</title>
</head>
<body>
fdat:<br>
<table></table>
udat:<br>
<table>
<tr>
<td>b</td><td>2</td>
</tr>
</table>
^ ok \(num=\d+\)<p>
$mdat{cnt} = -- <br>
$udat{cnt} = -- <br>
sessions:
^ <table>
^- <tr>
^- <td>.*?<\/td><td>HASH.*?<\/td>
^- </tr>
^-
^- <tr>
^- <td>.*?<\/td><td>HASH.*?<\/td>
^- </tr>
^-
^- <tr>
^- <td>.*?<\/td><td>HASH.*?<\/td>
^- </tr>
^-
^- <tr>
^- <td>.*?<\/td><td>HASH.*?<\/td>
^- </tr>
^-
^- <tr>
^- <td>.*?<\/td><td>HASH.*?<\/td>
^- </tr>
^- </table>
</body>
</html>
1.1 embperl/test/cmp/getemptysess.htm
Index: getemptysess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Set Session Data</title>
</head>
<body>
fdat:<br>
<table></table>
udat:<br>
<table></table>
ok (num=1)<p>
sessions:
<table></table>
</body>
</html>
1.1 embperl/test/html/delrdsess.htm
Index: delrdsess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Delete Session Data</title>
</head>
<body>
udat before:<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>
$mdat{cnt} = -[+ $mdat{cnt} ; +]- <br>
$udat{cnt} = -[+ $udat{cnt} ; +]- <br>
[- HTML::Embperl::Req::DeleteSession (undef, 1) ; -]
udat after:<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>
1.1 embperl/test/html/getbsess.htm
Index: getbsess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Set Session Data</title>
</head>
<body>
fdat:<br>
[- @ks = sort keys %fdat -]
<table>
<tr>
<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
</tr>
</table>
udat:<br>
[- $off = 0 ; $off-- if ($HTML::Embperl::SessionMgnt == 2 && !defined (tied
(%udat) -> getid)) ; -]
[- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - $#ks - 1 +
$off ; -]
<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>
[-
while (($k, $v) = each (%fdat))
{
$udat{$k} = $fdat{$k} ;
}
-]
$mdat{cnt} = -[+ $mdat{cnt} ; +]- <br>
$udat{cnt} = -[+ $udat{cnt} ; +]- <br>
[- $s = $Apache::Session::Win32::sessions ||
$Apache::Session::MemoryStore::store -]
[- @ks = sort keys %$s -]
sessions:
<table>
<tr>
<td>[+ $ks[$row] +]</td><td>[+ $s -> {$ks[$row] || ''} +]</td>
</tr>
</table>
</body>
</html>
1.1 embperl/test/html/getemptysess.htm
Index: getemptysess.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Set Session Data</title>
</head>
<body>
fdat:<br>
[- @ks = sort keys %fdat -]
<table>
<tr>
<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
</tr>
</table>
udat:<br>
[- $off = 0 ; $off-- if ($HTML::Embperl::SessionMgnt == 2 && !defined (tied
(%udat) -> getid)) ; -]
[- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - $#ks - 1 +
$off ; -]
<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>
[-
while (($k, $v) = each (%fdat))
{
$udat{$k} = $fdat{$k} ;
}
-]
[- $s = $Apache::Session::Win32::sessions ||
$Apache::Session::MemoryStore::store -]
[- @ks = sort keys %$s -]
sessions:
<table>
<tr>
<td>[+ $ks[$row] +]</td><td>[+ $s -> {$ks[$row] || ''} +]</td>
</tr>
</table>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
