A few change to make it more customizable

and prepare integration to EiffelWebReloaded (see on github)

application.e

@@ -18,9 +18,20 @@ feature {NONE} -- Initialization
 			-- Run application.
 		local
 			l_server : HTTP_SERVER
+			l_cfg: HTTP_SERVER_CONFIGURATION
+			l_http_handler : HTTP_CONNECTION_HANDLER
 		do
-			create l_server.make
-			l_server.setup
+			create l_cfg.make
+			l_cfg.http_server_port := 9_000
+			l_cfg.document_root := default_document_root
+
+			create l_server.make (l_cfg)
+			create l_http_handler.make (l_server, "HTTP_HANDLER")
+			l_server.setup (l_http_handler)
 		end
 
+feature -- Access
+
+	default_document_root: STRING = "webroot"
+
 end