Mega Code Archive

 

Categories / Perl / CGI

 

Session tracking in our CGI scripts

#!/usr/bin/perl use warnings; use CGI; use strict; my $cgi=new CGI; my $cookie=$cgi->cookie("myCookie"); if ($cookie) {     print $cgi->header(); #no need to send cookie again } else {     my $value=generate_unique_id();     $cookie=$cgi->cookie(-name=>"myCookie",                          -value=>$value,                          -expires=>"+1d"); #or whatever we choose     print $cgi->header(-type=>"text/html",-cookie=>$cookie); } sub generate_unique_id {     #generate a random 8 digit hexadecimal session id     return sprintf("%08.8x",rand()*0xffffffff); }