Help for this page

Select Code to Download

Select or download this

sub ProcessLoginRequest
{
...
  #Check if it got valid return from fetch cookie
  if ($sid ne 0){
    $status = 1;

Select or download this

#---------------------------------------------------------------------
+----------
# FUNCTION: OpenSession($dbh, $sid)
...
  $session  = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh, Lo
+ckHandle=>$dbh});
  return $session;
}