File: getnourlsess.htm

package info (click to toggle)
libembperl-perl 2.5.0-17
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 7,632 kB
  • sloc: ansic: 21,387; perl: 14,497; javascript: 4,280; cpp: 467; xml: 49; makefile: 35; sh: 24
file content (51 lines) | stat: -rw-r--r-- 916 bytes parent folder | download | duplicates (17)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
<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>