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

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

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

revision 1.61 by spiralvoice, Tue Jun 28 22:49:37 2005 UTC revision 1.62 by spiralvoice, Tue Jul 5 12:26:40 2005 UTC
# Line 24  open BasicSocket Line 24  open BasicSocket
24  open TcpBufferedSocket  open TcpBufferedSocket
25  open Options  open Options
26  open Unix  open Unix
   
27        
28        
29  let bin_dir = Filename.dirname Sys.argv.(0)  let bin_dir = Filename.dirname Sys.argv.(0)
# Line 921  let propagate_servers = define_expert_op Line 920  let propagate_servers = define_expert_op
920    
921  let current_section = path_section  let current_section = path_section
922    
923  let temp_directory = define_option current_section ["temp_directory" ]  let temp_directory = define_option current_section ["temp_directory"]
924      "The directory where temporary files should be put"      "The directory where temporary files should be put"
925      string_option "temp"      string_option "temp"
926    
927  (*  let create_dir_mask = define_option current_section ["create_dir_mask"]
928  let incoming_directory_prio =      "New directories in incoming_directories are created with these rights"
929    define_expert_option current_section ["incoming_directory_prio" ]      string_option "755"
930        "The upload prio of the incoming directory"  
           int_option 0  
   
 let incoming_directory =  
   define_option current_section ["incoming_directory" ]  
     "The directory where downloaded files should be moved after commit"  
     string_option "incoming"  
   
 let default_sharing_strategy =  
   define_option current_section ["default_sharing_strategy" ]  
     "Sharing strategy the share command will use when none is specified"  
     string_option "all_files"  
 *)  
     
931  let previewer = define_expert_option current_section ["previewer"]  let previewer = define_expert_option current_section ["previewer"]
932    "Name of program used for preview (first arg is local filename, second arg    "Name of program used for preview (first arg is local filename, second arg
933      is name of file as searched on eDonkey" string_option      is name of file as searched on eDonkey" string_option
# Line 956  let mldonkey_gui = define_expert_option Line 942  let mldonkey_gui = define_expert_option
942      (Filename.concat bin_dir "mlgui")      (Filename.concat bin_dir "mlgui")
943    
944        
     
     
     
     
     
     
     
     
945  (*************************************************************************)  (*************************************************************************)
946  (*                                                                       *)  (*                                                                       *)
947  (*                         Security section                              *)  (*                         Security section                              *)
# Line 1194  let _ = Line 1172  let _ =
1172        TcpBufferedSocket.copy_read_buffer := !!copy_read_buffer        TcpBufferedSocket.copy_read_buffer := !!copy_read_buffer
1173    )    )
1174    
1175    let _ =
1176      option_hook create_dir_mask (fun _ ->
1177          Unix32.create_dir_mask := !!create_dir_mask
1178      )
1179    
1180    
1181    (*    (*

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

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