mirror of
https://github.com/lunarmodules/luasocket.git
synced 2024-11-08 14:28:21 +01:00
0b2542d1a6
Implemented stuffing (needs test) Added cddb and qp examples.
44 lines
1.3 KiB
Lua
44 lines
1.3 KiB
Lua
if not arg or not arg[1] or not arg[2] then
|
|
print("luasocket cddb.lua <category> <disc-id> [<server>]")
|
|
os.exit(1)
|
|
end
|
|
|
|
local server = arg[3] or "http://freedb.freedb.org/~cddb/cddb.cgi"
|
|
|
|
function parse(body)
|
|
local lines = string.gfind(body, "(.-)\r\n")
|
|
local status = lines()
|
|
local _, _, code, message = string.find(status, "(%d%d%d) (.*)")
|
|
if tonumber(code) ~= 210 then
|
|
return nil, code, message
|
|
end
|
|
local data = {}
|
|
for l in lines do
|
|
local c = string.sub(l, 1, 1)
|
|
if c ~= '#' and c ~= '.' then
|
|
local _, _, key, value = string.find(l, "(.-)=(.*)")
|
|
value = string.gsub(value, "\\n", "\n")
|
|
value = string.gsub(value, "\\\\", "\\")
|
|
value = string.gsub(value, "\\t", "\t")
|
|
data[key] = value
|
|
end
|
|
end
|
|
return data, code, message
|
|
end
|
|
|
|
local host = socket.dns.gethostname()
|
|
local query = "%s?cmd=cddb+read+%s+%s&hello=LuaSocket+%s+LuaSocket+2.0&proto=6"
|
|
local url = string.format(query, server, arg[1], arg[2], host)
|
|
local body, headers, code, error = socket.http.get(url)
|
|
|
|
if code == 200 then
|
|
local data, code, error = parse(body)
|
|
if not data then
|
|
print(error or code)
|
|
else
|
|
for i,v in data do
|
|
io.write(i, ': ', v, '\n')
|
|
end
|
|
end
|
|
else print(error) end
|