[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonOptions.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.86 
mldonkey/src/daemon/common/commonOptions.ml:1.87
--- mldonkey/src/daemon/common/commonOptions.ml:1.86    Fri Sep  2 22:39:59 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Tue Sep  6 11:27:42 2005
@@ -719,6 +719,9 @@
   Zip files must contain either a file named guarding.p2p or 
guarding_full.p2p."
     string_option ""
 
+let ip_blocking_descriptions =
+  define_expert_option current_section ["ip_blocking_descriptions"] "Keep IP 
blocking ranges descriptions in memory" bool_option true
+
 let _ =
   option_hook ip_blocking (fun _ ->
     try
@@ -726,6 +729,9 @@
                     Ip_set.load !!ip_blocking
                   else Ip_set.bl_empty
     with _ -> ()
+  );
+  option_hook ip_blocking_descriptions (fun _ ->
+    Ip_set.store_blocking_descriptions := !!ip_blocking_descriptions
   )
 
 let tcpip_packet_size = define_expert_option current_section 
["tcpip_packet_size"]