indexing
	description: "Example of using the network"
	library: "elogger"
	copyright: "Copyright (c) 2006, AXA Rosenberg, and others (see copyright.txt)"
	author: "Ulrich Weiss, and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: $"
	revision: "$Revision: $"
	archive: "$Archive: $"

class ELOG_TEST_SOCKET_CLIENT

inherit

	ELOG_SEVERITY_CONSTANTS
		export
			{NONE} all
		end

create
	make

feature {NONE} -- Initialization

	make (a_host: STRING; a_port: INTEGER) is
			-- creation procedure
		require
			a_port_valid: a_port > 0 and a_port <= 65535
			a_host_valid: a_host /= Void and then a_host.count > 0
		local
			h: ELOG_HIERARCHY
			i: INTEGER
		do
			create h.make (Warning_severity)
			h.root.add_appender (create {ELOG_SOCKET_APPENDER}.make ("socket appender1", a_host, a_port, True))

			from
				i := 0
			until
				i > 20
			loop
				h.root.log_warning (create {ELOG_SIMPLE_EVENT}.make (i.out))
				i := i + 1
			end
			h.close_all
		end
end