20 lines
583 B
Perl
20 lines
583 B
Perl
|
#!/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);
|
||
|
|
}
|