Cut the string when calling halt/1

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.

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.