[ViewVC] Diff of: cvs/gvpe/src/vpn

Comparing gvpe/src/vpn_dns.C (file contents):
Revision 1.51 by root, Sun Mar 6 19:40:28 2011 UTC vs.
Revision 1.53 by root, Tue Oct 18 10:54:17 2011 UTC

 #include "netcompat.h"
 #include "vpn.h"
-#define MIN_POLL_INTERVAL 0.1 // poll at most this often when no data received
+#define MIN_POLL_INTERVAL 0.025 // poll at most this often when no data received
 #define MAX_POLL_INTERVAL 1.  // how often to poll minimally when the server has no data
 #define INITIAL_TIMEOUT     0.1 // retry timeouts
 #define INITIAL_SYN_TIMEOUT 2. // retry timeout for initial syn
-#define MAX_SEND_INTERVAL 2. // optimistic?
+#define MAX_SEND_INTERVAL 5. // optimistic?
 #define MAX_WINDOW      1000 // max. for MAX_OUTSTANDING, and backlog
 #define MAX_BACKLOG     (64*1024) // size of gvpe protocol backlog (bytes), must be > MAXSIZE
-#define MAX_DOMAIN_SIZE 240 // 255 is legal limit, but bind doesn't compress well
+#define MAX_DOMAIN_SIZE 235 // 255 is legal limit, but bind doesn't compress well
 // 240 leaves about 4 bytes of server reply data
 // every request byte less give room for two reply bytes
 #define SEQNO_MASK 0x3fff
 #define SEQNO_EQ(a,b) ( 0 == ( ((a) ^ (b)) & SEQNO_MASK) )
 static
 u16 next_id ()
 {
   static u16 dns_id = 0; // TODO: should be per-vpn
+#if 1
   if (!dns_id)
     dns_id = time (0);
   // the simplest lsfr with periodicity 65535 i could find
   dns_id = (dns_id << 1)
                ^ (dns_id >> 2)
                ^ (dns_id >> 4)
                ^ (dns_id >> 15)) & 1);
   return dns_id;
+#else
+  dns_id++;//D
+  return htons (dns_id);
+#endif
 }
 struct dns_rcv;
 struct dns_snd;
   established = false;
   rcvseq = repseq = sndseq = 0;
-  last_sent = last_received = 0;
+  last_sent = 0;
   poll_interval = 0.5; // starting here
   send_interval = 0.5; // starting rate
   min_latency = INITIAL_TIMEOUT;
 }
 void
 dns_connection::receive_rep (dns_rcv *r)
 {
   if (r->datalen)
-    {
+    poll_interval = max (poll_interval * (1. / 1.2), MIN_POLL_INTERVAL);
-      last_received = ev_now ();
-      tw ();
-      poll_interval = send_interval;
-    }
   else
-    {
+    poll_interval = min (poll_interval * 1.1, MAX_POLL_INTERVAL);
-      poll_interval *= 1.5;
-      if (poll_interval > MAX_POLL_INTERVAL)
-        poll_interval = MAX_POLL_INTERVAL;
-    }
   rcvpq.push_back (r);
   redo:
         dns_connection *dns = (*i)->dns;
         connection *c = dns->c;
         int seqno = (*i)->seqno;
         u8 data[MAXSIZE], *datap = data;
         //printf ("rcv pkt %x\n", seqno);//D
-        bool back_off = (*i)->retry;
-        if (back_off)
+        if ((*i)->retry)
           {
             dns->send_interval *= 1.01;
             if (dns->send_interval > MAX_SEND_INTERVAL)
               dns->send_interval = MAX_SEND_INTERVAL;
           }
           }
         // todo: pkt now used
         if (datap)
           dns->receive_rep (new dns_rcv (seqno, data, datap - data));
-        else if (dns_sndpq.empty ()) // no data received, and nothing to send - idle
-          {
-            dns->send_interval *= 1.1;
-            if (dns->send_interval < MIN_POLL_INTERVAL)
-              dns->send_interval = MIN_POLL_INTERVAL;
-            if (dns->send_interval > MAX_POLL_INTERVAL && !back_off)
-              dns->send_interval = MAX_POLL_INTERVAL;
-          }
         break;
       }
 }
   if (!c->dns)
     c->dns = new dns_connection (c);
   if (c->dns->snddq.put (pkt))
+    {
+      min_it (c->dns->poll_interval, 0.25);
-    c->dns->tw ();
+      c->dns->tw ();
+    }
   // always return true even if the buffer overflows
   return true;
 }
-#define NEXT(w) do { if (next > (w)) next = w; } while (0)
 void
 dns_connection::time_cb (ev::timer &w, int revents)
 {
   // servers have to be polled
   if (THISNODE->dns_port)
     return;
   // check for timeouts and (re)transmit
-  tstamp next = ev::now () + poll_interval;
+  tstamp next = 86400 * 365;
   dns_snd *send = 0;
   for (vector<dns_snd *>::iterator i = vpn->dns_sndpq.begin ();
        i != vpn->dns_sndpq.end ();
        ++i)
           if (!send)
             {
               send = r;
               r->retry++;
-              r->timeout = ev_now () + (r->retry * min_latency * conf.dns_timeout_factor);
+              r->timeout = ev_now () + r->retry * min_latency * conf.dns_timeout_factor;
               //printf ("RETRY %x (%d, %f)\n", r->seqno, r->retry, r->timeout - ev_now ());//D
               // the following code changes the query section a bit, forcing
               // the forwarder to generate a new request
               if (r->stdhdr)
                 encode_header ((char *)r->pkt->at (6 * 2 + 1), THISNODE->id, r->seqno, r->retry);
             }
         }
       else
-        NEXT (r->timeout);
+        min_it (next, r->timeout - ev_now ());
     }
   if (!send)
     {
       // generate a new packet, if wise
                && !SEQNO_EQ (rcvseq, sndseq - (MAX_WINDOW - 1)))
         {
           if (last_sent + send_interval <= ev_now ())
             {
               //printf ("sending data request etc.\n"); //D
-              if (!snddq.empty () || last_received + 1. > ev_now ())
+              if (!snddq.empty ())
-                {
-                  poll_interval = send_interval;
+                min_it (next, send_interval);
-                  NEXT (ev_now () + send_interval);
-                }
               send = new dns_snd (this);
               send->gen_stream_req (sndseq, snddq);
               send->timeout = ev_now () + min_latency * conf.dns_timeout_factor;
               //printf ("SEND %x (%f)\n", send->seqno, send->timeout - ev_now (), min_latency, conf.dns_timeout_factor);//D
               sndseq = (sndseq + 1) & SEQNO_MASK;
             }
           else
-            NEXT (last_sent + send_interval);
+            min_it (next, last_sent + send_interval - ev_now ());
         }
       if (send)
         vpn->dns_sndpq.push_back (send);
     }
       sendto (vpn->dnsv4_fd,
               send->pkt->at (0), send->pkt->len, 0,
               vpn->dns_forwarder.sav4 (), vpn->dns_forwarder.salenv4 ());
     }
+  min_it (next, last_sent + max (poll_interval, send_interval) - ev_now ());
   slog (L_NOISE, "DNS: pi %f si %f N %f (%d:%d %d)",
         poll_interval, send_interval, next - ev_now (),
         vpn->dns_sndpq.size (), snddq.size (),
         rcvpq.size ());
-  // TODO: no idea when this happens, but when next < ev_now (), we have a problem
+  w.start (next);
-  // doesn't seem to happen anymore
-  if (next < ev_now () + 0.001)
-    next = ev_now () + 0.1;
-  w.start (next - ev_now ());
 }
 #endif

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing gvpe/src/vpn_dns.C (file contents): Revision 1.51 by root, Sun Mar 6 19:40:28 2011 UTC vs. Revision 1.53 by root, Tue Oct 18 10:54:17 2011 UTC

Diff Legend

Comparing gvpe/src/vpn_dns.C (file contents):
Revision 1.51 by root, Sun Mar 6 19:40:28 2011 UTC vs.
Revision 1.53 by root, Tue Oct 18 10:54:17 2011 UTC