[Pkg-ocaml-maint-commits] r1808 - in trunk/packages/mldonkey/trunk/debian: . utils

[Sylvain LE GALL]

Author: gildor-guest
Date: 2005-10-03 21:15:04 +0000 (Mon, 03 Oct 2005)
New Revision: 1808

Modified:
   trunk/packages/mldonkey/trunk/debian/changelog
   trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml
Log:
Add a file to check in mldonkey_server -- SLG


Modified: trunk/packages/mldonkey/trunk/debian/changelog
===================================================================
--- trunk/packages/mldonkey/trunk/debian/changelog	2005-10-03 20:38:49 UTC (rev 1807)
+++ trunk/packages/mldonkey/trunk/debian/changelog	2005-10-03 21:15:04 UTC (rev 1808)
@@ -14,6 +14,7 @@
   * Correct the package description (overnet is written twice)
   * Use distclean for the clean target
   * Updated vi debconf translation, thanks to Clytie Siddall
+  * Check for mlnet.pid in mldonkey_server and exit if it exists
 
  -- Sylvain Le Gall <sylvain.le-gall at polytechnique.org>  Tue, 20 Sep 2005 00:07:22 +0200
 

Modified: trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml
===================================================================
--- trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml	2005-10-03 20:38:49 UTC (rev 1807)
+++ trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml	2005-10-03 21:15:04 UTC (rev 1808)
@@ -616,6 +616,12 @@
     ^" or group "^(string_of_int st.chgid))
     "change permission"
     1;
+  check_fun
+    (List.filter Sys.file_exists)
+    [Filename.concat (get_chdir st) "mlnet.pid"]
+    "file[s] should no exist"
+    "delete it first"
+    1;
 ;;