* Added initial SGI for webuci
This commit is contained in:
parent
1b65106ac8
commit
6c7f800a56
3 changed files with 87 additions and 1 deletions
|
@ -31,4 +31,6 @@ module("ffluci.http", package.seeall)
|
||||||
|
|
||||||
if ENV and ENV.HASERLVER then
|
if ENV and ENV.HASERLVER then
|
||||||
require("ffluci.sgi.haserl")
|
require("ffluci.sgi.haserl")
|
||||||
|
elseif webuci then
|
||||||
|
require("ffluci.sgi.webuci")
|
||||||
end
|
end
|
|
@ -27,7 +27,6 @@ module("ffluci.sgi.haserl", package.seeall)
|
||||||
|
|
||||||
ENV = ENV or {}
|
ENV = ENV or {}
|
||||||
FORM = FORM or {}
|
FORM = FORM or {}
|
||||||
require("ffluci.util")
|
|
||||||
|
|
||||||
-- HTTP interface
|
-- HTTP interface
|
||||||
|
|
||||||
|
|
85
core/src/ffluci/sgi/webuci.lua
Normal file
85
core/src/ffluci/sgi/webuci.lua
Normal file
|
@ -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
|
Loading…
Reference in a new issue