diff options
| -rw-r--r-- | src/ejabberd_ctl.erl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl index 13d03be3a..18ca7a725 100644 --- a/src/ejabberd_ctl.erl +++ b/src/ejabberd_ctl.erl @@ -318,18 +318,19 @@ format_args(Args, ArgsFormat) -> [], lists:zip(ArgsFormat, Args)). -format_arg(Arg, Format) -> - Parse = case Format of - integer -> - "~d"; - string -> - NumChars = integer_to_list(string:len(Arg)), - "~" ++ NumChars ++ "c" - end, +format_arg(Arg, integer) -> + format_arg2(Arg, "~d"); +format_arg("", string) -> + ""; +format_arg(Arg, string) -> + NumChars = integer_to_list(string:len(Arg)), + Parse = "~" ++ NumChars ++ "c", + format_arg2(Arg, Parse). + +format_arg2(Arg, Parse)-> {ok, [Arg2], _RemainingArguments} = io_lib:fread(Parse, Arg), Arg2. - %%----------------------------- %% Format result %%----------------------------- |