[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyMain.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyMain.ml |
Date: |
Sat, 05 Nov 2005 11:23:46 -0500 |
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 ->
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyMain.ml,
mldonkey-commits <=