webmcp

view framework/env/auth/openid/_curl.lua @ 64:3d43a5cf17c1

Compatibility with Lua 5.2
author jbe
date Sun Apr 15 16:04:33 2012 +0200 (2012-04-15)
parents 47ddf0f86009
children a54cc7dcabf1
line source
1 function auth.openid._curl(url, curl_options)
2 -- NOTE: Don't accept URLs starting with file:// or other nasty protocols
3 if not string.find(url, "^[Hh][Tt][Tt][Pp][Ss]?://") then
4 return nil
5 end
6 local options = table.new(curl_options)
7 options[#options+1] = "-i"
8 options[#options+1] = url
9 local stdout, errmsg, status = os.pfilter(nil, "curl", table.unpack(options))
10 if not stdout then
11 error("Error while executing curl: " .. errmsg)
12 end
13 if status ~= 0 then
14 return nil
15 end
16 local status = tonumber(string.match(stdout, "^[^ ]+ *([0-9]*)"))
17 local headers = string.match(stdout, "(\r?\n.-\r?\n)\r?\n")
18 local body = string.match(stdout, "\r?\n\r?\n(.*)")
19 return status, headers, body
20 end

Impressum / About Us