/[mldonkey]/mldonkey/src/networks/bittorrent/bTGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTGlobals.ml

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

revision 1.34 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC revision 1.35 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC
# Line 117  let files_by_uid = Hashtbl.create 13 Line 117  let files_by_uid = Hashtbl.create 13
117  let max_range_len = Int64.of_int (1 lsl 14)  let max_range_len = Int64.of_int (1 lsl 14)
118  let max_request_len = Int64.of_int (1 lsl 16)  let max_request_len = Int64.of_int (1 lsl 16)
119    
120    (* prints a new logline with date, module and starts newline *)
121    let lprintf_nl () =
122      lprintf "%s[BT] "
123        (log_time ()); lprintf_nl2
124          
125  let check_if_interesting file c =  let check_if_interesting file c =
126    
127    if not c.client_alrd_sent_notinterested then    if not c.client_alrd_sent_notinterested then
# Line 158  let add_torrent_infos file trackers = Line 163  let add_torrent_infos file trackers =
163    ) trackers    ) trackers
164    
165  let create_temp_file file_temp file_files =  let create_temp_file file_temp file_files =
166    if !CommonOptions.verbose_files then lprintf_nl "create_temp_file %s" file_temp;    if !CommonOptions.verbose_files then lprintf_nl () "create_temp_file %s" file_temp;
167    let file_fd =    let file_fd =
168      if file_files <> [] then      if file_files <> [] then
169        Unix32.create_multifile file_temp        Unix32.create_multifile file_temp

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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