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 |