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

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

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

revision 1.61 by spiralvoice, Sat Sep 17 17:50:38 2005 UTC revision 1.62 by spiralvoice, Sun Sep 18 19:00:52 2005 UTC
# Line 908  parent.fstatus.location.href='submit?q=r Line 908  parent.fstatus.location.href='submit?q=r
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 ->
# Line 1101  let _ = Line 1105  let _ =
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 ->
# Line 1119  let disconnect_server s r = Line 1124  let disconnect_server s r =
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
# Line 1143  let _ = Line 1153  let _ =
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);
# Line 1275  parent.fstatus.location.href='submit?q=r Line 1287  parent.fstatus.location.href='submit?q=r
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" ) ;
# Line 1340  parent.fstatus.location.href='submit?q=r Line 1353  parent.fstatus.location.href='submit?q=r
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));
# Line 1600  lprint_newline (); Line 1617  lprint_newline ();
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));

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

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