[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyProtoKademlia.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyProtoKademlia.ml
diff -u mldonkey/src/networks/donkey/donkeyProtoKademlia.ml:1.13 
mldonkey/src/networks/donkey/donkeyProtoKademlia.ml:1.14
--- mldonkey/src/networks/donkey/donkeyProtoKademlia.ml:1.13    Tue Oct 25 
10:30:58 2005
+++ mldonkey/src/networks/donkey/donkeyProtoKademlia.ml Thu Oct 27 21:32:53 2005
@@ -232,10 +232,9 @@
         peer_ip = ip;
         peer_port = udp_port;
         peer_tcpport = tcp_port;
-        peer_kind = 3;
+        peer_kind = kind;
+        peer_last_recv = 0;
         peer_last_send = 0;
-        peer_expire = 0;
-        peer_created = last_time ();
       }, pos + 25
 
     let get_peers_from_results ip port answers =
@@ -258,7 +257,7 @@
                   )
               | Field_UNKNOWN "sourcetype" ->
                   for_int_tag tag (fun kind ->
-                      peer_kind := 3)
+                      peer_kind := kind)
               | _ ->
                 if !verbose_unknown_messages then
                   lprintf_nl () "Unused source tag [%s]"
@@ -269,10 +268,9 @@
             peer_port = !peer_udpport;
             peer_tcpport = !peer_tcpport;
             peer_md4 = r_md4;
+            peer_last_recv = 0;
             peer_last_send = 0;
-            peer_expire = 0;
-            peer_kind = 3;
-            peer_created = last_time ();
+            peer_kind = !peer_kind;
           }
       ) answers