[Pkg-ocaml-maint-commits] r1718 - trunk/packages/mldonkey/trunk/debian/utils

[Sylvain LE GALL]

Author: gildor-guest
Date: 2005-08-30 21:00:26 +0000 (Tue, 30 Aug 2005)
New Revision: 1718

Modified:
   trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml
Log:
Ooops, forget to remove comments -- SLG


Modified: trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml
===================================================================
--- trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml	2005-08-30 19:15:28 UTC (rev 1717)
+++ trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml	2005-08-30 21:00:26 UTC (rev 1718)
@@ -394,7 +394,7 @@
 let create_pidfile st =
   let pidfile = open_out (get_pidfile st)
   in
-  debug st ("Writing PID ( "^(string_of_int (Unix.getpid ()))^" ) to pidfile : "^(get_pidfile st));
+  debug st ("Writing PID ("^(string_of_int (Unix.getpid ()))^") to pidfile : "^(get_pidfile st));
   output_string pidfile (string_of_int (Unix.getpid ()));
   output_string pidfile "\n";
   close_out pidfile
@@ -666,14 +666,14 @@
     raise Already_running
   else
     ();
-(*  set_nice st;
+  set_nice st;
   set_uid_gid st;
   set_umask st;
   create_home st;
-  go_home st;*)
+  go_home st;
   daemonize st;
   create_pidfile st;
-(*  let launch_mlnet st =
+  let launch_mlnet st =
     let (logger_stderr, mlnet_stderr) =
       if st.daemon then
         Unix.pipe ()
@@ -828,10 +828,6 @@
         ()
     done;
   done;
-  *)
-  while true do
-    Unix.sleep 1
-  done;
   debug st "MLDonkey server end";
   close_pidfile st
 ;;