diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-10-09 18:09:05 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-10-09 18:09:05 +0000 |
| commit | 7df146166a7229a66e5d7d4fe8476a5a4c646e0b (patch) | |
| tree | 4160eed36b115426b948f3944476ce41a1cf9fa6 /src/mod_private.erl | |
| parent | * src/ejabberd_c2s.erl: Added support for "jid-malformed" error (diff) | |
* src/ejabberd_c2s.erl: Added authentification logging
* src/ejabberd_listener.erl: Added logging of accepted connections
* src/stringprep/stringprep_drv.c: Cleanup
* src/jd2ejd.erl: Added support for iq:private importing
* src/mod_configure.erl: Fixed user removal
* src/mod_private.erl: Added remove_user/1
* doc/guide.tex: Updated
* src/mod_disco.erl: Added "extra_domains" option
SVN Revision: 146
Diffstat (limited to 'src/mod_private.erl')
| -rw-r--r-- | src/mod_private.erl | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/src/mod_private.erl b/src/mod_private.erl index 8b091433f..a4ec97d1d 100644 --- a/src/mod_private.erl +++ b/src/mod_private.erl @@ -14,7 +14,8 @@ -export([start/1, stop/0, - process_local_iq/3]). + process_local_iq/3, + remove_user/1]). -include("ejabberd.hrl"). -include("jlib.hrl"). @@ -95,3 +96,20 @@ get_data(LUser, [El | Els], Res) -> _ -> get_data(LUser, Els, Res) end. + + +remove_user(User) -> + LUser = jlib:nodeprep(User), + F = fun() -> + lists:foreach( + fun({U, _} = Key) -> + if + U == LUser -> + mnesia:delete({private_storage, Key}); + true -> + ok + end + end, mnesia:all_keys(private_storage)) + end, + mnesia:transaction(F). + |