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 |