/[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.63 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC revision 1.64 by spiralvoice, Sun Jul 10 13:28:50 2005 UTC
# Line 87  let _ = Line 87  let _ =
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    

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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