/[mldonkey]/mldonkey/src/networks/server/serverUdp.ml
ViewVC logotype

Diff of /mldonkey/src/networks/server/serverUdp.ml

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

revision 1.1 by simon_mld, Tue Apr 22 22:33:39 2003 UTC revision 1.2 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 465  let get_info_servers () = Line 465  let get_info_servers () =
465    let module M = DonkeyProtoServer in    let module M = DonkeyProtoServer in
466      Random.self_init();      Random.self_init();
467      List.iter (fun s ->      List.iter (fun s ->
468                   server_udp_send s (M.PingServerUdpReq (Int32.of_int(Random.int(3000))));                   server_udp_send s (M.PingServerUdpReq (Int32.of_int (Random.int 3000)));
469                   server_udp_send s (M.ServerDescUdpReq {                   server_udp_send s (M.ServerDescUdpReq {
470                                        M.ServerDescUdp.ip = (Ip.of_string "21.42.0.1");                                        M.ServerDescUdp.ip = (Ip.of_string "21.42.0.1");
471                                      })                                      })

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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