indexing
	description: "Origo Lookup configuration"
	license: "MIT license (see ../../license.txt)"
	author: "Beat Strasser <beat@stradax.net>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_LOOKUP_SERVICE_CONFIGURATION

inherit
	O_SERVICE_CONFIGURATION
		redefine
			validate
		end

create
	make,
	make_from_element,
	parse_from_string

feature -- Access

	Root_element_name: STRING is "OrigoLookupMainConfig"
	Key_host: STRING is "Host"
	Key_port: STRING is "Port"

	valid_keys: DS_LIST [STRING] is
			-- Valid keys
		once
			create {DS_ARRAYED_LIST [STRING]} Result.make_from_array (<< key_host, key_port >>)
		end

	host: STRING is
			-- Host name
		do
			Result := item (key_host)
		end

	port: INTEGER is
			-- Port
		do
			Result := item (key_port).to_integer
		end

feature {NONE} -- Implementation

	validate is
			-- Validate port
		do
			Precursor
			is_valid := is_valid and item (key_port).is_integer
		end

end