/[mldonkey]/mldonkey/src/networks/donkey/donkeyInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyInteractive.ml

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

revision 1.48 by spiralvoice, Mon Jun 20 18:47:01 2005 UTC revision 1.49 by spiralvoice, Mon Jun 20 18:58:31 2005 UTC
# Line 87  let forget_search s = Line 87  let forget_search s =
87        
88        
89  let load_server_met filename =  let load_server_met filename =
90      if !!update_server_list_server then
91    try    try
92      let module S = DonkeyImport.Server in      let module S = DonkeyImport.Server in
93      let s = File.to_string filename in      let s = File.to_string filename in
# Line 109  let load_server_met filename = Line 110  let load_server_met filename =
110        lprintf "Exception %s while loading %s\n" (Printexc2.to_string e)        lprintf "Exception %s while loading %s\n" (Printexc2.to_string e)
111        filename;        filename;
112        0        0
113      else 0
114    
115  let already_done = Failure "File already downloaded (use 'force_download' if necessary)"  let already_done = Failure "File already downloaded (use 'force_download' if necessary)"
116                

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

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