221 |
Printf.sprintf "mldonkey, file received"; |
Printf.sprintf "mldonkey, file received"; |
222 |
in |
in |
223 |
|
|
224 |
let line4 = if !!url_in_mail <> "" then |
let incoming = |
225 |
Printf.sprintf "\r\n<%s/%s>\r\n" !!url_in_mail (Url.encode (file_best_name file)) |
if Unix2.is_directory (file_disk_name file) then |
226 |
|
incoming_directories () |
227 |
else |
else |
228 |
|
incoming_files () |
229 |
|
in |
230 |
|
|
231 |
|
let line4 = if !!url_in_mail <> "" then |
232 |
|
Printf.sprintf "\r\n<%s/%s/%s>\r\n" !!url_in_mail incoming.shdir_dirname (Url.encode (file_best_name file)) |
233 |
|
else |
234 |
Printf.sprintf ""; |
Printf.sprintf ""; |
235 |
in |
in |
236 |
|
|