#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use lib '.';
use users;
use strict;

my $username = &validate;

# get the cookie data
my $sth = $dbh->prepare("select * from user_cookies where username=?") or &dbdie;
$sth->execute($username) or &dbdie;
my $rec = $sth->fetchrow_hashref;

# set a new cookie that expires NOW
my $cookie = cookie(-name=>'cid', -value=>$rec->{cookie_id}, -expires=>'now');

# and delete the cookie from the user_cookies database too
$sth = $dbh->prepare("delete from user_cookies where username=?") or &dbdie;
$sth->execute($username) or &dbdie;

print header(-cookie=>$cookie);
print start_html("Logged out");
print qq(<h2>Goodbye!</h2>\n);
print qq(You are now logged out.<br>\n);
print qq(<a href="login.cgi">Log back in</a><br>\n);
print end_html;