[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyMain.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyMain.ml
diff -u mldonkey/src/networks/donkey/donkeyMain.ml:1.38 
mldonkey/src/networks/donkey/donkeyMain.ml:1.39
--- mldonkey/src/networks/donkey/donkeyMain.ml:1.38     Thu Oct 27 09:42:46 2005
+++ mldonkey/src/networks/donkey/donkeyMain.ml  Sat Nov  5 16:23:40 2005
@@ -342,6 +342,22 @@
       lprintf_nl () "Error: Exception %s during startup"
         (Printexc2.to_string e)
 
+
+let rec update_options () =
+  let update v =
+      lprintf_nl () "Updating options to version %i" v;
+      options_version =:= v;
+      update_options ()
+  in
+
+  match !!options_version with
+    0 ->
+      if !!max_sources_per_file = 20000 then
+        max_sources_per_file =:= 5000;
+      update 1
+  | _ -> ()
+
+
 let _ =
 
 (* TODO INDEX  DonkeyIndexer.init (); *)
@@ -354,6 +370,7 @@
 );
   *)
   network.op_network_enable <- enable;
+  network.op_network_update_options <- update_options;
 (*  network.network_config_file <- []; *)
   network.op_network_info <- (fun n ->
       {