]> git.netwichtig.de Git - user/henk/code/inspircd.git/blobdiff - src/dns.cpp
for real
[user/henk/code/inspircd.git] / src / dns.cpp
index 756c2d5dc12c6cfdc442f1fd585e8881d7171d38..a6599bf0ab9e9b1613411bb96453e5cc182c306b 100644 (file)
@@ -2,7 +2,7 @@
  *       | Inspire Internet Relay Chat Daemon |
  *       +------------------------------------+
  *
- *  InspIRCd: (C) 2002-2007 InspIRCd Development Team
+ *  InspIRCd: (C) 2002-2008 InspIRCd Development Team
  * See: http://www.inspircd.org/wiki/index.php/Credits
  *
  * This program is free but copyrighted software; see
@@ -11,6 +11,8 @@
  * ---------------------------------------------------
  */
 
+/* $Core: libIRCDasyncdns */
+
 /*
 dns.cpp - Nonblocking DNS functions.
 Very very loosely based on the firedns library,
@@ -21,21 +23,27 @@ Please do not assume that firedns works like this,
 looks like this, walks like this or tastes like this.
 */
 
+#ifndef WIN32
 #include <sys/types.h>
 #include <sys/socket.h>
 #include <errno.h>
 #include <netinet/in.h>
 #include <arpa/inet.h>
+#else
+#include "inspircd_win32wrapper.h"
+#include "inspircd_se_config.h"
+#endif
+
 #include "dns.h"
 #include "inspircd.h"
 #include "socketengine.h"
 #include "configreader.h"
 #include "socket.h"
 
-using irc::sockets::insp_sockaddr;
 using irc::sockets::insp_inaddr;
 using irc::sockets::insp_ntoa;
 using irc::sockets::insp_aton;
+using irc::sockets::OpenTCPSocket;
 
 /** Masks to mask off the responses we get from the DNSRequest methods
  */
@@ -61,9 +69,8 @@ enum QueryFlags
 
 /** Represents a dns resource record (rr)
  */
-class ResourceRecord
+struct ResourceRecord
 {
- public:
        QueryType       type;           /* Record type */
        unsigned int    rr_class;       /* Record class */
        unsigned long   ttl;            /* Time to live */
@@ -92,27 +99,43 @@ class DNSRequest
        unsigned char*  res;            /* Result processing buffer */
        unsigned int    rr_class;       /* Request class */
        QueryType       type;           /* Request type */
-       insp_inaddr     myserver;       /* DNS server address*/
        DNS*            dnsobj;         /* DNS caller (where we get our FD from) */
+       unsigned long   ttl;            /* Time to live */
+       std::string     orig;           /* Original requested name/ip */
+       InspIRCd*       ServerInstance;
 
-       DNSRequest(InspIRCd* Instance, DNS* dns, insp_inaddr server, int id);
+       DNSRequest(InspIRCd* Instance, DNS* dns, int id, const std::string &original);
        ~DNSRequest();
-       DNSInfo ResultIsReady(DNSHeader &h, int length);
+       DNSInfo ResultIsReady(DNSHeader &h, int length, int result_we_want);
        int SendRequests(const DNSHeader *header, const int length, QueryType qt);
 };
 
-class RequestTimeout : public InspTimer
+class CacheTimer : public Timer
+{
+ private:
+       InspIRCd* ServerInstance;
+       DNS* dns;
+ public:
+       CacheTimer(InspIRCd* Instance, DNS* thisdns)
+               : Timer(3600, Instance->Time(), true), ServerInstance(Instance), dns(thisdns) { }
+
+       virtual void Tick(time_t)
+       {
+               dns->PruneCache();
+       }
+};
+
+class RequestTimeout : public Timer
 {
        InspIRCd* ServerInstance;
        DNSRequest* watch;
        int watchid;
  public:
-       RequestTimeout(unsigned long n, InspIRCd* SI, DNSRequest* watching, int id) : InspTimer(n, time(NULL)), ServerInstance(SI), watch(watching), watchid(id)
+       RequestTimeout(unsigned long n, InspIRCd* SI, DNSRequest* watching, int id) : Timer(n, time(NULL)), ServerInstance(SI), watch(watching), watchid(id)
        {
-               ServerInstance->Log(DEBUG, "New DNS timeout set on %08x", watching);
        }
 
-       void Tick(time_t TIME)
+       void Tick(time_t)
        {
                if (ServerInstance->Res->requests[watchid] == watch)
                {
@@ -125,20 +148,18 @@ class RequestTimeout : public InspTimer
                        }
                        ServerInstance->Res->requests[watchid] = NULL;
                        delete watch;
-                       ServerInstance->Log(DEBUG, "DNS timeout on %08x squished pointer", watch);
                        return;
                }
-               ServerInstance->Log(DEBUG, "DNS timeout on %08x: result already received!", watch);
        }
 };
 
 /* Allocate the processing buffer */
