mldonkey-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverMain.ml


From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverMain.ml
Date: Sun, 21 Aug 2005 12:05:23 -0400

Index: mldonkey/src/daemon/driver/driverMain.ml
diff -u mldonkey/src/daemon/driver/driverMain.ml:1.65 
mldonkey/src/daemon/driver/driverMain.ml:1.66
--- mldonkey/src/daemon/driver/driverMain.ml:1.65       Sun Aug 21 14:26:00 2005
+++ mldonkey/src/daemon/driver/driverMain.ml    Sun Aug 21 16:05:20 2005
@@ -541,7 +541,7 @@
       let oc = open_out "mlnet.pid" in
       output_string oc ( Printf.sprintf "%s\n" ( string_of_int ( Unix.getpid 
() ) ) );
       close_out oc;
-      CommonGlobals.do_at_exit (fun _ -> Sys.remove "mlnet.pid" );
+      CommonGlobals.do_at_exit (fun _ -> try Sys.remove "mlnet.pid" with _ -> 
());
       if !verbose then lprintf_nl (_b "Starting with pid %s") 
(string_of_int(Unix.getpid ()))
     );
 
@@ -589,26 +589,26 @@
 
   if Autoconf.system <> "windows" then
     MlUnix.set_signal  Sys.sigchld
-      (Sys.Signal_handle (fun _ -> lprintf_nl "SIGCHLD"));
+      (Sys.Signal_handle (fun _ -> lprintf_nl "Received SIGCHLD, doing 
nothing"));
 
   if Autoconf.system <> "windows" then
     MlUnix.set_signal  Sys.sighup
       (Sys.Signal_handle (fun _ ->
-        lprintf_nl "SIGHUP";
+        lprintf_nl "Received SIGHUP, closing all files/sockets";
          BasicSocket.close_all ();
         Unix32.close_all ()
          ));
 
   if Autoconf.system <> "windows" then
     MlUnix.set_signal  Sys.sigpipe
-      (Sys.Signal_handle (fun _ -> lprintf_nl "SIGPIPE"));
+      (Sys.Signal_handle (fun _ -> if !verbose then lprintf_nl "Received 
SIGPIPE, doing nothing"));
 
   MlUnix.set_signal  Sys.sigint
-    (Sys.Signal_handle (fun _ -> lprintf_nl "SIGINT";
+    (Sys.Signal_handle (fun _ -> lprintf_nl "Received SIGINT, stopping 
MLDonkey...";
         CommonGlobals.exit_properly 0));
 
   MlUnix.set_signal  Sys.sigterm
-    (Sys.Signal_handle (fun _ -> lprintf_nl "SIGTERM";
+    (Sys.Signal_handle (fun _ -> lprintf_nl "Received SIGTERM, stopping 
MLDonkey...";
         CommonGlobals.exit_properly 0));
 
   if !verbose then lprintf_nl (_b "Activated system signal handling");




reply via email to

[Prev in Thread] Current Thread [Next in Thread]