indexing
	description	: "System's root class"
	date: "$Date$"
	revision: "$Revision$"

class
	ROOT_CLASS

inherit

	GOA_HTTPD_SERVLET_APP
		rename
			make as parent_make
		end

	GOA_SHARED_SERVICE_REGISTRY
		export
			{NONE} all
		end

create
	make

feature -- Initialization

	make is
			-- Creation procedure.
		do
			create config
			config.set_server_port (port)
			config.set_document_root (".")
			parent_make("origo_xml_rpc_dummy_server", port, 10)
			register_servlets
			init_xml_rpc
			run
		end

feature -- Basic Operations

	register_servlets is
			-- Register servlets for this application
		local
			servlet: GOA_XMLRPC_SERVLET
		do
			servlet_manager.set_servlet_mapping_prefix (servlet_mapping_prefix)
			servlet_manager.set_config (config)
			create servlet.init (config)
			servlet_manager.register_servlet (servlet, servlet_name)
			servlet_manager.register_default_servlet (servlet)
		end

feature {NONE} -- Implementation

	config: GOA_SERVLET_CONFIG
			-- Configuration for Servlets

	port: INTEGER is 7777
			-- listening port

	servlet_name: STRING is "origo"
	servlet_mapping_prefix: STRING is "servlet"

	init_xml_rpc is
			-- initialise XML RPC calls
		local
			dummy_server: DUMMY_SERVER
			system_server: GOA_XRPC_SYSTEM
		do
			create dummy_server.make
			registry.register (dummy_server, servlet_name)
			--create system_server.make
			--registry.register(system_server, "system")
		end


end -- class ROOT_CLASS