diff options
| author | Badlop <badlop@process-one.net> | 2010-01-25 18:32:45 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2010-01-25 18:32:45 +0000 |
| commit | 1b1a0d7ed35ae3bbea1236cbf031432dd5bc7258 (patch) | |
| tree | 63c9ca8135483cde4a3d42de4fb4a37c9c7bfe87 /src | |
| parent | Revert version number from 2.1.2 tag to 2.1.x branch (diff) | |
Support in ejabberdctl help command names with old - characters.
SVN Revision: 2924
Diffstat (limited to 'src')
| -rw-r--r-- | src/ejabberd_ctl.erl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl index 46871bd01..aee1a011f 100644 --- a/src/ejabberd_ctl.erl +++ b/src/ejabberd_ctl.erl @@ -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; |