<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>Contenu de session</TITLE>
</HEAD><BODY>
<H1>Contenu de session</H1>
<a href="session.phtml">Actualiser</a><p>
<pre>
% foreach my $key (sort(keys(%session))) {
%    unless ($key =~ m/^_/) {
<a href="?action=delete&key=<% $key |u %>">X</a> <% Data::Dumper->Dump([$session{$key}], ['$session{\''.$key.'\'}']) |h %>
%    } else {
  <% Data::Dumper->Dump([$session{$key}], ['$session{\''.$key.'\'}']) |h %>
%    }
% }
</pre>
</BODY></HTML>

<%flags>
	inherit => undef
</%flags>

<%args>
	$action => undef
	$key => undef
</%args>

<%init>
	if ($action eq 'delete') {
		delete $session{$key};
	}
</%init>
