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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.94 
mldonkey/src/daemon/common/commonOptions.ml:1.95
--- mldonkey/src/daemon/common/commonOptions.ml:1.94    Sun Oct 16 20:42:50 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Mon Oct 17 15:25:45 2005
@@ -116,6 +116,22 @@
   Unix.chdir file_basedir;
 
   if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
+    && not Autoconf.windows && not (Sys.file_exists "/dev/urandom") then begin
+      lprintf_nl "/dev/urandom does not exist, please create it, exiting...";
+      lprintf_nl "If you are using a chroot environment, create it inside the 
chroot.";
+      exit 2
+    end;  
+
+  if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
+    && not Autoconf.windows && not (Sys.file_exists "/dev/null") then begin
+      lprintf_nl "/dev/null does not exist, please create it, exiting...";
+      lprintf_nl "If you are using a chroot environment, create it inside the 
chroot.";
+      exit 2
+    end;  
+
+  Unix2.can_write_to_directory (Filename2.temp_directory ());
+
+  if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
     then
       let pid_filename =
         Printf.sprintf "%s.pid" (Filename.basename Sys.argv.(0)) in