Author: Alex Badea <vampire@p16.pub.ro>
[ircu2.10.12-pk.git] / ircd / res.c
index d9eb03579a75b5180952ad70b0f47c122b656d8b..d4d85fd848c1c021646ebeb33a00bc09864ad88d 100644 (file)
 #include "client.h"
 #include "ircd.h"
 #include "ircd_alloc.h"
+#include "ircd_events.h"
 #include "ircd_log.h"
 #include "ircd_osdep.h"
 #include "ircd_reply.h"
+#include "ircd_snprintf.h"
 #include "ircd_string.h"
 #include "msg.h"
 #include "numeric.h"
@@ -26,7 +28,6 @@
 #include "s_debug.h"
 #include "s_misc.h"
 #include "send.h"
-#include "sprintf_irc.h"
 #include "struct.h"
 #include "support.h"
 #include "sys.h"
@@ -200,6 +201,10 @@ struct CacheTable {
 
 int ResolverFileDescriptor    = -1;   /* GLOBAL - used in s_bsd.c */
 
+static struct Socket resSock;          /* Socket describing resolver */
+static struct Timer  resExpireDNS;     /* Timer for DNS expiration */
+static struct Timer  resExpireCache;   /* Timer for cache expiration */
+
 static time_t nextDNSCheck    = 0;
 static time_t nextCacheExpire = 1;
 
@@ -222,6 +227,8 @@ static struct ResRequest* requestListTail;   /* tail of resolver request list */
 static void     add_request(struct ResRequest* request);
 static void     rem_request(struct ResRequest* request);
 static struct ResRequest*   make_request(const struct DNSQuery* query);
+static time_t   timeout_query_list(time_t now);
+static time_t   expire_cache(time_t now);
 static void     rem_cache(struct CacheEntry*);
 static void     do_query_name(const struct DNSQuery* query, 
                               const char* name, 
@@ -298,6 +305,14 @@ res_ourserver(const struct __res_state* statp, const struct sockaddr_in* inp)
   return (0);
 }
 
+/* Socket callback for resolver */
+static void res_callback(struct Event* ev)
+{
+  assert(ev_type(ev) == ET_READ || ev_type(ev) == ET_ERROR);
+
+  resolver_read();
+}
+
 /*
  * start_resolver - do everything we need to read the resolv.conf file
  * and initialize the resolver file descriptor if needed
@@ -320,7 +335,8 @@ static void start_resolver(void)
   spare_fd = open("/dev/null",O_RDONLY,0);
   if ((spare_fd < 0) || (spare_fd > 255)) {
     char sparemsg[80];
-    sprintf_irc(sparemsg, "invalid spare_fd %d", spare_fd);
+    ircd_snprintf(0, sparemsg, sizeof(sparemsg), "invalid spare_fd %d",
+                 spare_fd);
     server_restart(sparemsg);
   }
 
@@ -340,9 +356,33 @@ static void start_resolver(void)
     if (!os_set_nonblocking(ResolverFileDescriptor))
       report_error("Resolver: error setting non-blocking for %s: %s", 
                    cli_name(&me), errno);
+    if (!socket_add(&resSock, res_callback, 0, SS_DATAGRAM,
+                   SOCK_EVENT_READABLE, ResolverFileDescriptor))
+      report_error("Resolver: unable to queue resolver file descriptor for %s",
+                  cli_name(&me), ENFILE);
   }
 }
 
+/* Call the query timeout function */
+static void expire_DNS_callback(struct Event* ev)
+{
+  time_t next;
+
+  next = timeout_query_list(CurrentTime);
+
+  timer_add(&resExpireDNS, expire_DNS_callback, 0, TT_ABSOLUTE, next);
+}
+
+/* Call the cache expire function */
+static void expire_cache_callback(struct Event* ev)
+{
+  time_t next;
+
+  next = expire_cache(CurrentTime);
+
+  timer_add(&resExpireCache, expire_cache_callback, 0, TT_ABSOLUTE, next);
+}
+
 /*
  * init_resolver - initialize resolver and resolver library
  */
@@ -358,6 +398,12 @@ int init_resolver(void)
 
   requestListHead = requestListTail = 0;
 
+  /* initiate the resolver timers */
+  timer_add(timer_init(&resExpireDNS), expire_DNS_callback, 0,
+           TT_RELATIVE, 1);
+  timer_add(timer_init(&resExpireCache), expire_cache_callback, 0,
+           TT_RELATIVE, 1);
+
   errno = h_errno = 0;
 
   start_resolver();
@@ -672,9 +718,9 @@ static void do_query_number(const struct DNSQuery* query,
 
   assert(0 != addr);
   cp = (const unsigned char*) &addr->s_addr;
-  sprintf_irc(ipbuf, "%u.%u.%u.%u.in-addr.arpa.",
-              (unsigned int)(cp[3]), (unsigned int)(cp[2]),
-              (unsigned int)(cp[1]), (unsigned int)(cp[0]));
+  ircd_snprintf(0, ipbuf, sizeof(ipbuf), "%u.%u.%u.%u.in-addr.arpa.",
+               (unsigned int)(cp[3]), (unsigned int)(cp[2]),
+               (unsigned int)(cp[1]), (unsigned int)(cp[0]));
 
   if (!request) {
     request              = make_request(query);
@@ -760,8 +806,10 @@ static int proc_answer(struct ResRequest* request, HEADER* header,
   u_char* current;             /* current position in buf */
   char** alias;                /* alias list */
   char** addr;                 /* address list */
+  char** base_addr;            /* original pointer to address list */
   char*  name;                 /* pointer to name string */
   char*  address;              /* pointer to address */
+  char*  base_address;         /* original pointer to address */
   char*  endp;                 /* end of our buffer */
   int    query_class;          /* answer class */
   int    type;                 /* answer type */
@@ -770,6 +818,7 @@ static int proc_answer(struct ResRequest* request, HEADER* header,
   int    n;                    /* temp count */
   int    addr_count  = 0;      /* number of addresses in hostent */
   int    alias_count = 0;      /* number of aliases in hostent */
+  int    t_ptr_seen = 0;       /* Seen a T_PTR in proc_answer? */
   struct hostent* hp;          /* hostent getting filled */
 
   assert(0 != request);
@@ -810,11 +859,14 @@ static int proc_answer(struct ResRequest* request, HEADER* header,
     ++addr;
     ++addr_count;
   }
+  base_addr = addr;
   /*
    * make address point to first available address slot
    */
   address = request->he.buf + ADDRS_OFFSET +
                     (sizeof(struct in_addr) * addr_count);
+  base_address = address;
+
   /*
    * find the end of the alias list
    */
@@ -884,7 +936,10 @@ static int proc_answer(struct ResRequest* request, HEADER* header,
     case T_A:
       /*
        * check for invalid rd_length or too many addresses
+       * ignore T_A relies if looking for a T_PTR
        */
+      if (t_ptr_seen)
+       return answer_count;
       if (rd_length != sizeof(struct in_addr))
         return answer_count;
       if (++addr_count < RES_MAXADDRS) {
@@ -908,6 +963,11 @@ static int proc_answer(struct ResRequest* request, HEADER* header,
       ++answer_count;
       break;
     case T_PTR:
+      t_ptr_seen = 1;
+      addr_count = 0;
+      addr = base_addr;
+      *addr = 0;
+      address = base_address;
       n = dn_expand(buf, eob, current, hostbuf, sizeof(hostbuf));
       if (n < 0) {
         /*
@@ -1406,9 +1466,6 @@ static struct CacheEntry* add_to_cache(struct CacheEntry* ocp)
 */
 static void update_list(struct ResRequest* request, struct CacheEntry* cachep)
 {
-#if 0
-  struct CacheEntry** cpp;
-#endif
   struct CacheEntry*  cp = cachep;
   char*    s;
   char*    t;
@@ -1423,17 +1480,6 @@ static void update_list(struct ResRequest* request, struct CacheEntry* cachep)
    * If found, move the entry to the top of the list and return.
    */
   ++cainfo.ca_updates;
-#if 0
-  for (cpp = &cacheTop; *cpp; cpp = &((*cpp)->list_next)) {
-    if (cp == *cpp)
-      break;
-  }
-  if (!*cpp)
-    return;
-  *cpp = cp->list_next;
-  cp->list_next = cacheTop;
-  cacheTop = cp;
-#endif
 
   if (!request)
     return;
@@ -1567,7 +1613,7 @@ static struct CacheEntry* make_cache(struct ResRequest* request)
    * shouldn't happen but it just might...
    */
   assert(0 != hp->h_name);
-  assert(0 != hp->h_addr_list[0]);
+/*    assert(0 != hp->h_addr_list[0]); */
   if (!hp->h_name || !hp->h_addr_list[0])
     return NULL;
   /*