/[mldonkey]/mldonkey/src/daemon/common/commonOptions.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonOptions.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.94 by spiralvoice, Sun Oct 16 20:42:50 2005 UTC revision 1.95 by spiralvoice, Mon Oct 17 15:25:45 2005 UTC
# Line 116  let _ = Line 116  let _ =
116    Unix.chdir file_basedir;    Unix.chdir file_basedir;
117    
118    if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")    if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
119        && not Autoconf.windows && not (Sys.file_exists "/dev/urandom") then begin
120          lprintf_nl "/dev/urandom does not exist, please create it, exiting...";
121          lprintf_nl "If you are using a chroot environment, create it inside the chroot.";
122          exit 2
123        end;  
124    
125      if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
126        && not Autoconf.windows && not (Sys.file_exists "/dev/null") then begin
127          lprintf_nl "/dev/null does not exist, please create it, exiting...";
128          lprintf_nl "If you are using a chroot environment, create it inside the chroot.";
129          exit 2
130        end;  
131    
132      Unix2.can_write_to_directory (Filename2.temp_directory ());
133    
134      if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet")
135      then      then
136        let pid_filename =        let pid_filename =
137          Printf.sprintf "%s.pid" (Filename.basename Sys.argv.(0)) in          Printf.sprintf "%s.pid" (Filename.basename Sys.argv.(0)) in

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26