/[mldonkey]/mldonkey/src/daemon/common/commonChat.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonChat.ml

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

revision 1.6 by spiralvoice, Fri Jul 22 10:58:54 2005 UTC revision 1.7 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC
# Line 30  let (!!) = Options.(!!) Line 30  let (!!) = Options.(!!)
30  let send_paquet_to_mlchat (p : C.packet) =  let send_paquet_to_mlchat (p : C.packet) =
31    let domain = Unix.PF_INET in    let domain = Unix.PF_INET in
32    let sock = Unix.socket domain Unix.SOCK_STREAM 0 in    let sock = Unix.socket domain Unix.SOCK_STREAM 0 in
33    let inet_addr =    let inet_addr =
34      let host = !!O.chat_app_host in      let host = !!O.chat_app_host in
35      try Unix.inet_addr_of_string host      try Unix.inet_addr_of_string host
36      with _ ->      with _ ->
# Line 62  let send_paquet_to_mlchat (p : C.packet) Line 62  let send_paquet_to_mlchat (p : C.packet)
62  let send_chat_proto name ad_opt m =  let send_chat_proto name ad_opt m =
63    let ad =    let ad =
64      match ad_opt with      match ad_opt with
65        None ->        None ->
66          (* utiliser le port de chat et l'hostname du core donkey *)          (* utiliser le port de chat et l'hostname du core donkey *)
67          (Unix.gethostname (), !!O.chat_port)          (Unix.gethostname (), !!O.chat_port)
68      | Some ad -> ad      | Some ad -> ad
# Line 75  let send_text name ad_opt s = Line 75  let send_text name ad_opt s =
75    send_chat_proto name ad_opt (C.Message s)    send_chat_proto name ad_opt (C.Message s)
76    
77  let send_add_open name ad_opt =  let send_add_open name ad_opt =
78    let ad =    let ad =
79      match ad_opt with      match ad_opt with
80        None -> (Unix.gethostname (), !!O.chat_port)        None -> (Unix.gethostname (), !!O.chat_port)
81      | Some ad -> ad      | Some ad -> ad

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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