working :)

kollo — Fri, 20 Feb 2009 19:06:58 +0000

thanks badlop, you are the king :)

I did something a bit similar but without the check. thanks again, I get your code.

regards,
kollo

Try this patch

mfoss — Fri, 20 Feb 2009 10:08:02 +0000

Try this patch:

--- src/mod_ctlextra.erl        (revisión: 873)
+++ src/mod_ctlextra.erl        (copia de trabajo)
@@ -49,6 +49,7 @@
      {"delete-older-users days", "delete users that have not logged in the last 'days'"},
      {"delete-older-users-vhost host days", "delete users that not logged in last 'days' in 'host'"},
      {"set-password user server password", "set password to user@server"},
+     {"get-password user server", "get password of user@server"},

      %% ejd2odbc
      {"export2odbc server output", "export Mnesia tables on server to files on output directory"},
@@ -143,6 +144,18 @@
     ejabberd_auth:set_password(User, Server, Password),
     ?STATUS_SUCCESS;

+ctl_process(_Val, ["get-password", User, Server]) ->
+    case ejabberd_auth:get_password(User, Server) of
+       false ->
+           Res = "Account does not exist",
+           io:format("~s~n", [Res]),
+           ?STATUS_ERROR;
+       Password when is_list(Password) ->
+           Res = Password,
+           io:format("~s~n", [Res]),
+           ?STATUS_SUCCESS
+    end;
+
 ctl_process(_Val, ["vcard-get", User, Server, Data]) ->
     {ok, Res} = vcard_get(User, Server, [Data]),
     io:format("~s~n", [Res]),

ejabberd - Comments for "Add option to mod_ctlextra, something get wrong ?"

working :)

Try this patch