-DNSRequest::DNSRequest(InspIRCd* Instance, DNS* dns, insp_inaddr server, int id) : dnsobj(dns)
+DNSRequest::DNSRequest(InspIRCd* Instance, DNS* dns, int rid, const std::string &original) : dnsobj(dns), ServerInstance(Instance)
 {
        res = new unsigned char[512];
        *res = 0;
-       memcpy(&myserver, &server, sizeof(insp_inaddr));
-       RequestTimeout* RT = new RequestTimeout(Instance->Config->dns_timeout ? Instance->Config->dns_timeout : 5, Instance, this, id);
+       orig = original;
+       RequestTimeout* RT = new RequestTimeout(Instance->Config->dns_timeout ? Instance->Config->dns_timeout : 5, Instance, this, rid);
        Instance->Timers->AddTimer(RT); /* The timer manager frees this */
 }
 
@@ -192,7 +213,8 @@ inline void DNS::EmptyHeader(unsigned char *output, const DNSHeader *header, con
 /** Send requests we have previously built down the UDP socket */
 int DNSRequest::SendRequests(const DNSHeader *header, const int length, QueryType qt)
 {
-       insp_sockaddr addr;
+       ServerInstance->Logs->Log("RESOLVER", DEBUG,"DNSRequest::SendRequests");
+
        unsigned char payload[sizeof(DNSHeader)];
 
        this->rr_class = 1;
@@ -200,24 +222,35 @@ int DNSRequest::SendRequests(const DNSHeader *header, const int length, QueryTyp
                
        DNS::EmptyHeader(payload,header,length);
 
-       memset(&addr,0,sizeof(addr));
 #ifdef IPV6
-       memcpy(&addr.sin6_addr,&myserver,sizeof(addr.sin6_addr));
-       addr.sin6_family = AF_FAMILY;
-       addr.sin6_port = htons(DNS::QUERY_PORT);
-#else
-       memcpy(&addr.sin_addr.s_addr,&myserver,sizeof(addr.sin_addr));
-       addr.sin_family = AF_FAMILY;
-       addr.sin_port = htons(DNS::QUERY_PORT);
+       if (this->dnsobj->socketfamily == AF_INET6)
+       {
+               sockaddr_in6 addr;
+               memset(&addr,0,sizeof(addr));
+               memcpy(&addr.sin6_addr,&dnsobj->myserver6,sizeof(addr.sin6_addr));
+               addr.sin6_family = AF_INET6;
+               addr.sin6_port = htons(DNS::QUERY_PORT);
+               if (ServerInstance->SE->SendTo(dnsobj, payload, length + 12, 0, (sockaddr *) &addr, sizeof(addr)) != length+12)
+                       return -1;
+       }
+       else
 #endif
-       if (sendto(dnsobj->GetFd(), payload, length + 12, 0, (sockaddr *) &addr, sizeof(addr)) == -1)
-               return -1;
+       {
+               sockaddr_in addr;
+               memset(&addr,0,sizeof(addr));
+               memcpy(&addr.sin_addr.s_addr,&dnsobj->myserver4,sizeof(addr.sin_addr));
+               addr.sin_family = AF_INET;
+               addr.sin_port = htons(DNS::QUERY_PORT);
+               if (ServerInstance->SE->SendTo(dnsobj, (const char*)payload, length + 12, 0, (sockaddr *) &addr, sizeof(addr)) != length+12)
+                       return -1;
+       }
 
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"Sent OK");
        return 0;
 }
 
 /** Add a query with a predefined header, and allocate an ID for it. */
-DNSRequest* DNS::AddQuery(DNSHeader *header, int &id)
+DNSRequest* DNS::AddQuery(DNSHeader *header, int &id, const char* original)
 {
        /* Is the DNS connection down? */
        if (this->GetFd() == -1)
@@ -230,7 +263,7 @@ DNSRequest* DNS::AddQuery(DNSHeader *header, int &id)
        while (requests[id])
                id = this->PRNG() & DNS::MAX_REQUEST_ID;
 
-       DNSRequest* req = new DNSRequest(ServerInstance, this, this->myserver, id);
+       DNSRequest* req = new DNSRequest(ServerInstance, this, id, original);
 
        header->id[0] = req->id[0] = id >> 8;
        header->id[1] = req->id[1] = id & 0xFF;
@@ -250,111 +283,146 @@ DNSRequest* DNS::AddQuery(DNSHeader *header, int &id)
        return req;
 }
 
-/** Initialise the DNS UDP socket so that we can send requests */
-DNS::DNS(InspIRCd* Instance) : ServerInstance(Instance)
+int DNS::ClearCache()
 {
-       ServerInstance->Log(DEBUG,"DNS::DNS: Instance = %08x",Instance);
-
-       insp_inaddr addr;
-
-       /* Clear the Resolver class table */
-       memset(Classes,0,sizeof(Classes));
+       /* This ensures the buckets are reset to sane levels */
+       int rv = this->cache->size();
+       delete this->cache;
+       this->cache = new dnscache();
+       return rv;
+}
 
-       /* Clear the requests class table */
-       memset(requests,0,sizeof(requests));
+int DNS::PruneCache()
+{
+       int n = 0;
+       dnscache* newcache = new dnscache();
+       for (dnscache::iterator i = this->cache->begin(); i != this->cache->end(); i++)
+               /* Dont include expired items (theres no point) */
+               if (i->second.CalcTTLRemaining())
+                       newcache->insert(*i);
+               else
+                       n++;
 
-       /* Set the id of the next request to 0
-        */
-       currid = 0;
+       delete this->cache;
+       this->cache = newcache;
+       return n;
+}
 
-       /* By default we're not munging ip's
-        */
+void DNS::Rehash()
+{
        ip6munge = false;
+       int portpass = 0;
 
-       /* Clear the namesever address */
-       memset(&myserver,0,sizeof(insp_inaddr));
-
-       /* Convert the nameserver address into an insp_inaddr */
-       if (insp_aton(ServerInstance->Config->DNSServer,&addr) > 0)
+       if (this->GetFd() > -1)
        {
-               memcpy(&myserver,&addr,sizeof(insp_inaddr));
-               if ((strstr(ServerInstance->Config->DNSServer,"::ffff:") == (char*)&ServerInstance->Config->DNSServer) ||  (strstr(ServerInstance->Config->DNSServer,"::FFFF:") == (char*)&ServerInstance->Config->DNSServer))
-               {
-                       /* These dont come back looking like they did when they went in.
-                        * We're forced to turn some checks off.
-                        * If anyone knows how to fix this, let me know. --Brain
-                        */
-                       ServerInstance->Log(DEFAULT,"WARNING: Using IPv4 addresses over IPv6 forces some DNS checks to be disabled.");
-                       ServerInstance->Log(DEFAULT,"         This should not cause a problem, however it is recommended you migrate");
-                       ServerInstance->Log(DEFAULT,"         to a true IPv6 environment.");
-                       this->ip6munge = true;
-               }
-               ServerInstance->Log(DEBUG,"Added nameserver '%s'",ServerInstance->Config->DNSServer);
+               if (ServerInstance && ServerInstance->SE)
+                       ServerInstance->SE->DelFd(this);
+               ServerInstance->SE->Shutdown(this, 2);
+               ServerInstance->SE->Close(this);
+               this->SetFd(-1);
+
+               /* Rehash the cache */
+               this->PruneCache();
        }
        else
        {
-               ServerInstance->Log(DEBUG,"GACK! insp_aton says the nameserver '%s' is invalid!",ServerInstance->Config->DNSServer);
+               /* Create initial dns cache */
+               this->cache = new dnscache();
        }
 
-       /* Initialize mastersocket */
-       this->SetFd(socket(PF_PROTOCOL, SOCK_DGRAM, 0));
-       if (this->GetFd() != -1)
+       if ((strstr(ServerInstance->Config->DNSServer,"::ffff:") == (char*)&ServerInstance->Config->DNSServer) ||  (strstr(ServerInstance->Config->DNSServer,"::FFFF:") == (char*)&ServerInstance->Config->DNSServer))
        {
-               /* Did it succeed? */
-               if (fcntl(this->GetFd(), F_SETFL, O_NONBLOCK) != 0)
-               {
-                       /* Couldn't make the socket nonblocking */
-                       shutdown(this->GetFd(),2);
-                       close(this->GetFd());
-                       this->SetFd(-1);
-               }
+               ServerInstance->Logs->Log("RESOLVER",DEFAULT,"WARNING: Using IPv4 addresses over IPv6 forces some DNS checks to be disabled.");
+               ServerInstance->Logs->Log("RESOLVER",DEFAULT,"         This should not cause a problem, however it is recommended you migrate");
+               ServerInstance->Logs->Log("RESOLVER",DEFAULT,"         to a true IPv6 environment.");
+               this->ip6munge = true;
+       }
+
+       this->socketfamily = AF_INET;
+#ifdef IPV6
+       if (strchr(ServerInstance->Config->DNSServer,':'))
+       {
+               this->socketfamily = AF_INET6;
+               inet_pton(AF_INET6, ServerInstance->Config->DNSServer, &this->myserver6);
        }
        else
        {
-               ServerInstance->Log(DEBUG,"I cant socket() this socket! (%s)",strerror(errno));
+               inet_aton(ServerInstance->Config->DNSServer, &this->myserver4);
+               portpass = -1;
        }
+#else
+       inet_aton(ServerInstance->Config->DNSServer, &this->myserver4);
+#endif
+
+       /* Initialize mastersocket */
+       int s = OpenTCPSocket(ServerInstance->Config->DNSServer, SOCK_DGRAM);
+       this->SetFd(s);
+       ServerInstance->SE->NonBlocking(this->GetFd());
+
        /* Have we got a socket and is it nonblocking? */
        if (this->GetFd() != -1)
        {
-#ifdef IPV6
-               insp_sockaddr addr;
-               memset(&addr,0,sizeof(addr));
-               addr.sin6_family = AF_FAMILY;
-               addr.sin6_port = 0;
-               addr.sin6_addr = in6addr_any;
-#else
-               insp_sockaddr addr;
-               memset(&addr,0,sizeof(addr));
-               addr.sin_family = AF_FAMILY;
-               addr.sin_port = 0;
-               addr.sin_addr.s_addr = INADDR_ANY;
-#endif
-               /* Bind the port */
-               if (bind(this->GetFd(),(sockaddr *)&addr,sizeof(addr)) != 0)
+               /* Bind the port - port 0 INADDR_ANY */
+               if (!ServerInstance->BindSocket(this->GetFd(), portpass, "", false))
                {
                        /* Failed to bind */
-                       ServerInstance->Log(DEBUG,"Cant bind DNS fd");
-                       shutdown(this->GetFd(),2);
-                       close(this->GetFd());
+                       ServerInstance->Logs->Log("RESOLVER",DEBUG,"Error binding dns socket");
+                       ServerInstance->SE->Shutdown(this, 2);
+                       ServerInstance->SE->Close(this);
                        this->SetFd(-1);
                }
 
                if (this->GetFd() >= 0)
                {
-                       ServerInstance->Log(DEBUG,"Add master socket %d",this->GetFd());
                        /* Hook the descriptor into the socket engine */
                        if (ServerInstance && ServerInstance->SE)
                        {
                                if (!ServerInstance->SE->AddFd(this))
                                {
-                                       ServerInstance->Log(DEFAULT,"Internal error starting DNS - hostnames will NOT resolve.");
-                                       shutdown(this->GetFd(),2);
-                                       close(this->GetFd());
+                                       ServerInstance->Logs->Log("RESOLVER",DEFAULT,"Internal error starting DNS - hostnames will NOT resolve.");
+                                       ServerInstance->SE->Shutdown(this, 2);
+                                       ServerInstance->SE->Close(this);
                                        this->SetFd(-1);
                                }
                        }
                }
        }
+       else
+       {
+               ServerInstance->Logs->Log("RESOLVER",DEBUG,"Error creating dns socket");
+       }
+}
+
+/** Initialise the DNS UDP socket so that we can send requests */
+DNS::DNS(InspIRCd* Instance) : ServerInstance(Instance)
+{
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"DNS::DNS");
+       /* Clear the Resolver class table */
+       memset(Classes,0,sizeof(Classes));
+
+       /* Clear the requests class table */
+       memset(requests,0,sizeof(requests));
+
+       /* Set the id of the next request to 0
+        */
+       currid = 0;
+
+       /* DNS::Rehash() sets this to a valid ptr
+        */
+       this->cache = NULL;
+       
+       /* Again, DNS::Rehash() sets this to a
+        * valid value
+        */
+       this->SetFd(-1);
+
+       /* Actually read the settings
+        */
+       this->Rehash();
+
+       this->PruneTimer = new CacheTimer(ServerInstance, this);
+
+       ServerInstance->Timers->AddTimer(this->PruneTimer);
 }
 
 /** Build a payload to be placed after the header, based upon input data, a resource type, a class and a pointer to a buffer */
