($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);