diff options
| author | Badlop <badlop@process-one.net> | 2009-07-23 15:23:02 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2009-07-23 15:23:02 +0000 |
| commit | 140d938bc35ecf5df32003d7204840c2ad2bc3a2 (patch) | |
| tree | 904fe6809e029b8ab6e69d7d9d9d82b9353aa399 /src | |
| parent | Log an error if HTTP request does not include Host header (EJAB-966) (diff) | |
Add support to delete content and delete table.
SVN Revision: 2388
Diffstat (limited to 'src')
| -rw-r--r-- | src/web/ejabberd_web_admin.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl index c24aa6a7c..cc5ee59ab 100644 --- a/src/web/ejabberd_web_admin.erl +++ b/src/web/ejabberd_web_admin.erl @@ -2196,7 +2196,9 @@ db_storage_select(ID, Opt, Lang) -> end, [{ram_copies, "RAM copy"}, {disc_copies, "RAM and disc copy"}, {disc_only_copies, "Disc only copy"}, - {unknown, "Remote copy"}])). + {unknown, "Remote copy"}, + {delete_content, "Delete content"}, + {delete_table, "Delete table"}])). node_db_parse_query(_Node, _Tables, [{nokey,[]}]) -> nothing; @@ -2211,11 +2213,17 @@ node_db_parse_query(Node, Tables, Query) -> "ram_copies" -> ram_copies; "disc_copies" -> disc_copies; "disc_only_copies" -> disc_only_copies; + "delete_content" -> delete_content; + "delete_table" -> delete_table; _ -> false end, if Type == false -> ok; + Type == delete_content -> + mnesia:clear_table(Table); + Type == delete_table -> + mnesia:delete_table(Table); Type == unknown -> mnesia:del_table_copy(Table, Node); true -> |