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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyGlobals.ml
diff -u mldonkey/src/networks/donkey/donkeyGlobals.ml:1.51 
mldonkey/src/networks/donkey/donkeyGlobals.ml:1.52
--- mldonkey/src/networks/donkey/donkeyGlobals.ml:1.51  Sat Sep 17 17:59:47 2005
+++ mldonkey/src/networks/donkey/donkeyGlobals.ml       Sun Sep 18 19:00:52 2005
@@ -565,6 +565,10 @@
       client_emule_proto = emule_proto ();
       client_comp = None;
       client_connection_time = 0;
+      client_req_challenge = Int64.zero;
+      client_sent_challenge = Int64.zero;
+      client_public_key = None;
+      client_sui_verified = None;
       } and
     client_impl = {
       dummy_client_impl with
@@ -621,6 +625,10 @@
       client_emule_proto = emule_proto ();
       client_comp = None;
       client_connection_time = 0;
+      client_req_challenge = Int64.zero;
+      client_sent_challenge = Int64.zero;
+      client_public_key = None;
+      client_sui_verified = None;
       } and
     client_impl = {
       dummy_client_impl with
@@ -1027,6 +1035,13 @@
       if time + half_hour > current_time then
         Hashtbl.add join_queue_by_id key e
   ) list
+
+let client_public_key = ref ""
+
+let _ =
+  option_hook client_private_key (fun _ ->
+    client_public_key := Unix32.load_key (!!client_private_key);
+  )
 
 let server_accept_multiple_getsources s =
   (s.server_flags land DonkeyProtoUdp.PingServerReplyUdp.multiple_getsources) 
<> 0