ad_verify_and_get_user_id { -secure f } { db "" }What it does:
Returns the current user's ID, verifying its validity (or returning 0 if unable to do so).Defined in: /web/philip/packages/acs-core/security-procs.tcl
Source code:
arg_parser_for_ad_verify_and_get_user_id $args
if { ![ad_validate_security_info -secure $secure] } {
return 0
} else {
set user_id [ad_get_user_id]
# check if the user is registered
if { $user_id==0 } {
# is user is not registered return 0
return 0
}
set release_db 0
if { [empty_string_p $db] } {
set db [ns_db gethandle log]
set release_db 1
}
if { [string compare [database_to_tcl_string $db "select user_state from users where user_id = $user_id"] authorized] } {
ad_returnredirect "/global/banned"
return
}
}
if { $release_db } {
ns_db releasehandle $db
}
return $user_id