908 |
"" |
"" |
909 |
), ":\t\t\tremove servers that have not been connected for several days"; |
), ":\t\t\tremove servers that have not been connected for several days"; |
910 |
|
|
911 |
|
"reset_md4", Arg_none (fun _ -> |
912 |
|
set_simple_option donkey_ini "client_md4" (Md4.to_string (mldonkey_md4 (Md4.random ()))); |
913 |
|
set_simple_option donkey_ini "client_private_key" (Unix32.create_key ()); |
914 |
|
"reset client_md4/client_private_key" |
915 |
|
), ":\t\t\t\t\treset client_md4/client_private_key to random values"; |
916 |
|
|
917 |
"bp", Arg_multiple (fun args o -> |
"bp", Arg_multiple (fun args o -> |
918 |
List.iter (fun arg -> |
List.iter (fun arg -> |
1105 |
(match c.client_upload with |
(match c.client_upload with |
1106 |
Some cu -> Some (file_best_name cu.up_file) |
Some cu -> Some (file_best_name cu.up_file) |
1107 |
| None -> None); |
| None -> None); |
1108 |
|
P.client_sui_verified = c.client_sui_verified; |
1109 |
} |
} |
1110 |
); |
); |
1111 |
client_ops.op_client_debug <- (fun c debug -> |
client_ops.op_client_debug <- (fun c debug -> |
1124 |
| Connection sock -> |
| Connection sock -> |
1125 |
TcpBufferedSocket.shutdown sock r |
TcpBufferedSocket.shutdown sock r |
1126 |
|
|
1127 |
|
let ip_of_server_cid s = |
1128 |
|
match s.server_cid with |
1129 |
|
None -> Ip.null |
1130 |
|
| Some ip -> ip |
1131 |
|
|
1132 |
let _ = |
let _ = |
1133 |
server_ops.op_server_remove <- (fun s -> |
server_ops.op_server_remove <- (fun s -> |
1134 |
DonkeyComplexOptions.remove_server s.server_ip s.server_port |
DonkeyComplexOptions.remove_server s.server_ip s.server_port |
1153 |
); |
); |
1154 |
server_ops.op_server_users <- (fun s -> |
server_ops.op_server_users <- (fun s -> |
1155 |
List2.tail_map (fun u -> as_user u.user_user) s.server_users) ; |
List2.tail_map (fun u -> as_user u.user_user) s.server_users) ; |
1156 |
server_ops.op_server_cid <- (fun s -> |
|
1157 |
match s.server_cid with |
server_ops.op_server_cid <- (fun s -> ip_of_server_cid s); |
1158 |
None -> Ip.null |
|
1159 |
| Some ip -> ip); |
server_ops.op_server_low_id <- (fun s -> low_id (ip_of_server_cid s)); |
1160 |
|
|
1161 |
server_ops.op_server_set_preferred <- (fun s b -> |
server_ops.op_server_set_preferred <- (fun s b -> |
1162 |
s.server_preferred <- b; |
s.server_preferred <- b; |
1163 |
server_must_update s); |
server_must_update s); |
1164 |
|
|
1165 |
server_ops.op_server_rename <- (fun s name -> |
server_ops.op_server_rename <- (fun s name -> |
1166 |
s.server_name <- name; |
s.server_name <- name; |
1167 |
server_must_update s); |
server_must_update s); |
1287 |
@ [ |
@ [ |
1288 |
( "0", "srh", "Overnet [T]rue, [F]alse", "O" ) ; |
( "0", "srh", "Overnet [T]rue, [F]alse", "O" ) ; |
1289 |
( "0", "srh", "Connection [I]ndirect, [D]irect", "C" ) ; |
( "0", "srh", "Connection [I]ndirect, [D]irect", "C" ) ; |
1290 |
|
( "0", "srh", "Secure User Identification [N]one, [P]assed, [F]ailed", "S" ) ; |
1291 |
( "0", "srh br", "IP address", "IP address" ) ; |
( "0", "srh br", "IP address", "IP address" ) ; |
1292 |
( "1", "srh ar", "Total UL bytes to this client for all files", "UL" ) ; |
( "1", "srh ar", "Total UL bytes to this client for all files", "UL" ) ; |
1293 |
( "1", "srh ar br", "Total DL bytes from this client for all files", "DL" ) ; |
( "1", "srh ar br", "Total DL bytes from this client for all files", "DL" ) ; |
1353 |
| Direct_address (ip,port) -> Printf.sprintf "D" |
| Direct_address (ip,port) -> Printf.sprintf "D" |
1354 |
| _ -> Printf.sprintf "I" |
| _ -> Printf.sprintf "I" |
1355 |
)); |
)); |
1356 |
|
("", "sr", (match c.client_sui_verified with |
1357 |
|
| None -> "N" |
1358 |
|
| Some b -> if b then "P" else "F" |
1359 |
|
)); |
1360 |
("", "sr br", match c.client_kind with |
("", "sr br", match c.client_kind with |
1361 |
Direct_address (ip,port) -> Printf.sprintf "%s" (Ip.to_string ip) |
Direct_address (ip,port) -> Printf.sprintf "%s" (Ip.to_string ip) |
1362 |
| _ -> (string_of_client_addr c)); |
| _ -> (string_of_client_addr c)); |
1617 |
| Direct_address (ip,port) -> Printf.sprintf "D" |
| Direct_address (ip,port) -> Printf.sprintf "D" |
1618 |
| _ -> Printf.sprintf "I" |
| _ -> Printf.sprintf "I" |
1619 |
)); |
)); |
1620 |
|
("", "sr", (match c.client_sui_verified with |
1621 |
|
| None -> "N" |
1622 |
|
| Some b -> if b then "P" else "F" |
1623 |
|
)); |
1624 |
("", "sr", match c.client_kind with |
("", "sr", match c.client_kind with |
1625 |
Direct_address (ip,port) -> Printf.sprintf "%s" (Ip.to_string ip) |
Direct_address (ip,port) -> Printf.sprintf "%s" (Ip.to_string ip) |
1626 |
| _ -> (string_of_client_addr c)); |
| _ -> (string_of_client_addr c)); |