25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-30 16:36:29 +01:00

Support in ejabberdctl help command names with old - characters.

SVN Revision: 2917
This commit is contained in:
Badlop 2010-01-20 10:32:56 +00:00
parent 0495112aab
commit 114dd4d9e7

View File

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