@@ -404,7 +472,7 @@ int DNS::GetIP(const char *name)
        if ((length = this->MakePayload(name, DNS_QUERY_A, 1, (unsigned char*)&h.payload)) == -1)
                return -1;
 
-       DNSRequest* req = this->AddQuery(&h, id);
+       DNSRequest* req = this->AddQuery(&h, id, name);
 
        if ((!req) || (req->SendRequests(&h, length, DNS_QUERY_A) == -1))
                return -1;
@@ -422,7 +490,7 @@ int DNS::GetIP6(const char *name)
        if ((length = this->MakePayload(name, DNS_QUERY_AAAA, 1, (unsigned char*)&h.payload)) == -1)
                return -1;
 
-       DNSRequest* req = this->AddQuery(&h, id);
+       DNSRequest* req = this->AddQuery(&h, id, name);
 
        if ((!req) || (req->SendRequests(&h, length, DNS_QUERY_AAAA) == -1))
                return -1;
@@ -440,7 +508,7 @@ int DNS::GetCName(const char *alias)
        if ((length = this->MakePayload(alias, DNS_QUERY_CNAME, 1, (unsigned char*)&h.payload)) == -1)
                return -1;
 
-       DNSRequest* req = this->AddQuery(&h, id);
+       DNSRequest* req = this->AddQuery(&h, id, alias);
 
        if ((!req) || (req->SendRequests(&h, length, DNS_QUERY_CNAME) == -1))
                return -1;
