webmcp

view framework/env/auth/openid/_curl.lua @ 72:c2716baffa64

Added tag v1.2.0 for changeset 8b487a14414c
author jbe
date Sat Apr 21 20:48:58 2012 +0200 (2012-04-21)
parents a54cc7dcabf1
children
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 = extos.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