GSoC Commit #1: LuCId + HTTP-Server

1 files changed, 33 insertions, 0 deletions

diff --git a/libs/lucid-http/luasrc/lucid/http.lua b/libs/lucid-http/luasrc/lucid/http.lua
new file mode 100644
index 0000000000..32ba5791de
--- /dev/null
+++ b/libs/lucid-http/luasrc/lucid/http.lua
@@ -0,0 +1,33 @@
+--[[
+LuCI - Lua Configuration Interface
+
+Copyright 2009 Steven Barth <steven@midlink.org>
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+	http://www.apache.org/licenses/LICENSE-2.0
+
+$Id$
+]]--
+
+local require, ipairs, pcall = require, ipairs, pcall
+local srv = require "luci.lucid.http.server"
+
+module "luci.lucid.http"
+
+function factory(publisher)
+	local server = srv.Server()
+	for _, r in ipairs(publisher) do
+		local t = r[".type"]
+		local s, mod = pcall(require, "luci.lucid.http." .. (r[".type"] or ""))
+		if s and mod then
+			mod.factory(server, r)
+		else
+			return nil, mod
+		end
+	end
+
+	return function(...) return server:process(...) end
+end
\ No newline at end of file