Chapril/xmpp.chapril.org-ejabberd
24
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-06-12 21:52:07 +02:00
Code Releases Activity

* src/web/ejabberd_web.erl: Experiments with web-interface

Browse Source 
SVN Revision: 214
This commit is contained in:
Alexey Shchepin 2004-03-12 15:15:17 +00:00
parent 20e297db3a
commit a2b2d08ddc
2 changed files with 82 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ChangeLog
View File

@ -1,5 +1,7 @@
2004-03-12 Alexey Shchepin <alexey@sevcom.net>
* src/web/ejabberd_web.erl: Experiments with web-interface
* src/configure.ac: Updated
* src/Makefile.in: Likewise

55
src/web/ejabberd_web.erl
View File

@ -93,10 +93,6 @@ process_config(#request{user = User,
path = ["acls"],
q = Query,
lang = Lang} = Request) ->
case acl:match_rule(configure, jlib:make_jid(User, ?MYNAME, "")) of
deny ->
{401, [], make_xhtml([?XC("h1", "Not Allowed")])};
allow ->
Res = case lists:keysearch("acls", 1, Query) of
{value, {_, String}} ->
case erl_scan:string(String) of
@ -133,11 +129,60 @@ process_config(#request{user = User,
?BR,
?XA("input", [{"type", "submit"}])
])
]);
process_config(#request{user = User,
path = ["acls2"],
q = Query,
lang = Lang} = Request) ->
ACLs = ets:tab2list(acl),
make_xhtml([?XC("h1", "ejabberd ACLs configuration")] ++
[?XAE("form", [{"method", "post"}],
[acls_to_xhtml(ACLs),
?BR,
?XA("input", [{"type", "submit"}])
])
end;
]);
process_config(_Request) ->
{404, [], make_xhtml([?XC("h1", "Not found")])}.
acls_to_xhtml(ACLs) ->
?XAE("table", [],
[?XE("tbody",
lists:map(
fun({acl, Name, Spec}) ->
?XE("tr",
[?XC("td", atom_to_list(Name))] ++
acl_spec_to_xhtml(Spec)
)
end, ACLs)
)]).
-define(ACLINPUT(Text), ?XE("td", [?XA("input", [{"type", "text"},
{"name", ""},
{"value", Text}])])).
acl_spec_to_xhtml({user, U}) ->
[acl_spec_select(user), ?ACLINPUT(U)];
acl_spec_to_xhtml(Spec) ->
[acl_spec_select(raw),
?ACLINPUT(lists:flatten(io_lib:format("~p.", [Spec])))
].
acl_spec_select(Opt) ->
?XE("td",
[?XAE("select", [{"name", ""}],
lists:map(
fun(O) ->
Sel = if
O == Opt -> [{"selected", "selected"}];
true -> []
end,
?XAC("option",
Sel ++ [{"value", atom_to_list(O)}],
atom_to_list(O))
end, [all, user, server, raw]))]).