zyppe/luasocket
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Just to check out in the office.

Browse source
This commit is contained in:
Diego Nehab 2005-02-27 18:30:32 +00:00
parent 8d4e240f6a
commit 7350bad6f4
4 changed files with 30 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/http.lua
View file

@ -173,8 +173,10 @@ local function adjustrequest(reqt)
return nreqt
end
local function shouldredirect(reqt, code)
return (reqt.redirect ~= false) and
local function shouldredirect(reqt, code, headers)
return headers.location and
string.gsub(headers.location, "%s", "") ~= "" and
(reqt.redirect ~= false) and
(code == 301 or code == 302) and
(not reqt.method or reqt.method == "GET" or reqt.method == "HEAD")
and (not reqt.nredirects or reqt.nredirects < 5)
@ -226,7 +228,7 @@ function trequest(reqt)
local code, headers, status
code, status = h:receivestatusline()
headers = h:receiveheaders()
if shouldredirect(reqt, code) then
if shouldredirect(reqt, code, headers) then
h:close()
return tredirect(reqt, headers)
elseif shouldauthorize(reqt, code) then