sec_get_session_info

one of the documented procedures in this installation of the ACS
Usage:
sec_get_session_info   session_id
What 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]


philg@mit.edu