logout.tcl

Logs a user out

Location:

/packages/acs-subsite/www/register/logout.tcl

CVS ID:

$Id: logout.tcl,v 1.6.2.1 2023/05/14 22:02:52 gustafn Exp $

Related Files

• packages/acs-subsite/www/register/logout.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Logs a user out

    @cvs-id $Id: logout.tcl,v 1.6.2.1 2023/05/14 22:02:52 gustafn Exp $

} {
    {return_url:localurl ""}
}

if { $return_url eq "" } {
    if { [permission::permission_p \
              -object_id [subsite::get_element -element package_id] \
              -party_id 0 \
              -privilege read] } {
        set return_url [subsite::get_element -element url]
    } else {
        set return_url /
    }
}

ad_user_logout 
db_release_unused_handles

ad_returnredirect $return_url
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: