44 lines
1.0 KiB
Perl
44 lines
1.0 KiB
Perl
|
#!/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;
|