/[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.3 by spiralvoice, Sun Mar 20 01:41:29 2005 UTC revision 1.4 by spiralvoice, Tue Jun 28 23:17:07 2005 UTC
# Line 45  let send_paquet_to_mlchat (p : C.packet) Line 45  let send_paquet_to_mlchat (p : C.packet)
45      flush chanout;      flush chanout;
46      close_out chanout      close_out chanout
47    with    with
48    | Unix.Unix_error (e,s1,s2) ->    | Unix.Unix_error (e,s1,s2) -> if !CommonOptions.verbose then begin
49        let s = (Unix.error_message e)^" : "^s1^" "^s2 in        let s = (Unix.error_message e)^" : "^s1^" "^s2 in
50        lprintf "%s\nchat_app_host=%s chat_app_port=%d\n" s        lprintf "%s\nchat_app_host=%s chat_app_port=%d\n" s
51              !!O.chat_app_host !!O.chat_app_port;              !!O.chat_app_host !!O.chat_app_port;
52        close_out chanout        close_out chanout
53    | e ->        end
54      | e -> if !CommonOptions.verbose then begin
55        lprintf "%s\nchat_app_host=%s chat_app_port=%d\n"        lprintf "%s\nchat_app_host=%s chat_app_port=%d\n"
56          (Printexc2.to_string e)          (Printexc2.to_string e)
57              !!O.chat_app_host !!O.chat_app_port;              !!O.chat_app_host !!O.chat_app_port;
58        close_out chanout        close_out chanout
59          end
60    
61    
62  let send_chat_proto name ad_opt m =  let send_chat_proto name ad_opt m =

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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