87 |
exit 2); |
exit 2); |
88 |
Unix2.can_write_to_directory file_basedir; |
Unix2.can_write_to_directory file_basedir; |
89 |
Unix.chdir file_basedir; |
Unix.chdir file_basedir; |
90 |
|
if (String2.starts_with (Filename.basename Sys.argv.(0)) "mlnet") |
91 |
if Sys.file_exists "mlnet.pid" then |
then if Sys.file_exists "mlnet.pid" |
92 |
begin |
then begin |
93 |
lprintf "\n\n\nPID file mlnet.pid exists in %s\n" |
lprintf "\n\n\nPID file mlnet.pid exists in %s\n" |
94 |
file_basedir; |
file_basedir; |
95 |
lprintf "This means another MLDonkey process could still be working\n"; |
lprintf "This means another MLDonkey process could still be working\n"; |
96 |
lprintf "with this directory. Please shut it down before starting\n"; |
lprintf "with this directory. Please shut it down before starting\n"; |
97 |
lprintf "a new instance here. If you are sure no other process uses\n"; |
lprintf "a new instance here. If you are sure no other process uses\n"; |
98 |
lprintf "this directory delete mlnet.pid and restart the core.\n"; |
lprintf "this directory delete mlnet.pid and restart the core.\n"; |
99 |
exit 2 |
exit 2 |
100 |
end; |
end; |
101 |
|
|
102 |
lprintf "The .ini-files are saved in %s\n" file_basedir; |
lprintf "The .ini-files are saved in %s\n" file_basedir; |
103 |
|
|