24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-06-26 22:35:31 +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"] -> ["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;