($sessid,$tokcookie) = setup_session($userID, $userType); my $cookie = $cgi->cookie(-name => 'CGISESSID', -value => $sessid, -expires => "+30m"); print $cgi->redirect( -location => $base_url, -cookie => [$cookie,$tokcookie] ); #### my ($session,$tok_cookie) = DBUtility::get_session($cgi,$uid); #### $rv = CGI::Session->new('driver:mysql',$query,{ DataSource => "dbi:mysql:database=profitorius;host=$hostname", User => 'xxxxxxxxxxx', Password => 'yyyyyyyy' }); my $hash = $pbkdf2->generate($enc_csrfp_str); $rv->param('enccsrfp',$hash); $cookie = $query->cookie(-name=>'H_VAL', -value=>$hash, -httponly => 1, -expires => "+30m", -secure => 1); return ($rv,$cookie);