#!/usr/bin/perl -wT

use CGI;
use CGI::Session;
use CGI::Session qw/-ip-match/;
use DBI;

my $cgi = new CGI;
my $session;
my $anon = sub {$session->delete();
                print"Location: /fwm/index.html\n\n";
                exit(0);};

my $sid = $cgi->cookie("CGISESSID") || undef;
$session = new CGI::Session(undef,$sid,{Directory=>'/tmp'});

&$anon unless $session->param("~logged-in");    # expired session
$session->param("~logged-in",1);                # refresh session