/[mldonkey]/mldonkey/src/daemon/common/commonInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonInteractive.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by spiralvoice, Fri Aug 26 21:10:43 2005 UTC revision 1.47 by spiralvoice, Fri Sep 2 23:46:30 2005 UTC
# Line 221  let mail_for_completed_file file = Line 221  let mail_for_completed_file file =
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    

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26