/[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.86 by spiralvoice, Fri Sep 2 22:39:59 2005 UTC revision 1.87 by spiralvoice, Tue Sep 6 11:27:42 2005 UTC
# Line 719  let ip_blocking = define_expert_option c Line 719  let ip_blocking = define_expert_option c
719    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."
720      string_option ""      string_option ""
721    
722    let ip_blocking_descriptions =
723      define_expert_option current_section ["ip_blocking_descriptions"] "Keep IP blocking ranges descriptions in memory" bool_option true
724    
725  let _ =  let _ =
726    option_hook ip_blocking (fun _ ->    option_hook ip_blocking (fun _ ->
727      try      try
# Line 726  let _ = Line 729  let _ =
729                       Ip_set.load !!ip_blocking                       Ip_set.load !!ip_blocking
730                     else Ip_set.bl_empty                     else Ip_set.bl_empty
731      with _ -> ()      with _ -> ()
732      );
733      option_hook ip_blocking_descriptions (fun _ ->
734        Ip_set.store_blocking_descriptions := !!ip_blocking_descriptions
735    )    )
736    
737  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.86  
changed lines
  Added in v.1.87

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