/[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.67 by spiralvoice, Thu Jul 14 14:02:27 2005 UTC revision 1.68 by spiralvoice, Thu Jul 14 15:34:14 2005 UTC
# Line 687  let web_infos = define_option current_se Line 687  let web_infos = define_option current_se
687  let rss_feeds = define_expert_option current_section ["rss_feeds"]  let rss_feeds = define_expert_option current_section ["rss_feeds"]
688      "URLs of RSS feeds"      "URLs of RSS feeds"
689      (list_option Url.option) []      (list_option Url.option) []
690      
691  let ip_blocking = define_expert_option current_section ["ip_blocking"]  let ip_blocking = define_expert_option current_section ["ip_blocking"]
692      "IP blocking list filename (peerguardian format)"      "IP blocking list filename (peerguardian format)"
693      string_option "guarding.p2p"      string_option "guarding.p2p"
# Line 710  let mtu_packet_size = define_expert_opti Line 710  let mtu_packet_size = define_expert_opti
710    "The size of the MTU of a TCP/IP packet on your connection"    "The size of the MTU of a TCP/IP packet on your connection"
711      int_option 1500      int_option 1500
712    
713  let packet_frame_size = define_expert_option current_section  let packet_frame_size = define_expert_option current_section
714      ["packet_frame_size"]      ["packet_frame_size"]
715    "The size of the frame packet on your network (on my cable link, it is 250)"    "The size of the frame packet on your network (on my cable link, it is 250)"
716      int_option 250      int_option 250
# Line 725  let socket_keepalive = define_expert_opt Line 725  let socket_keepalive = define_expert_opt
725    This implies some bandwidth-cost (with 200 connections ~10-20%)"    This implies some bandwidth-cost (with 200 connections ~10-20%)"
726      bool_option !BasicSocket.socket_keepalive      bool_option !BasicSocket.socket_keepalive
727    
728  let network_update_url =  let network_update_url =
729    define_expert_option current_section ["network_update_url"]    define_expert_option current_section ["network_update_url"]
730      "URL where mldonkey can download update information on the network"      "URL where mldonkey can download update information on the network"
731      string_option ""      string_option ""
# Line 738  let mlnet_redirector = define_expert_opt Line 738  let mlnet_redirector = define_expert_opt
738  let _ =  let _ =
739    option_hook mlnet_redirector (fun _ ->    option_hook mlnet_redirector (fun _ ->
740        let (ip, port) = !!mlnet_redirector in        let (ip, port) = !!mlnet_redirector in
741        if ip = "128.93.52.5" then        if ip = "128.93.52.5" then
742          mlnet_redirector =:=  ("129.104.11.42", 3999)          mlnet_redirector =:=  ("129.104.11.42", 3999)
743    )    )
744    
# Line 1130  let dp500_buffer = Line 1130  let dp500_buffer =
1130    define_expert_option current_section ["dp500_buffer"]    define_expert_option current_section ["dp500_buffer"]
1131      "(experimental)" int_option 2000000      "(experimental)" int_option 2000000
1132    
1133  let dp500_directory =  let dp500_directory =
1134    define_expert_option current_section ["dp500_directory"]    define_expert_option current_section ["dp500_directory"]
1135      "(experimental)" string_option "dp500"      "(experimental)" string_option "dp500"
1136    
# Line 1232  let calendar = define_expert_option curr Line 1232  let calendar = define_expert_option curr
1232      ["ip_cache_timeout"]      ["ip_cache_timeout"]
1233      "The time an ip address can be kept in the cache"      "The time an ip address can be kept in the cache"
1234      int_option 3600 *)      int_option 3600 *)
1235      
1236  let compaction_overhead = define_expert_option current_section  let compaction_overhead = define_expert_option current_section
1237      ["compaction_overhead"]      ["compaction_overhead"]
1238      "The percentage of free memory before a compaction is triggered"      "The percentage of free memory before a compaction is triggered"
1239      int_option 25      int_option 25
1240    
# Line 1250  let options_version = define_expert_opti Line 1250  let options_version = define_expert_opti
1250    
1251  (*************************************************************************)  (*************************************************************************)
1252  (*                                                                       *)  (*                                                                       *)
1253  (*                         Debug section                                  *)  (*                         Debug section                                 *)
1254  (*                                                                       *)  (*                                                                       *)
1255  (*************************************************************************)  (*************************************************************************)
1256    

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

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