---

Class ::xo::oauth::Credentials

::xo::oauth::Credentials create ...

All credentials are unique only between a client-server pair, which is the reason to store the client and server id at this level.

See Also:

http://tools.ietf.org/html/rfc5849#section-1.1

Defined in /var/www/openacs.org/packages/xooauth/tcl/oauth-procs.tcl

Class Relations

• class: ::xo::db::CrClass
• superclass: ::xo::db::CrItem
• subclass: ::xo::oauth::TempCredentials, ::xo::oauth::TokenCredentials, ::xo::oauth::ClientCredentials

::xo::db::CrClass create ::xo::oauth::Credentials \
     -superclass ::xo::db::CrItem

Methods (to be applied on instances)

• as_encoded_string (scripted)

  set oauth_token [::xo::oauth::utility urlencode ${:identifier}]
  set oauth_token_secret [::xo::oauth::utility urlencode ${:secret}]
  return "oauth_token=${oauth_token}&oauth_token_secret=${oauth_token_secret}"

• client_metadata_id (setter)

• credentials_id (setter)

• identifier (setter)

• mime_type (setter)

• secret (setter)

• server_metadata_id (setter)

• update (scripted)

  ::xo::dc transaction {
    next
    :instvar object_id secret identifier client_metadata_id server_metadata_id
    ::xo::dc dml update_xooauth_credentials {update xooauth_credentials
      set secret = :secret,identifier = :identifier,client_metadata_id = :client_metadata_id,server_metadata_id = :server_metadata_id where credentials_id = :object_id
    }
  }

---