--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/cddb.lua	Tue Aug 26 18:40:01 2008 -0700
@@ -0,0 +1,46 @@
+local socket = require("socket")
+local http = require("socket.http")
+
+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 = socket.skip(2, 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 = socket.skip(2, 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 = 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 pairs(data) do
+            io.write(i, ': ', v, '\n')
+        end
+    end
+else print(error) end