24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-06-18 22:15:20 +02:00

Support in ejabberdctl help command names with old - characters.

SVN Revision: 2924
This commit is contained in:
Badlop 2010-01-25 18:32:45 +00:00
parent a0de5bc317
commit 1b1a0d7ed3

View File

@ -189,8 +189,9 @@ process(["help" | Mode]) ->
["help"] ->
print_usage_help(MaxC, ShCode),
?STATUS_SUCCESS;
[CommandString | _] ->
print_usage_commands(CommandString, MaxC, ShCode),
[CmdString | _] ->
{ok, CmdStringU, _} = regexp:gsub(CmdString, "-", "_"),
print_usage_commands(CmdStringU, MaxC, ShCode),
?STATUS_SUCCESS
end;