clcook.txt

a very userful email managing service

#!/usr/bin/perl -w

#there 7200 seconds in two hours
$ocd = (time() - 7200);
dbmopen(%cook,"/etc/httpddata/cookies.dat",0600);
foreach $key (sort keys %cook)
{
($cc)=split('-',$key);
if($cc <= $ocd)
{
delete $cook{$key};
}
}
dbmclose %cook;