Support in ejabberdctl help command names with old - characters.

SVN Revision: 2917
2010-01-20 10:32:56 +00:00
parent 0495112aab
commit 114dd4d9e7
1 changed files with 3 additions and 2 deletions
@@ -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;