A few change to make it more customizable

and prepare integration to EiffelWebReloaded (see on github)

server/http_server.e

@@ -0,0 +1,61 @@
+note
+	description: "Summary description for {HTTP_SERVER}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	HTTP_SERVER
+
+inherit
+	SHARED_DOCUMENT_ROOT
+
+create
+	make
+
+feature -- Initialization
+
+	make (cfg: like configuration)
+		do
+			configuration := cfg
+		end
+
+	setup (a_http_handler : HTTP_CONNECTION_HANDLER)
+		require
+			a_http_handler_valid: a_http_handler /= Void
+		do
+			print("%N%N%N")
+			print ("Starting Web Application Server:%N")
+			stop_requested := False
+			set_server_configuration (configuration)
+			a_http_handler.launch
+			run
+		end
+
+	shutdown_server
+		do
+			stop_requested := True
+		end
+
+feature	-- Access
+
+	configuration: HTTP_SERVER_CONFIGURATION
+			-- Configuration of the server
+
+	stop_requested: BOOLEAN
+			-- Stops the server
+
+feature {NONE} -- implementation
+
+	run
+		-- Start the server
+		local
+			e: EXECUTION_ENVIRONMENT
+		do
+			create e
+			from until stop_requested loop
+				e.sleep (1_000_000)
+			end
+		end
+
+end