Help for this page

Select Code to Download


  1. or download this
        local(@getcookies) = split (/; /,$ENV{'HTTP_COOKIE'});
    local(%cookies);
...
    $regtype = $cookies{'regtype'};
    $login = "Login" if ($username && $password && !$logout);
    }
  2. or download this
    $expires=&calc_cookie_expires(-1);
            &write_cookies;
...
    print "Set-Cookie: regpass=$password; expires=$expires; path=/;\n"
+;
    print "Set-Cookie: regtype=$regtype; expires=$expires; path=/;\n";
}