@@ -472,7 +540,7 @@ int DNS::GetName(const insp_inaddr *ip)
        if ((length = this->MakePayload(query, DNS_QUERY_PTR, 1, (unsigned char*)&h.payload)) == -1)
                return -1;
 
-       DNSRequest* req = this->AddQuery(&h, id);
+       DNSRequest* req = this->AddQuery(&h, id, insp_ntoa(*ip));
 
        if ((!req) || (req->SendRequests(&h, length, DNS_QUERY_PTR) == -1))
                return -1;
@@ -513,12 +581,10 @@ int DNS::GetNameForce(const char *ip, ForceProtocol fp)
                        return -1;
        }
 
-       ServerInstance->Log(DEBUG,"DNS::GetNameForce: %s %d",query, fp);
-
        if ((length = this->MakePayload(query, DNS_QUERY_PTR, 1, (unsigned char*)&h.payload)) == -1)
                return -1;
 
-       DNSRequest* req = this->AddQuery(&h, id);
+       DNSRequest* req = this->AddQuery(&h, id, ip);
 
        if ((!req) || (req->SendRequests(&h, length, DNS_QUERY_PTR) == -1))
                return -1;
@@ -549,28 +615,29 @@ void DNS::MakeIP6Int(char* query, const in6_addr *ip)
 }
 
 /** Return the next id which is ready, and the result attached to it */
