unsubscribe-2.tcl

Unsubscribes from the site

Location:

/packages/acs-subsite/www/pvt/unsubscribe-2.tcl

CVS ID:

$Id: unsubscribe-2.tcl,v 1.4 2018/01/27 16:19:08 gustafn Exp $

Related Files

• packages/acs-subsite/www/pvt/unsubscribe-2.tcl
• packages/acs-subsite/www/pvt/unsubscribe-2.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Unsubscribes from the site

    @cvs-id $Id: unsubscribe-2.tcl,v 1.4 2018/01/27 16:19:08 gustafn Exp $
} {} -properties {
    system_name:onevalue
}

auth::require_login

set page_title "Account Closed"
set context [list [list [ad_pvt_home] [ad_pvt_home_name]] $page_title]

acs_user::delete -user_id [ad_conn user_id]

set system_name [ad_system_name]
set login_url [ad_get_login_url]

auth::verify_account_status

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