#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }

use strict;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI::Session;
use CGI::Cookie;

my %cookies = fetch CGI::Cookie ;

my $cgisessid = defined $cookies{'CGISESSID'} ? $cookies{'CGISESSID'}->value : undef; # This does

#----------------------------------------------------------------------------------------------------------------------

our $dbh ;
my  $session ;

&db_open_ro ;

#----------------------------------------------------------------------------------------------------------------------

$session  = load CGI::Session("driver:MySQL", $cgisessid, {Handle=>$dbh}) ;

$session->delete() ;

my $cookie = new CGI::Cookie(-name=>'CGISESSID', -value=>'');

&db_close_conn;

print "Set-Cookie: $cookie\n";

print 'Status: 302 Moved', "\r\n", "Location: https://$ENV{SERVER_NAME}/", "\r\n\r\n" ;

exit ;

#----------------------------------------------------------------------------------------------------------------------

use db ;
use common ;

1;