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 |
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 |
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 |
|
|