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

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

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

revision 1.26 by spiralvoice, Sat May 28 11:19:42 2005 UTC revision 1.27 by spiralvoice, Mon Jun 20 18:56:44 2005 UTC
# Line 420  let make_tiger_tree array = Line 420  let make_tiger_tree array =
420  let build_tiger_tree_file uid ttr =  let build_tiger_tree_file uid ttr =
421    let s = make_tiger_tree ttr in    let s = make_tiger_tree ttr in
422    Unix2.safe_mkdir "ttr";    Unix2.safe_mkdir "ttr";
423      Unix2.can_write_to_directory "ttr";
424    File.from_string (Filename.concat "ttr" (Uid.to_file_string uid)) s    File.from_string (Filename.concat "ttr" (Uid.to_file_string uid)) s
425        
426  let rec start_job_for sh (wanted_id, handler) =  let rec start_job_for sh (wanted_id, handler) =

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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