[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.97 
mldonkey/src/daemon/common/commonOptions.ml:1.98
--- mldonkey/src/daemon/common/commonOptions.ml:1.97    Tue Oct 25 09:42:35 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Thu Oct 27 09:41:06 2005
@@ -100,6 +100,10 @@
 a new instance here. If you are sure no other process uses
 this directory delete %s and restart the core.\n" file
 
+let exit_message_dev file = Printf.sprintf
+"\n/dev/%s does not exist, please create it, exiting...
+If you are using a chroot environment, create it inside the chroot.\n" file
+
 let _ =
   lprintf_nl "Starting MLDonkey %s ... " Autoconf.current_version;
   lprintf_nl "Language %s, locale %s"
@@ -117,15 +121,15 @@
 
   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.";
+      lprintf "%s" (exit_message_dev "urandom");
+      if Autoconf.system = "hpux" then
+        lprintf_nl "For HP-UX get urandom support from 
http://www.josvisser.nl/hpux11-random";;
       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.";
+      lprintf "%s" (exit_message_dev "null");
       exit 2
     end;