37 |
open DonkeyGlobals |
open DonkeyGlobals |
38 |
|
|
39 |
let lprintf_nl () = |
let lprintf_nl () = |
40 |
lprintf "%s[EDK]: " |
lprintf "%s[EDK] " |
41 |
(log_time ()); lprintf_nl2 |
(log_time ()); lprintf_nl2 |
42 |
|
|
43 |
let new_shared_files = ref [] |
let new_shared_files = ref [] |
44 |
|
|
144 |
lprint_newline ()); |
lprint_newline ()); |
145 |
*) |
*) |
146 |
if !verbose_share then |
if !verbose_share then |
147 |
lprintf_nl () "EDK: Sharing %s" sh.sh_name; |
lprintf_nl () "Sharing %s" sh.sh_name; |
148 |
with e -> |
with e -> |
149 |
lprintf_nl () "EDK: Exception %s while sharing %s" (Printexc2.to_string e) |
lprintf_nl () "Exception %s while sharing %s" (Printexc2.to_string e) |
150 |
sh.sh_name |
sh.sh_name |
151 |
|
|
152 |
|
|