From: Badlop <badlop@process-one.net>
Date: Mon, 30 May 2011 15:11:32 +0000 (+0200)
Subject: Cut the string when calling halt/1
X-Git-Tag: v2.1.7~11
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=d4d28e038b4d72c66c02a20d2098f4f3542937d5;p=ejabberd

Cut the string when calling halt/1
---

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.