-DNSResult DNS::GetResult()
+DNSResult DNS::GetResult(int resultnum)
 {
        /* Fetch dns query response and decide where it belongs */
        DNSHeader header;
        DNSRequest *req;
        unsigned char buffer[sizeof(DNSHeader)];
-       sockaddr from;
-       socklen_t x = sizeof(from);
-       const char* ipaddr_from = "";
+       sockaddr* from = new sockaddr[2];
+#ifdef IPV6
+       socklen_t x = this->socketfamily == AF_INET ? sizeof(sockaddr_in) : sizeof(sockaddr_in6);
+#else
+       socklen_t x = sizeof(sockaddr_in);
+#endif
+       const char* ipaddr_from;
        unsigned short int port_from = 0;
 
-       int length = recvfrom(this->GetFd(),buffer,sizeof(DNSHeader),0,&from,&x);
-
-       if (length < 0)
-               ServerInstance->Log(DEBUG,"Error in recvfrom()! (%s)",strerror(errno));
+       int length = ServerInstance->SE->RecvFrom(this, (char*)buffer, sizeof(DNSHeader), 0, from, &x);
 
        /* Did we get the whole header? */
        if (length < 12)
        {
                /* Nope - something screwed up. */
-               ServerInstance->Log(DEBUG,"Whole header not read!");
-               return std::make_pair(-1,"");
+               delete[] from;
+               return DNSResult(-1,"",0,"");
        }
 
        /* Check wether the reply came from a different DNS
@@ -583,12 +650,20 @@ DNSResult DNS::GetResult()
         * -- Thanks jilles for pointing this one out.
         */
 #ifdef IPV6
-       ipaddr_from = insp_ntoa(((sockaddr_in6*)&from)->sin6_addr);
-       port_from = ntohs(((sockaddr_in6*)&from)->sin6_port);
-#else
-       ipaddr_from = insp_ntoa(((sockaddr_in*)&from)->sin_addr);
-       port_from = ntohs(((sockaddr_in*)&from)->sin_port);
+       char nbuf[MAXBUF];
+       if (this->socketfamily == AF_INET6)
+       {
+               ipaddr_from = inet_ntop(AF_INET6, &((sockaddr_in6*)from)->sin6_addr, nbuf, sizeof(nbuf));
+               port_from = ntohs(((sockaddr_in6*)from)->sin6_port);
+       }
+       else
 #endif
+       {
+               ipaddr_from = inet_ntoa(((sockaddr_in*)from)->sin_addr);
+               port_from = ntohs(((sockaddr_in*)from)->sin_port);
+       }
+
+       delete[] from;
 
        /* We cant perform this security check if you're using 4in6.
         * Tough luck to you, choose one or't other!
@@ -597,8 +672,7 @@ DNSResult DNS::GetResult()
        {
                if ((port_from != DNS::QUERY_PORT) || (strcasecmp(ipaddr_from, ServerInstance->Config->DNSServer)))
                {
-                       ServerInstance->Log(DEBUG,"port %d is not 53, or %s is not %s",port_from, ipaddr_from, ServerInstance->Config->DNSServer);
-                       return std::make_pair(-1,"");
+                       return DNSResult(-1,"",0,"");
                }
        }
 
@@ -615,8 +689,7 @@ DNSResult DNS::GetResult()
        if (!requests[this_id])
        {
                /* Somehow we got a DNS response for a request we never made... */
-               ServerInstance->Log(DEBUG,"DNS: got a response for a query we didnt send with fd=%d queryid=%d",this->GetFd(),this_id);
-               return std::make_pair(-1,"");
+               return DNSResult(-1,"",0,"");
        }
        else
        {
@@ -629,7 +702,7 @@ DNSResult DNS::GetResult()
         * When its finished it will return a DNSInfo which is a pair of
         * unsigned char* resource record data, and an error message.
         */
-       DNSInfo data = req->ResultIsReady(header, length);
+       DNSInfo data = req->ResultIsReady(header, length, resultnum);
        std::string resultstr;
 
        /* Check if we got a result, if we didnt, its an error */
@@ -641,11 +714,13 @@ DNSResult DNS::GetResult()
                 * an error response and needs to be treated uniquely.
                 * Put the error message in the second field.
                 */
+               std::string ro = req->orig;
                delete req;
-               return std::make_pair(this_id | ERROR_MASK, data.second);
+               return DNSResult(this_id | ERROR_MASK, data.second, 0, ro);
        }
        else
        {
+               unsigned long ttl = req->ttl;
                char formatted[128];
 
                /* Forward lookups come back as binary data. We must format them into ascii */
@@ -658,15 +733,7 @@ DNSResult DNS::GetResult()
 
                        case DNS_QUERY_AAAA:
                        {
-                               snprintf(formatted,40,"%x:%x:%x:%x:%x:%x:%x:%x",
-                                               (ntohs(data.first[0]) + ntohs(data.first[1] << 8)),
-                                               (ntohs(data.first[2]) + ntohs(data.first[3] << 8)),
-                                               (ntohs(data.first[4]) + ntohs(data.first[5] << 8)),
-                                               (ntohs(data.first[6]) + ntohs(data.first[7] << 8)),
-                                               (ntohs(data.first[8]) + ntohs(data.first[9] << 8)),
-                                               (ntohs(data.first[10]) + ntohs(data.first[11] << 8)),
-                                               (ntohs(data.first[12]) + ntohs(data.first[13] << 8)),
-                                               (ntohs(data.first[14]) + ntohs(data.first[15] << 8)));
+                               inet_ntop(AF_INET6, data.first, formatted, sizeof(formatted));
                                char* c = strstr(formatted,":0:");
                                if (c != NULL)
                                {
@@ -687,7 +754,7 @@ DNSResult DNS::GetResult()
                                 * as the last parameter on the line with a value ":1".
                                 */
                                if (*formatted == ':')
-                                       resultstr = "0" + resultstr;
+                                       resultstr.insert(0, "0");
                        }
                        break;
 
@@ -700,19 +767,19 @@ DNSResult DNS::GetResult()
                        break;
 
                        default:
-                               ServerInstance->Log(DEBUG,"WARNING: Somehow we made a request for a DNS_QUERY_PTR4 or DNS_QUERY_PTR6, but these arent real rr types!");
                        break;
                        
                }
 
                /* Build the reply with the id and hostname/ip in it */
+               std::string ro = req->orig;
                delete req;
-               return std::make_pair(this_id,resultstr);
+               return DNSResult(this_id,resultstr,ttl,ro);
        }
 }
 
 /** A result is ready, process it */
-DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
+DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length, int result_we_want)
 {
        int i = 0;
        int q = 0;
@@ -723,6 +790,8 @@ DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
        /* This is just to keep _FORTIFY_SOURCE happy */
        rr.type = DNS_QUERY_NONE;
        rr.rdlength = 0;
+       rr.ttl = 1;     /* GCC is a whiney bastard -- see the XXX below. */
+       rr.rr_class = 0; /* Same for VC++ */
 
        if (!(header.flags1 & FLAGS_MASK_QR))
                return std::make_pair((unsigned char*)NULL,"Not a query result");
@@ -780,7 +849,10 @@ DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
                if (length - i < 10)
                        return std::make_pair((unsigned char*)NULL,"Incorrectly sized DNS reply");
 
-               DNS::FillResourceRecord(&rr,&header.payload[i]);
+               /* XXX: We actually initialise 'rr' here including its ttl field */
+               if (curanswer == result_we_want)
+                       DNS::FillResourceRecord(&rr,&header.payload[i]);
+       
                i += 10;
                if (rr.type != this->type)
                {
@@ -797,7 +869,7 @@ DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
                break;
        }
        if ((unsigned int)curanswer == header.ancount)
-               return std::make_pair((unsigned char*)NULL,"No valid answers");
+               return std::make_pair((unsigned char*)NULL,"No more answers (" + ConvToStr(header.ancount) + " answers, wanted #" + ConvToStr(result_we_want) + ")");
 
        if (i + rr.rdlength > (unsigned int)length)
                return std::make_pair((unsigned char*)NULL,"Resource record larger than stated");
@@ -805,6 +877,8 @@ DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
        if (rr.rdlength > 1023)
                return std::make_pair((unsigned char*)NULL,"Resource record too large");
 
+       this->ttl = rr.ttl;
+
        switch (rr.type)
        {
                case DNS_QUERY_CNAME:
@@ -851,20 +925,57 @@ DNSInfo DNSRequest::ResultIsReady(DNSHeader &header, int length)
                        res[rr.rdlength] = 0;
                break;
        }
-       return std::make_pair(res,"No error");;
+       return std::make_pair(res,"No error");
 }
 
 /** Close the master socket */
 DNS::~DNS()
 {
-       shutdown(this->GetFd(), 2);
-       close(this->GetFd());
+       ServerInstance->SE->Shutdown(this, 2);
+       ServerInstance->SE->Close(this);
+       ServerInstance->Timers->DelTimer(this->PruneTimer);
+}
+
+CachedQuery* DNS::GetCache(const std::string &source)
+{
+       dnscache::iterator x = cache->find(source.c_str());
+       if (x != cache->end())
+               return &(x->second);
+       else
+               return NULL;
+}
+               
+void DNS::DelCache(const std::string &source)
+{
+       cache->erase(source.c_str());
+}
+
+void Resolver::TriggerCachedResult()
+{
+       if (CQ)
+               OnLookupComplete(CQ->data, time_left, true, 0);
 }
 
 /** High level abstraction of dns used by application at large */
