Help for this page

Select Code to Download


  1. or download this
     %cookies = CGI::Cookie->fetch;
        $sessionid = $cookies{'CGISESSID'}->value;
     $session = CGI::Session->load(undef, $sessionid, {Directory=>''})
+ or die CGI:Session->errstr();
    $login  = $session->param('login');
    $logswitch = ($login);
  2. or download this
        if (exists $cookies{name}) {
     %cookies = CGI::Cookie->fetch;
        $sessionid = $cookies{'CGISESSID'}->value;
...
    $login  = $session->param('login');
    $logswitch = ($login);
}