<tmpl_var name=heading>

#! /usr/bin/perl -wT use strict; use lib "..."; use CGI qw/:standard :nosticky :delete_all :escapeHTML :html3 :all/; use CGI::Session; use CGI::Carp 'fatalsToBrowser'; use HTML::Template; my $q = CGI -> new(); my $session = CGI::Session->load() or die CGI::Session->errstr; if ( $session->is_expired ) { print $session->header(); print "Your session expired, inevitably!"; exit(0); } elsif ( $session->is_empty ) { $session = new CGI::Session(); } $session->save_param(); ###$session->load_param(); my $user = $session->param( "user" ); my $sid = $session->id(); my $cookie = $q->cookie( -name => $session->name(), -value => $sid, -expires => "+5" ); my $nextpage = 'test_cgi_session.pl'; $session->delete(); print $q->header( -cookie => $cookie ); my $template = HTML::Template->new( filename => 'test_cgi_session.tmpl' ); $template->param( heading => "Test Session" ); $template->param( nextpage => $nextpage ); $template->param( user => $user ); $template->param( sessionid => $sid ); print $template->output(); ##

##





	
	<tmpl_var name=heading>