9 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
use CGI::Session;
my $cgi = new CGI;
$sid = $cgi->cookie('YAMBE_SESSID') || $cgi->param('YAMBE_SESSID') || undef;
$session = new CGI::Session(undef, $sid, {Directory=>'\tmp'});
$session->expire('3');
$session->param("USER", $lg_name);
my $cookie = $cgi->cookie(YAMBE_SESSID => $session->id );
print $cgi->header(-cookie=>$cookie);
9 Einträge, 1 Seite |