cs_next_session_id

one of the documented procedures in this installation of the ACS
Usage:
cs_next_session_id
What it does:
Returns the next value for the session ID.
Defined in: /web/philip/tcl/1-cs-defs.tcl

Source code:


    set lock [nsv_get cs_session_id_sequence lock]
    set counter [nsv_incr cs_session_id_sequence counter]
    if { $counter >= 1000 } {
	set db [ns_db gethandle clickstream]
        nsv_set cs_session_id_sequence nextval [database_to_tcl_string $db "
            select cs_session_id_sequence.nextval from dual
        "]
	set counter 0
        nsv_set cs_session_id_sequence counter 0
	ns_db releasehandle $db
    }
    set retvalue [expr { [nsv_get cs_session_id_sequence nextval] + $counter }]
    return $retvalue


philg@mit.edu