I have tried using the CGI::Session module to create a cookie for each user logged into my website.

And it works just fine.

The problem is, I can't remove the cookie using $session->delete() and $session->flush() when I try to log out.

Here's my full code:
https://xxxx.xxx/LogIn/cgi-bin/login.cgi 

#!/usr/bin/perl

use warnings;
use CGI;
use DBI;
use DBD::mysql;
use CGI::Session '-ip_match';

local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;

if ($ENV{'REQUEST_METHOD'} eq "POST") {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
   $buffer = $ENV{'QUERY_STRING'};
}

# Split information into name/value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   $FORM{$name} = $value;
}

$email = $FORM{emailAddress}; # get these from LogIn/index.html
$password = $FORM{password};

$myConnection = DBI->connect("DBI:mysql:xxxxxxxxxx:localhost","xxxxxxx
+xxxxxx","xxxxxxxxxxxxxxx");
my @row = ();
$sql = "SELECT COUNT(*) FROM xxxxxxxxxxxxxxx.UserDatabase
WHERE EmailAddress = ?
AND password = ?";

$sth = $myConnection->prepare($sql);

$sth->execute;

$sth->finish;

if($myConnection->selectcol_arrayref($sql, undef, $email, $password)->
+[0] == 1)
{
    # create a new session
    $session = CGI::Session->new(undef, undef, {Directory=>'../TEMPDIR
+/sessions'});
    
    # access data
    $session->param($email);
    
    # expiration
    $session->expire('+1M'); 

    # bake a cookie
    print $session->header("Location: https://xxxx.xxx/dashboard/index
+.cgi");
}
else
{
    my $query = new CGI;
    print $query->redirect('https://xxxx.xxx/LogIn/index.html');
}

[download]

https://xxxx.xxx/dashboard/index.cgi

#!/usr/bin/perl

use warnings;
use CGI::Session '-ip_match';

$session = CGI::Session->load();

print "Content-type: text/html\r\n\r\n";

print qq|

# all the html stuffs here
<a href='cgi-bin/logout.cgi'>Log out</a>

|;

[download]

https://xxxx.xxx/dashboard/cgi-bin/logout.cgi

#/usr/bin/perl

use warnings;
use CGI::Session;

print $session->header("Location: https://xxxx.xxx/index.html");

$session->clear(["email"]);

$session->delete();

[download]

P.S. I'm quite new at backend web development. Without using any Content Management System(CMS), am I doing things right?

P.P.S. I'm not trying to create a porn site here.

In reply to CGI::Session cookie won't delete by underTheRadar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.