/[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.4 by spiralvoice, Tue Jun 28 23:17:07 2005 UTC revision 1.5 by spiralvoice, Thu Jul 7 00:25:45 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 "%s\nchat_app_host=%s chat_app_port=%d\n" s        lprintf "Testing chat: %s\nChat app IP %s, 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        end        end
54    | e -> if !CommonOptions.verbose then begin    | e -> if !CommonOptions.verbose then begin
55        lprintf "%s\nchat_app_host=%s chat_app_port=%d\n"        lprintf "Testing chat: %s\nChat app IP %s, 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

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

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