libs/sgi-webuci/luasrc/sgi/webuci.lua

   1 --[[
   2 LuCI - SGI-Module for Haserl
   3
   4 Description:
   5 Server Gateway Interface for Haserl
   6
   7 FileId:
   8 $Id: webuci.lua 2027 2008-05-07 21:16:35Z Cyrus $
   9
  10 License:
  11 Copyright 2008 Steven Barth <steven@midlink.org>
  12
  13 Licensed under the Apache License, Version 2.0 (the "License");
  14 you may not use this file except in compliance with the License.
  15 You may obtain a copy of the License at
  16
  17         http://www.apache.org/licenses/LICENSE-2.0
  18
  19 Unless required by applicable law or agreed to in writing, software
  20 distributed under the License is distributed on an "AS IS" BASIS,
  21 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  22 See the License for the specific language governing permissions and
  23 limitations under the License.
  24
  25 ]]--
  26 module("luci.sgi.webuci", package.seeall)
  27
  28 local status_set = false
  29
  30 -- Initialize the environment
  31 function initenv(env, vars)
  32         luci.http.env = env
  33         luci.http.vars = vars
  34 end
  35
  36 -- Returns the main dispatcher URL
  37 function luci.http.dispatcher()
  38         return luci.http.env.SCRIPT_NAME or ""
  39 end
  40
  41 -- Returns the upload dispatcher URL
  42 function luci.http.dispatcher_upload()
  43         -- To be implemented
  44 end
  45
  46 -- Returns a table of all COOKIE, GET and POST Parameters
  47 function luci.http.formvalues()
  48         return luci.http.vars
  49 end
  50
  51 -- Gets form value from key
  52 function luci.http.formvalue(key, default)
  53         return luci.http.formvalues()[key] or default
  54 end
  55
  56 -- Gets a table of values with a certain prefix
  57 function luci.http.formvaluetable(prefix)
  58         local vals = {}
  59         prefix = prefix and prefix .. "." or "."
  60
  61         for k, v in pairs(luci.http.formvalues()) do
  62                 if k:find(prefix, 1, true) == 1 then
  63                         vals[k:sub(#prefix + 1)] = v
  64                 end
  65         end
  66
  67         return vals
  68 end
  69
  70 -- Sends a custom HTTP-Header
  71 function luci.http.header(key, value)
  72         print(key .. ": " .. value)
  73 end
  74
  75 -- Set Content-Type
  76 function luci.http.prepare_content(type)
  77         if not status_set then
  78                 luci.http.status(200, "OK")
  79         end
  80
  81         print("Content-Type: "..type.."\n")
  82 end
  83
  84 -- Asks the browser to redirect to "url"
  85 function luci.http.redirect(url)
  86         luci.http.status(302, "Found")
  87         luci.http.header("Location", url)
  88         print()
  89 end
  90
  91 -- Returns the path of an uploaded file
  92 -- WARNING! File uploads can be easily spoofed! Do additional sanity checks!
  93 function luci.http.upload(name)
  94         -- To be implemented
  95 end
  96
  97 -- Sets HTTP-Status-Header
  98 function luci.http.status(code, message)
  99         print(luci.http.env.SERVER_PROTOCOL .. " " .. tostring(code) .. " " .. message)
 100         status_set = true
 101 end