X-Git-Url: http://git.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=libs%2Fweb%2Fluasrc%2Fhttp.lua;h=18112507ce3565b6e7643ab8060fa61636282203;hp=6b73b9414cf0c129a1596ac4144b64d12fc529da;hb=b0d3b82400abc1d3ae591e3a5b313584dda612a4;hpb=ffd5c4ec656bd3f216c66b43587abcfdaf2b5c37 diff --git a/libs/web/luasrc/http.lua b/libs/web/luasrc/http.lua index 6b73b9414c..18112507ce 100644 --- a/libs/web/luasrc/http.lua +++ b/libs/web/luasrc/http.lua @@ -12,9 +12,9 @@ Copyright 2008 Steven Barth 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 +You may obtain a copy of the License at - http://www.apache.org/licenses/LICENSE-2.0 + 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, @@ -25,12 +25,14 @@ limitations under the License. ]]-- local ltn12 = require "luci.ltn12" -local proto = require "luci.http.protocol" +local protocol = require "luci.http.protocol" local util = require "luci.util" local string = require "string" local coroutine = require "coroutine" +local table = require "table" -local pairs, tostring, error = pairs, tostring, error +local ipairs, pairs, next, type, tostring, error = + ipairs, pairs, next, type, tostring, error --- LuCI Web Framework high-level HTTP functions. module "luci.http" @@ -45,14 +47,14 @@ function Request.__init__(self, env, sourcein, sinkerr) -- File handler self.filehandler = function() end - + -- HTTP-Message table self.message = { env = env, headers = {}, params = protocol.urldecode_params(env.QUERY_STRING or ""), } - + self.parsed_input = false end @@ -60,7 +62,7 @@ function Request.formvalue(self, name, noparse) if not noparse and not self.parsed_input then self:_parse_input() end - + if name then return self.message.params[name] else @@ -71,18 +73,18 @@ end function Request.formvaluetable(self, prefix) local vals = {} prefix = prefix and prefix .. "." or "." - + if not self.parsed_input then self:_parse_input() end - + local void = self.message.params[nil] for k, v in pairs(self.message.params) do if k:find(prefix, 1, true) == 1 then vals[k:sub(#prefix + 1)] = tostring(v) end end - + return vals end @@ -90,7 +92,7 @@ function Request.content(self) if not self.parsed_input then self:_parse_input() end - + return self.message.content, self.message.content_length end @@ -128,7 +130,7 @@ function close() context.eoh = true coroutine.yield(3) end - + if not context.closed then context.closed = true coroutine.yield(5) @@ -164,7 +166,7 @@ function getcookie(name) return context.request:getcookie(name) end ---- Get the value of a certain HTTP environment variable +--- Get the value of a certain HTTP environment variable -- or the environment table itself. -- @param name Environment variable -- @return HTTP environment value or environment table @@ -192,14 +194,16 @@ end --- Set the mime type of following content data. -- @param mime Mimetype of following content function prepare_content(mime) - if mime == "application/xhtml+xml" then - if not getenv("HTTP_ACCEPT") or - not getenv("HTTP_ACCEPT"):find("application/xhtml+xml", nil, true) then - mime = "text/html; charset=UTF-8" + if not context.headers or not context.headers["content-type"] then + if mime == "application/xhtml+xml" then + if not getenv("HTTP_ACCEPT") or + not getenv("HTTP_ACCEPT"):find("application/xhtml+xml", nil, true) then + mime = "text/html; charset=UTF-8" + end + header("Vary", "Accept") end - header("Vary", "Accept") + header("Content-Type", mime) end - header("Content-Type", mime) end --- Get the RAW HTTP input source @@ -246,8 +250,8 @@ function write(content, src_err) header("Cache-Control", "no-cache") header("Expires", "0") end - - + + context.eoh = true coroutine.yield(3) end @@ -256,6 +260,13 @@ function write(content, src_err) end end +--- Splice data from a filedescriptor to the client. +-- @param fp File descriptor +-- @param size Bytes to splice (optional) +function splice(fd, size) + coroutine.yield(6, fd, size) +end + --- Redirects the client to a new URL and closes the connection. -- @param url Target URL function redirect(url) @@ -267,14 +278,18 @@ end --- Create a querystring out of a table of key - value pairs. -- @param table Query string source table -- @return Encoded HTTP query string -function build_querystring(table) - local s="?" - - for k, v in pairs(table) do - s = s .. urlencode(k) .. "=" .. urlencode(v) .. "&" +function build_querystring(q) + local s = { "?" } + + for k, v in pairs(q) do + if #s > 1 then s[#s+1] = "&" end + + s[#s+1] = urldecode(k) + s[#s+1] = "=" + s[#s+1] = urldecode(v) end - - return s + + return table.concat(s, "") end --- Return the URL-decoded equivalent of a string. @@ -289,3 +304,42 @@ urldecode = protocol.urldecode -- @return URL-encoded string -- @see urldecode urlencode = protocol.urlencode + +--- Send the given data as JSON encoded string. +-- @param data Data to send +function write_json(x) + if x == nil then + write("null") + elseif type(x) == "table" then + local k, v + if type(next(x)) == "number" then + write("[ ") + for k, v in ipairs(x) do + write_json(v) + if next(x, k) then + write(", ") + end + end + write(" ]") + else + write("{ ") + for k, v in pairs(x) do + write("%q: " % k) + write_json(v) + if next(x, k) then + write(", ") + end + end + write(" }") + end + elseif type(x) == "number" or type(x) == "boolean" then + if (x ~= x) then + -- NaN is the only value that doesn't equal to itself. + write("Number.NaN") + else + write(tostring(x)) + end + else + write("%q" % tostring(x)) + end +end