if (($user)&&($passcheck)) { # create a MD5 hash for session management my $session_brand = md5_hex(rand()); (my $session_timestamp, my $session_expiration) = get_timestamp(); my $session_done = set_session($session_brand,$session_timestamp, $session_expiration); my $cookie = cookie(-domain=>"$meta_configs{xina_domain}", -name=>"$meta_configs{login_cookie_name}", -value=>"$session_brand", -path=>"$meta_configs{login_cookie_path}", -expires=>"$meta_configs{login_cookie_expiration}"); print $q->header(-cookie=>[$cookie]); # cookie set