authorize.tcl
Authorize
- Location:
- /packages/xooauth/lib/authorize.tcl
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_include_contract { Authorize } { client:notnull temp_credentials:notnull } # TODO: Handle cases, where we have no callback URL provided, as # described in: http://tools.ietf.org/html/rfc5849#section-2.2 set client_title [$client title] set client_description [$client description] set oauth_verifier [$temp_credentials verifier] set temp_credentials_id [$temp_credentials temp_credentials_id] set oauth_token [$temp_credentials identifier] set oauth_callback [$temp_credentials callback] set redirect_url [export_vars -base $oauth_callback {oauth_token oauth_verifier}] $temp_credentials msg $redirect_url ad_form -name authorize_temp_token -export {oauth_token redirect_url} -form { temp_credentials_id:key } -edit_request { } -on_submit { # TODO: Here, we should either delete the token or invalidate it? } -after_submit { ad_returnredirect -allow_complete_url $redirect_url ad_script_abort } # # Local variables: # mode: tcl # tcl-indent-level: 2 # indent-tabs-mode: nil # End: