From d4d28e038b4d72c66c02a20d2098f4f3542937d5 Mon Sep 17 00:00:00 2001 From: Badlop Date: Mon, 30 May 2011 17:11:32 +0200 Subject: Cut the string when calling halt/1 --- src/ejabberd_config.erl | 2 +- src/gen_mod.erl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl index 1609b447d..5f756be65 100644 --- a/src/ejabberd_config.erl +++ b/src/ejabberd_config.erl @@ -215,7 +215,7 @@ exit_or_halt(ExitText) -> case [Vsn || {ejabberd, _Desc, Vsn} <- application:which_applications()] of [] -> timer:sleep(1000), - halt(ExitText); + halt(string:substr(ExitText, 1, 199)); [_] -> exit(ExitText) end. diff --git a/src/gen_mod.erl b/src/gen_mod.erl index 397cbc35a..0f577d31a 100644 --- a/src/gen_mod.erl +++ b/src/gen_mod.erl @@ -79,7 +79,7 @@ start_module(Host, Module, Opts) -> false -> ?CRITICAL_MSG("ejabberd initialization was aborted because a module start failed.", []), timer:sleep(3000), - erlang:halt(lists:flatten(ErrorText)) + erlang:halt(string:substr(lists:flatten(ErrorText), 1, 199)) end end. -- cgit v1.2.3