/[mldonkey]/mldonkey/src/daemon/driver/driverMain.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverMain.ml

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

revision 1.66 by spiralvoice, Sun Aug 21 16:05:20 2005 UTC revision 1.67 by spiralvoice, Fri Aug 26 21:12:23 2005 UTC
# Line 293  let load_config () = Line 293  let load_config () =
293  (*      Options.load downloads_expert_ini;       *)  (*      Options.load downloads_expert_ini;       *)
294      with e ->      with e ->
295          lprintf_nl "Exception %s during options load" (Printexc2.to_string e);          lprintf_nl "Exception %s during options load" (Printexc2.to_string e);
296          exit 2;          exit 70;
297          ());          ());
298    
299    (* Here, we try to update options when a new version of mldonkey is    (* Here, we try to update options when a new version of mldonkey is
# Line 372  let load_config () = Line 372  let load_config () =
372        "-daemon", Arg.Unit (fun _ ->        "-daemon", Arg.Unit (fun _ ->
373            (* Removed due to savannah bug #11514 . *)            (* Removed due to savannah bug #11514 . *)
374            lprintf_nl "\n\nOption -daemon was removed.\nUse 'mlnet > /dev/null 2>&1 &' instead. Exiting...";            lprintf_nl "\n\nOption -daemon was removed.\nUse 'mlnet > /dev/null 2>&1 &' instead. Exiting...";
375            exit 0), _s " : this argument was removed, core will exit";            exit 64), _s " : this argument was removed, core will exit";
376        "-find_port", Arg.Set find_other_port,        "-find_port", Arg.Set find_other_port,
377        _s " : find another port when one is already used";        _s " : find another port when one is already used";
378      ] @      ] @
# Line 428  let _ = Line 428  let _ =
428      begin      begin
429        lprintf_nl (_b "\n\n\nYour system has a system date earlier than 2004, please correct it.");        lprintf_nl (_b "\n\n\nYour system has a system date earlier than 2004, please correct it.");
430        lprintf_nl (_b "MLdonkey can not work with such a system date, exiting...");        lprintf_nl (_b "MLdonkey can not work with such a system date, exiting...");
431        CommonGlobals.exit_properly 0        CommonGlobals.exit_properly 71
432      end;      end;
433    
434    (    (
# Line 570  or getting a binary compiled with glibc Line 570  or getting a binary compiled with glibc
570        with e ->        with e ->
571            lprintf_nl (_b "Exception %s trying to set user_uid [%s]")            lprintf_nl (_b "Exception %s trying to set user_uid [%s]")
572            (Printexc2.to_string e) !!run_as_user;            (Printexc2.to_string e) !!run_as_user;
573            exit 2            exit 67
574      end;      end;
575    
576    if !!run_as_useruid <> 0 then begin    if !!run_as_useruid <> 0 then begin
# Line 580  or getting a binary compiled with glibc Line 580  or getting a binary compiled with glibc
580        with e ->        with e ->
581            lprintf_nl (_b "Exception %s trying to set user_uid [%d]")            lprintf_nl (_b "Exception %s trying to set user_uid [%d]")
582            (Printexc2.to_string e) !!run_as_useruid;            (Printexc2.to_string e) !!run_as_useruid;
583            exit 2            exit 67
584      end;      end;
585    
586    if !!create_mlsubmit then save_mlsubmit_reg ();    if !!create_mlsubmit then save_mlsubmit_reg ();
# Line 643  for config files at the end. *) Line 643  for config files at the end. *)
643          lprintf_nl (_b "Cannot create Security space file:");          lprintf_nl (_b "Cannot create Security space file:");
644          lprintf_nl (_b " not enough space on device or bad permissions");          lprintf_nl (_b " not enough space on device or bad permissions");
645          lprintf_nl (_b "Exiting...");          lprintf_nl (_b "Exiting...");
646          exit 2;          exit 73;
647    end;    end;
648    CommonGlobals.do_at_exit (fun _ ->    CommonGlobals.do_at_exit (fun _ ->
649        (* If we have an error with too many file-descriptors,        (* If we have an error with too many file-descriptors,

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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