luasocket: samples/cddb.lua annotate

annotate samples/cddb.lua @ 0:4b915342e2a8

LuaSocket 2.0.2 + CMake build description.

author	Eric Wing <ewing . public \|-at-\| gmail . com>
date	Tue, 26 Aug 2008 18:40:01 -0700
parents
children

rev	line source
0 4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	1 local socket = require("socket")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	2 local http = require("socket.http")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	3
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	4 if not arg or not arg[1] or not arg[2] then
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	5 print("luasocket cddb.lua <category> <disc-id> [<server>]")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	6 os.exit(1)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	7 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	8
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	9 local server = arg[3] or "http://freedb.freedb.org/~cddb/cddb.cgi"
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	10
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	11 function parse(body)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	12 local lines = string.gfind(body, "(.-)\r\n")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	13 local status = lines()
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	14 local code, message = socket.skip(2, string.find(status, "(%d%d%d) (.*)"))
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	15 if tonumber(code) ~= 210 then
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	16 return nil, code, message
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	17 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	18 local data = {}
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	19 for l in lines do
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	20 local c = string.sub(l, 1, 1)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	21 if c ~= '#' and c ~= '.' then
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	22 local key, value = socket.skip(2, string.find(l, "(.-)=(.*)"))
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	23 value = string.gsub(value, "\\n", "\n")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	24 value = string.gsub(value, "\\\\", "\\")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	25 value = string.gsub(value, "\\t", "\t")
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	26 data[key] = value
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	27 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	28 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	29 return data, code, message
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	30 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	31
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	32 local host = socket.dns.gethostname()
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	33 local query = "%s?cmd=cddb+read+%s+%s&hello=LuaSocket+%s+LuaSocket+2.0&proto=6"
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	34 local url = string.format(query, server, arg[1], arg[2], host)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	35 local body, headers, code = http.get(url)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	36
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	37 if code == 200 then
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	38 local data, code, error = parse(body)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	39 if not data then
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	40 print(error or code)
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	41 else
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	42 for i,v in pairs(data) do
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	43 io.write(i, ': ', v, '\n')
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	44 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	45 end
4b915342e2a8 LuaSocket 2.0.2 + CMake build description. Eric Wing <ewing . public \|-at-\| gmail . com> parents: diff changeset	46 else print(error) end

Mercurial > luasocket

annotate samples/cddb.lua @ 0:4b915342e2a8