/[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.5 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC revision 1.6 by spiralvoice, Fri Jul 22 10:58:54 2005 UTC
# Line 47  let send_paquet_to_mlchat (p : C.packet) Line 47  let send_paquet_to_mlchat (p : C.packet)
47    with    with
48    | Unix.Unix_error (e,s1,s2) -> if !CommonOptions.verbose then begin    | 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 "Testing chat: %s\nChat app IP %s, port %d\n" s        lprintf_nl "Error %s with chat on IP %s, port %d" 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        end        end
54    | e -> if !CommonOptions.verbose then begin    | e -> if !CommonOptions.verbose then begin
55        lprintf "Testing chat: %s\nChat app IP %s, port %d\n"        lprintf_nl "Error %s with chat on IP %s, port %d"
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

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

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