]> granicus.if.org Git - ejabberd/commitdiff
Support in ejabberdctl help command names with old - characters.
authorBadlop <badlop@process-one.net>
Mon, 25 Jan 2010 18:32:45 +0000 (18:32 +0000)
committerBadlop <badlop@process-one.net>
Mon, 25 Jan 2010 18:32:45 +0000 (18:32 +0000)
SVN Revision: 2924

src/ejabberd_ctl.erl

index 46871bd0174763525ced0317b11083f7ed0469ce..aee1a011f7db3ca2b796cbff0c3348d41eca31a3 100644 (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;