← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to test/html/getdelsess.htm

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2004-02-15 14:23:39 UTC
  • Revision ID: james.westby@ubuntu.com-20040215142339-n21gqf7mx9tmyb8d
Tags: upstream-2.0b10
Import upstream version 2.0b10

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/html/getdelsess.htm
 
1
<html>
 
2
<head>
 
3
<title>Tests for Embperl - Set Session Data</title>
 
4
</head>
 
5
 
 
6
 
 
7
<body>
 
8
 
 
9
 
 
10
        fdat:<br>
 
11
        [- @ks = sort keys %fdat -]
 
12
 
 
13
        <table>
 
14
                <tr>
 
15
                        <td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
 
16
                </tr>
 
17
        </table>
 
18
 
 
19
        udat:<br>
 
20
        [- $id = tied (%udat) -> getid -]
 
21
        [- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - @ks - ($id?0:1) -]
 
22
 
 
23
        <table>
 
24
                <tr>
 
25
                        <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} +]</td>
 
26
                </tr>
 
27
        </table>
 
28
 
 
29
        [+ $id?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
 
30
 
 
31
        [- 
 
32
        while (($k, $v) = each (%fdat))
 
33
                {
 
34
                $udat{$k} = $fdat{$k} ;
 
35
                }
 
36
        -]
 
37
 
 
38
 
 
39
        $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
 
40
        $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
41
 
 
42
 
 
43
        [- $s = $Apache::Session::Win32::sessions  || $Apache::Session::MemoryStore::store  -]
 
44
 
 
45
        [- @ks = sort keys %$s -]
 
46
 
 
47
        sessions:
 
48
        <table>
 
49
                <tr>
 
50
                        <td>[+ $ks[$row] +]</td><td>[+ $s -> {$ks[$row] || ''} +]</td>
 
51
                </tr>
 
52
        </table>
 
53
</body>
 
54
</html>