indexing description: "Retrieve Openid message." author: "Ueli Weiss" date: "$Date: 2007-10-23 15:46:06 +0200 (Tue, 23 Oct 2007) $" revision: "$Revision: 1129 $" class O_USER_RETRIEVE_OPENIDS_FROM_USER_MESSAGE inherit O_USER_SESSION_MESSAGE rename make as make_session redefine make_from_generic, arguments, type end create make create {O_MESSAGE_FACTORY} make_from_generic feature {NONE} -- Initialization make (a_session: like session; a_name: like name) is -- Create with a session and and user require a_session_ok: a_session /= Void and then not a_session.is_empty a_name_ok: a_name /= Void and then not a_name.is_empty do make_session (a_session) name := a_name ensure instruction_set: name = a_name end make_from_generic (a_msg: O_GENERIC_MESSAGE) is -- Create from a generic message. local l_args: HASH_TABLE [STRING, STRING] do Precursor (a_msg) l_args := a_msg.arguments name := l_args.item (name_argument) end feature -- Access type: STRING is -- Type of the message. once Result := user_retrieve_openids_from_user_type end name: STRING -- User name that has openid's associated with him. arguments: HASH_TABLE [STRING, STRING] is -- Named arguments. do Result := Precursor Result.force (name, name_argument) end feature {NONE} -- Implementation name_argument: STRING is "name" invariant name_set: name /= Void and then not name.is_empty end