indexing description: "Project set settings use case." author: "Dominique Schneider " date: "$Date: 2008-03-06 02:46:58 +0100 (Thu, 06 Mar 2008) $" revision: "$Revision: 2047 $" class PROJECT_CHANGE_SETTINGS inherit AUTH_USE_CASE O_USER_CONSTANTS O_PROJECT_CONSTANTS create make feature -- Access namespace: STRING is -- Namespace of this use case. once Result := project_namespace end type: STRING is -- Message type of this use case. once Result := project_change_settings_type end feature -- Basic operation start (a_msg: O_MESSAGE) is -- Start the use case by a_msg. local l_msg: O_PROJECT_CHANGE_SETTINGS_MESSAGE do l_msg ?= a_msg check session_message: l_msg /= Void end -- check if the user is authorized and act accordingly is_authorized_for_project (l_msg, "project_change_settings", l_msg.project_id, auth_node) end feature {NONE} -- Callbacks handle_auth_success (a_msg: O_MESSAGE) is -- a_msg has been authorized, execute it. do -- send message to storage node forward_to_node (a_msg, "storage1") end end