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 = |