Tests for Embperl - Execute Get Session Data

[- Execute ('getsess.htm') ; -] fdat:
[- @ks = sort keys %fdat -]

[+ $ks[$row] +] | [+ 0+$fdat{$ks[$row] || ''} +]

udat:
[- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - $#ks - 1 ; -]

[+ $ks[$row] +] | [+ 0+$udat{$ks[$row] || ''} +]

[+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]

[- while (($k, $v) = each (%fdat)) { $udat{$k} = $fdat{$k} ; } -] $mdat{cnt} = -[+ 0+$mdat{cnt} +]-
$udat{cnt} = -[+ $udat{cnt} +]-
[- Execute ('getsess.htm') ; -]