indexing
	description: "Project retrieve id use case."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date: 2008-03-20 16:39:54 +0100 (Thu, 20 Mar 2008) $"
	revision: "$Revision: 2104 $"

class
	PROJECT_RETRIEVE_ID

inherit
	AUTH_USE_CASE

	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_retrieve_id_type
		end

feature -- Basic operation

	start (a_msg: O_MESSAGE) is
			-- Start the use case by a_msg.
		local
			l_msg: O_SESSION_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_list", 0, auth_node)
		end

feature {NONE} -- Implementation

	handle_auth_success (a_msg: O_MESSAGE) is
			-- a_msg has been authorized, execute it.
		do
			forward_to_node (a_msg, "storage1")
		end

end