#!/usr/local/bin/perl -I. =pod this is a sample AIS "logout" program, which handles the login buttons sent out by the "add" program. =cut my ($SessionCookie) = ($ENV{HTTP_COOKIE} =~ /AIS_Session=(\w+)/); unless ($SessionCookie){ print < You appear to be already logged out EOF }; use DirDB; tie %Ses,'DirDB','data/Sessions'; delete $Ses{$SessionCookie}; print < Your AIS session cookie has been deleted. You may log in again by clicking on the log-in button in your e-mail. EOF __END__