sec_get_session_info session_idWhat it does:
Returns information for a session, in the form [list $user_id $token $secure_token $last_ip $last_hit].Defined in: /web/philip/packages/acs-core/security-procs.tcl
Source code:
set db [ns_db gethandle log]
set sql "
select user_id, token, secure_token,
last_ip, last_hit from sec_sessions
where session_id = $session_id
"
set selection [ns_db 0or1row $db $sql]
ns_db releasehandle $db
if { $selection == "" } {
sec_log "No row in sec_sessions for session_id $session_id!"
return
}
set_variables_after_query
return [list $user_id $token $secure_token $last_ip $last_hit]