# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1229055395 0
# Node ID b17fd66b7e10e12c66bcadc96a5f6215a0e82f36
# Parent  69bc5782b25eb6175ed55a728b3e3ec29ce765e0
HTTP request callbacks now: handler(code, content) (where code may be 0, and content an error message)

diff -r 69bc5782b25e -r b17fd66b7e10 net/http.lua
--- a/net/http.lua	Fri Dec 12 04:06:15 2008 +0000
+++ b/net/http.lua	Fri Dec 12 04:16:35 2008 +0000
@@ -27,10 +27,10 @@
 local function request_reader(request, data, startpos)
 	if not data then
 		if request.body then
-			request.callback(t_concat(request.body));
+			request.callback(request.code, t_concat(request.body));
 		else
 			-- Error.. connection was closed prematurely
-			request.callback(nil, "connection-closed");
+			request.callback(0, "connection-closed");
 		end
 		destroy_request(request);
 		return;
@@ -47,7 +47,7 @@
 			if request.havebodylength >= request.bodylength then
 				-- We have the body
 				if request.callback then
-					request.callback(t_concat(request.body));
+					request.callback(request.code, t_concat(request.body));
 				end
 			end
 			print("", "Have "..request.havebodylength.." bytes out of "..request.bodylength);
@@ -78,14 +78,14 @@
 		print("Reading status...")
 		local http, code, text, linelen = data:match("^HTTP/(%S+) (%d+) (.-)\r\n()", startpos);
 		if not code then
-			return request.callback(nil, "invalid-status-line", data);
+			return request.callback(0, "invalid-status-line");
 		end
 		
 		request.responsecode, request.responseversion = code, http;
 		
 		if request.onlystatus or not expectbody(request, tonumber(code)) then
 			if request.callback then
-				request.callback(code);
+				request.callback(code, nil);
 			end
 			destroy_request(request);
 			return;