logout.txt

a very userful email managing service

#!/usr/bin/perl -w

($extra,$iduser)=split('=',$ENV{'HTTP_COOKIE'});
if(length($iduser)==0) 
{
print "Location: http://www.myproject.com/service/signin\n\n"
}
else
{
dbmopen(%cooks,"/etc/httpddata/cookies.dat",0600);
delete $cooks{$iduser};
$iduser='';
print "Set-Cookie: iduser=$iduser;\n"; 
print "Location: http://www.myproject.com/service/signin\n\n"
}