-Resolver::Resolver(InspIRCd* Instance, const std::string &source, QueryType qt, Module* creator) : ServerInstance(Instance), Creator(creator), input(source), querytype(qt)
+Resolver::Resolver(InspIRCd* Instance, const std::string &source, QueryType qt, bool &cached, Module* creator) : ServerInstance(Instance), Creator(creator), input(source), querytype(qt)
 {
-       ServerInstance->Log(DEBUG,"Instance: %08x %08x",Instance, ServerInstance);
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"Resolver::Resolver");
+       cached = false;
+
+       CQ = ServerInstance->Res->GetCache(source);
+       if (CQ)
+       {
+               time_left = CQ->CalcTTLRemaining();
+               if (!time_left)
+               {
+                       ServerInstance->Res->DelCache(source);
+               }
+               else
+               {
+                       cached = true;
+                       return;
+               }
+       }
 
        insp_inaddr binip;
 
@@ -912,18 +1023,19 @@ Resolver::Resolver(InspIRCd* Instance, const std::string &source, QueryType qt,
        }
        if (this->myid == -1)
        {
-               ServerInstance->Log(DEBUG,"Resolver::Resolver: Could not get an id!");
                this->OnError(RESOLVER_NSDOWN, "Nameserver is down");
                throw ModuleException("Resolver: Couldnt get an id to make a request");
                /* We shouldnt get here really */
                return;
        }
