util.xmppstream: When error is 'no-stream', pass the received tagname to the error...

[prosody.git] / net / adns.lua

diff --git a/net/adns.lua b/net/adns.lua
index 2f7b680458bf36e82de0d50ea3ba8a24f945d504..2a3fa8adbad9be872220c0f205eac6ab6d7feed2 100644 (file)
--- a/net/adns.lua
+++ b/net/adns.lua
@@ -52,6 +52,7 @@ function new_async_socket(sock, resolver)
        local peername = "<unknown>";
        local listener = {};
        local handler = {};
+       local err;
        function listener.onincoming(conn, data)
                if data then
                        dns.feed(handler, data);
@@ -68,9 +69,9 @@ function new_async_socket(sock, resolver)
                        resolver:servfail(conn); -- Let the magic commence
                end
        end
-       handler = server.wrapclient(sock, "dns", 53, listener);
+       handler, err = server.wrapclient(sock, "dns", 53, listener);
        if not handler then
-               log("warn", "handler is nil");
+               return nil, err;
        end
        
        handler.settimeout = function () end
@@ -78,7 +79,11 @@ function new_async_socket(sock, resolver)
        handler.setpeername = function (_, ...) peername = (...); local ret = sock:setpeername(...); _:set_send(dummy_send); return ret; end
        handler.connect = function (_, ...) return sock:connect(...) end
        --handler.send = function (_, data) _:write(data);  return _.sendbuffer and _.sendbuffer(); end
-       handler.send = function (_, data) return sock:send(data); end
+       handler.send = function (_, data)
+               local getpeername = sock.getpeername;
+               log("debug", "Sending DNS query to %s", (getpeername and getpeername(sock)) or "<unconnected>");
+               return sock:send(data);
+       end
        return handler;
 end