* Added initial SGI for webuci
authorSteven Barth <steven@midlink.org>
Mon, 5 May 2008 20:15:51 +0000 (20:15 +0000)
committerSteven Barth <steven@midlink.org>
Mon, 5 May 2008 20:15:51 +0000 (20:15 +0000)
core/src/ffluci/http.lua
core/src/ffluci/sgi/haserl.lua
core/src/ffluci/sgi/webuci.lua [new file with mode: 0644]

index a2c524ed6fb72205ab03bc78a1a69eac24533f50..f4ba5709468179aafd9d7f4445c6459bff2c03b5 100644 (file)
@@ -31,4 +31,6 @@ module("ffluci.http", package.seeall)
 
 if ENV and ENV.HASERLVER then
        require("ffluci.sgi.haserl")
+elseif webuci then
+       require("ffluci.sgi.webuci")
 end
\ No newline at end of file
index 75b9bf1087f46c0d32c0327babe78e5778f01b36..041cffc703a99c79fa91f120207d42449fd75dff 100644 (file)
@@ -27,7 +27,6 @@ module("ffluci.sgi.haserl", package.seeall)
 
 ENV = ENV or {}
 FORM = FORM or {}
-require("ffluci.util")
 
 -- HTTP interface
 
diff --git a/core/src/ffluci/sgi/webuci.lua b/core/src/ffluci/sgi/webuci.lua
new file mode 100644 (file)
index 0000000..f97b244
--- /dev/null
@@ -0,0 +1,85 @@
+--[[
+FFLuCI - SGI-Module for Haserl
+
+Description:
+Server Gateway Interface for Haserl
+
+FileId:
+$Id: haserl.lua 2004 2008-05-05 19:56:14Z Cyrus $
+
+License:
+Copyright 2008 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 
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.
+
+]]--
+module("ffluci.sgi.webuci", package.seeall)
+
+-- HTTP interface
+
+-- Returns a table of all COOKIE, GET and POST Parameters
+function ffluci.http.formvalues(prefix)
+       return webuci.vars
+end
+
+-- Gets form value from key
+function ffluci.http.formvalue(key, default)
+       return ffluci.http.formvalues()[key] or default
+end
+
+-- Gets a table of values with a certain prefix
+function ffluci.http.formvaluetable(prefix)
+       local vals = {}
+       prefix = prefix and prefix .. "." or "."
+       
+       for k, v in pairs(ffluci.http.formvalues()) do
+               if k:find(prefix, 1, true) == 1 then
+                       vals[k:sub(#prefix + 1)] = v
+               end
+       end
+       
+       return vals
+end
+
+
+-- Returns the User's IP
+function ffluci.http.get_remote_addr()
+       return os.getenv("REMOTE_ADDR")
+end
+
+-- Returns the script name
+function ffluci.http.get_script_name()
+       return os.getenv("SCRIPT_NAME")
+end
+
+
+-- Asks the browser to redirect to "url"
+function ffluci.http.redirect(url, qs)
+       if qs then
+               url = url .. "?" .. qs
+       end
+       
+       ffluci.http.set_status(302, "Found")
+       print("Location: " .. url .. "\n")
+end
+
+
+-- Set Content-Type
+function ffluci.http.set_content_type(type)
+       print("Content-Type: "..type.."\n")
+end
+
+-- Sets HTTP-Status-Header
+function ffluci.http.set_status(code, message)
+       print("Status: " .. tostring(code) .. " " .. message)
+end