indexing
	description: "User create use case."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

class
	USER_CREATE

inherit
	USE_CASE

	O_USER_CONSTANTS

	O_CONFIG_CONSTANTS

create
	make

feature -- Access

	namespace: STRING is
			-- Namespace of this use case.
		once
			Result := user_namespace
		end

	type: STRING is
			-- Message type of this use case.
		once
			Result := user_create_type
		end

feature -- Basic operation

	start (a_msg: O_MESSAGE) is
			-- Start the use case by a_msg.
		local
			l_conf: O_GENERIC_MESSAGE

		do
			forward_to_node (a_msg, "storage1")

				-- also regeneration svn configuration
			create l_conf.make (config_namespace, config_svn_type)
			l_conf.set_reply_handler (agent forward_to_node (?, "config1"))
			node.send_message_node (l_conf, "storage1")

				-- also regenerate ftp configuration
			create l_conf.make (config_namespace, config_ftp_type)
			l_conf.set_reply_handler (agent forward_to_node (?, "config1"))
			node.send_message_node (l_conf, "storage1")

			create l_conf.make (config_namespace, config_command_type)
			l_conf.add_argument ("pureftp", "/usr/bin/pure-pw mkdb")
			node.send_message_node (l_conf, "config1")
		end

end