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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonComplexOptions.ml
diff -u mldonkey/src/daemon/common/commonComplexOptions.ml:1.23 
mldonkey/src/daemon/common/commonComplexOptions.ml:1.24
--- mldonkey/src/daemon/common/commonComplexOptions.ml:1.23     Thu Jul  7 
00:25:45 2005
+++ mldonkey/src/daemon/common/commonComplexOptions.ml  Sun Jul 17 16:11:12 2005
@@ -887,7 +887,7 @@
 (*                                                                       *)
 (*************************************************************************)
 
-let load () = 
+let load () =
   Options.load files_ini;
   Options.load servers_ini;
   Options.load searches_ini;
@@ -898,10 +898,10 @@
   ) !!known_uids;
   known_uids =:= [];
   Options.load friends_ini
-  
-let save () = 
+
+let save () =
   networks_iter (fun n -> network_save_complex_options n);
-  
+
   Options.save_with_help files_ini;
   Options.save_with_help searches_ini;
   Options.save_with_help friends_ini;
@@ -922,4 +922,9 @@
         results =:= [];
     end;
   lprintf "Options correctly saved";
+  CommonGlobals.print_localtime ()
+
+let save_sources () =
+  networks_iter (fun n -> network_save_sources n);
+  lprintf "Sources correctly saved";
   CommonGlobals.print_localtime ()