[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/driver/dr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/02/02 00:55:03

Modified files:
        distrib        : ChangeLog 
        src/daemon/driver: driverMain.ml 

Log message:
        patch #4851

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.696&tr2=1.697&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/driver/driverMain.ml.diff?tr1=1.93&tr2=1.94&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.696 mldonkey/distrib/ChangeLog:1.697
--- mldonkey/distrib/ChangeLog:1.696    Thu Feb  2 00:33:28 2006
+++ mldonkey/distrib/ChangeLog  Thu Feb  2 00:55:03 2006
@@ -15,7 +15,8 @@
 =========
 
 2006/02/02
-4850: Fixed bitprint hashing for files > 4GB
+4851: Support system signals SIGUSR1 & SIGUSR2
+4850: Fixed bitprint hashing for files > 4GB (thx to zet)
       mld_hash: implement SIGINT and SIGTERM signals
 
 2006/01/29
Index: mldonkey/src/daemon/driver/driverMain.ml
diff -u mldonkey/src/daemon/driver/driverMain.ml:1.93 
mldonkey/src/daemon/driver/driverMain.ml:1.94
--- mldonkey/src/daemon/driver/driverMain.ml:1.93       Sun Jan 29 18:53:17 2006
+++ mldonkey/src/daemon/driver/driverMain.ml    Thu Feb  2 00:55:03 2006
@@ -565,6 +565,17 @@
     (Sys.Signal_handle (fun _ -> lprintf_nl () "Received SIGTERM, stopping 
MLDonkey...";
         CommonInteractive.clean_exit 0));
 
+  MlUnix.set_signal  Sys.sigusr1
+    (Sys.Signal_handle (fun _ -> lprintf_nl () "Received SIGUSR1, saving 
options...";
+        DriverInteractive.save_config ()));
+
+  MlUnix.set_signal  Sys.sigusr2
+    (Sys.Signal_handle (fun _ ->
+       lprintf_n () "Received SIGUSR2, starting garbage collection...";
+       Gc.compact ();
+       lprintf " finished";
+       lprint_newline ()));
+
   if !verbose then lprintf_nl () (_b "Activated system signal handling")
 
 let _ =