-
-       ServerInstance->Log(DEBUG,"Resolver::Resolver: this->myid=%d",this->myid);
+       else
+       {
+               ServerInstance->Logs->Log("RESOLVER",DEBUG,"DNS request id %d", this->myid);
+       }
 }
 
 /** Called when an error occurs */
-void Resolver::OnError(ResolverError e, const std::string &errormessage)
+void Resolver::OnError(ResolverError, const std::string&)
 {
        /* Nothing in here */
 }
@@ -946,52 +1058,65 @@ Module* Resolver::GetCreator()
 }
 
 /** Process a socket read event */
-void DNS::HandleEvent(EventType et, int errornum)
+void DNS::HandleEvent(EventType, int)
 {
        /* Fetch the id and result of the next available packet */
-       DNSResult res = this->GetResult();
+       int resultnum = 0;
+       DNSResult res(0,"",0,"");
+       res.id = 0;
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"Handle DNS event");
+
+       res = this->GetResult(resultnum);
+
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"Result %d id %d", resultnum, res.id);
+       
        /* Is there a usable request id? */
-       if (res.first != -1)
+       if (res.id != -1)
        {
                /* Its an error reply */
-               if (res.first & ERROR_MASK)
+               if (res.id & ERROR_MASK)
                {
                        /* Mask off the error bit */
-                       res.first -= ERROR_MASK;
+                       res.id -= ERROR_MASK;
                        /* Marshall the error to the correct class */
-                       ServerInstance->Log(DEBUG,"Error available, id=%d",res.first);
-                       if (Classes[res.first])
+                       if (Classes[res.id])
                        {
                                if (ServerInstance && ServerInstance->stats)
                                        ServerInstance->stats->statsDnsBad++;
-                               Classes[res.first]->OnError(RESOLVER_NXDOMAIN, res.second);
-                               delete Classes[res.first];
-                               Classes[res.first] = NULL;
+                               Classes[res.id]->OnError(RESOLVER_NXDOMAIN, res.result);
+                               delete Classes[res.id];
+                               Classes[res.id] = NULL;
                        }
+                       return;
                }
                else
                {
-                       /* It is a non-error result */
-                       ServerInstance->Log(DEBUG,"Result available, id=%d",res.first);
-                       /* Marshall the result to the correct class */
-                       if (Classes[res.first])
+                       /* It is a non-error result, marshall the result to the correct class */
+                       if (Classes[res.id])
                        {
                                if (ServerInstance && ServerInstance->stats)
                                        ServerInstance->stats->statsDnsGood++;
-                               Classes[res.first]->OnLookupComplete(res.second);
-                               delete Classes[res.first];
-                               Classes[res.first] = NULL;
+       
+                               if (!this->GetCache(res.original.c_str()))
+                                       this->cache->insert(std::make_pair(res.original.c_str(), CachedQuery(res.result, res.ttl)));
+
+                               Classes[res.id]->OnLookupComplete(res.result, res.ttl, false, resultnum);
+                               delete Classes[res.id];
+                               Classes[res.id] = NULL;
                        }
                }
-
+       
                if (ServerInstance && ServerInstance->stats)
                        ServerInstance->stats->statsDns++;
        }
-}
 
+       resultnum++;
+}
+       
 /** Add a derived Resolver to the working set */
 bool DNS::AddResolverClass(Resolver* r)
 {
+       ServerInstance->Logs->Log("RESOLVER",DEBUG,"AddResolverClass 0x%08lx", (unsigned long)r);
        /* Check the pointers validity and the id's validity */
        if ((r) && (r->GetId() > -1))
        {
@@ -1044,9 +1169,10 @@ unsigned long DNS::PRNG()
        timeval n;
        serverstats* s = ServerInstance->stats;
        gettimeofday(&n,NULL);
-       val = (n.tv_usec ^ getpid() ^ geteuid() ^ (this->currid++)) ^ s->statsAccept + n.tv_sec;
-       val = val + s->statsCollisions ^ s->statsDnsGood - s->statsDnsBad;
-       val += (s->statsConnects ^ (unsigned long)s->statsSent ^ (unsigned long)s->statsRecv) - s->BoundPortCount;
+       val = (n.tv_usec ^ (getpid() ^ geteuid()) ^ ((this->currid++)) ^ s->statsAccept) + n.tv_sec;
+       val = val + (s->statsCollisions ^ s->statsDnsGood) - s->statsDnsBad;
+       val += (s->statsConnects ^ (unsigned long)s->statsSent ^ (unsigned long)s->statsRecv) - ServerInstance->Config->ports.size();
        return val;
 }
 
+