user-new.tcl

Page for users to register themselves on the site.

Location:

/packages/acs-subsite/www/register/user-new.tcl

CVS ID:

$Id: user-new.tcl,v 1.24 2018/01/05 22:40:56 gustafn Exp $

Related Files

• packages/acs-subsite/www/register/user-new.tcl
• packages/acs-subsite/www/register/user-new.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Page for users to register themselves on the site.

    @cvs-id $Id: user-new.tcl,v 1.24 2018/01/05 22:40:56 gustafn Exp $
} {
    {email ""}
    {return_url:localurl [ad_pvt_home]}
} -validate {
    valid_return_url {
        #
        # TODO: The following protection is for the cmd
        #     ad_form -name register -export {next_url user_id return_url}
        # in acs-subsite/lib/usr-new and has to be addressed in ad_form
        #
        if {[string first {$} $return_url] > -1
            || [string first {\[} $return_url] > -1
        } {
            ad_complain "return_url contains invalid character"
        }
    }
    valid_email -requires email {
        if {![regexp {^[\w.@+/=$%!*~-]+$} $email]} {
            ad_complain "invalid email address"
        }
    }
}

set registration_url [parameter::get -parameter RegistrationRedirectUrl]
if {$registration_url ne ""} {
    ad_returnredirect [export_vars -base "$registration_url" -url {return_url email}]
    ad_script_abort
}

set subsite_id [ad_conn subsite_id]
set user_new_template [parameter::get -parameter "UserNewTemplate" -package_id $subsite_id]

if {$user_new_template eq ""} {
    set user_new_template "/packages/acs-subsite/lib/user-new"
}

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