/[mldonkey]/mldonkey/src/networks/donkey/donkeyGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyGlobals.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by spiralvoice, Sat Sep 17 17:59:47 2005 UTC revision 1.52 by spiralvoice, Sun Sep 18 19:00:52 2005 UTC
# Line 565  let dummy_client = Line 565  let dummy_client =
565        client_emule_proto = emule_proto ();        client_emule_proto = emule_proto ();
566        client_comp = None;        client_comp = None;
567        client_connection_time = 0;        client_connection_time = 0;
568          client_req_challenge = Int64.zero;
569          client_sent_challenge = Int64.zero;
570          client_public_key = None;
571          client_sui_verified = None;
572        } and        } and
573      client_impl = {      client_impl = {
574        dummy_client_impl with        dummy_client_impl with
# Line 621  let create_client key = Line 625  let create_client key =
625        client_emule_proto = emule_proto ();        client_emule_proto = emule_proto ();
626        client_comp = None;        client_comp = None;
627        client_connection_time = 0;        client_connection_time = 0;
628          client_req_challenge = Int64.zero;
629          client_sent_challenge = Int64.zero;
630          client_public_key = None;
631          client_sui_verified = None;
632        } and        } and
633      client_impl = {      client_impl = {
634        dummy_client_impl with        dummy_client_impl with
# Line 1028  let clean_join_queue_tables () = Line 1036  let clean_join_queue_tables () =
1036          Hashtbl.add join_queue_by_id key e          Hashtbl.add join_queue_by_id key e
1037    ) list    ) list
1038    
1039    let client_public_key = ref ""
1040    
1041    let _ =
1042      option_hook client_private_key (fun _ ->
1043        client_public_key := Unix32.load_key (!!client_private_key);
1044      )
1045    
1046  let server_accept_multiple_getsources s =  let server_accept_multiple_getsources s =
1047    (s.server_flags land DonkeyProtoUdp.PingServerReplyUdp.multiple_getsources) <> 0    (s.server_flags land DonkeyProtoUdp.PingServerReplyUdp.multiple_getsources) <> 0
1048    

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26