107 |
t.sock <- sock; |
t.sock <- sock; |
108 |
t |
t |
109 |
with e -> |
with e -> |
110 |
lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port; |
lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port; |
111 |
raise e |
match e with |
112 |
|
Unix.Unix_error (Unix.EADDRINUSE, _, _) -> |
113 |
|
lprintf "This is normally caused by another application currently using this port.\n"; |
114 |
|
lprintf "Close that application and restart MLDonkey, exiting...\n"; |
115 |
|
Pervasives.exit 0 |
116 |
|
| _ -> raise e |
117 |
|
|
118 |
let create_connections_contoler name f = |
let create_connections_contoler name f = |
119 |
let cc = { |
let cc = { |