/[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.95 by spiralvoice, Mon Oct 17 15:25:45 2005 UTC revision 1.96 by spiralvoice, Tue Oct 25 09:40:47 2005 UTC
# Line 770  let rss_feeds = define_expert_option cur Line 770  let rss_feeds = define_expert_option cur
770      "URLs of RSS feeds"      "URLs of RSS feeds"
771      (list_option Url.option) []      (list_option Url.option) []
772    
773    let ip_blocking_descriptions =
774      define_expert_option current_section ["ip_blocking_descriptions"] "Keep IP blocking ranges descriptions in memory" bool_option true
775    
776  let ip_blocking = define_expert_option current_section ["ip_blocking"]  let ip_blocking = define_expert_option current_section ["ip_blocking"]
777      "IP blocking list filename (peerguardian format), can also be in gz/bz2/zip format      "IP blocking list filename (peerguardian format), can also be in gz/bz2/zip format
778    Zip files must contain either a file named guarding.p2p or guarding_full.p2p."    Zip files must contain either a file named guarding.p2p or guarding_full.p2p."
779      string_option ""      string_option ""
780    
 let ip_blocking_descriptions =  
   define_expert_option current_section ["ip_blocking_descriptions"] "Keep IP blocking ranges descriptions in memory" bool_option true  
   
781  let _ =  let _ =
782      option_hook ip_blocking_descriptions (fun _ ->
783        Ip_set.store_blocking_descriptions := !!ip_blocking_descriptions
784      );
785    option_hook ip_blocking (fun _ ->    option_hook ip_blocking (fun _ ->
786      try      try
787        Ip_set.bl := if !!ip_blocking <> "" then        Ip_set.bl := if !!ip_blocking <> "" then
788                       Ip_set.load !!ip_blocking                       Ip_set.load !!ip_blocking
789                     else Ip_set.bl_empty                     else Ip_set.bl_empty
790      with _ -> ()      with _ -> ()
   );  
   option_hook ip_blocking_descriptions (fun _ ->  
     Ip_set.store_blocking_descriptions := !!ip_blocking_descriptions  
791    )    )
792    
793  let tcpip_packet_size = define_expert_option current_section ["tcpip_packet_size"]  let tcpip_packet_size = define_expert_option current_section ["tcpip_packet_size"]

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

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