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

* src/web/ejabberd_web_admin.erl: Updated

Browse Source 
SVN Revision: 228
This commit is contained in:
Alexey Shchepin 2004-05-04 19:47:24 +00:00
parent 4760ff3201
commit a16524151c
3 changed files with 186 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2004-05-04 Alexey Shchepin <alexey@sevcom.net>
* src/web/ejabberd_web_admin.erl: Updated
2004-05-01 Alexey Shchepin <alexey@sevcom.net> 2004-05-01 Alexey Shchepin <alexey@sevcom.net>
* src/web/ejabberd_http.erl: 'Accept-Language' header support * src/web/ejabberd_http.erl: 'Accept-Language' header support

3
src/web/ejabberd_http.erl
View File

@ -30,11 +30,12 @@
-define(XHTML_DOCTYPE, -define(XHTML_DOCTYPE,
"<?xml version='1.0'?>\n"
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" " "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" "
"\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n"). "\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n").
-define(HTML_DOCTYPE, -define(HTML_DOCTYPE,
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">"). "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n").
start(SockData, Opts) -> start(SockData, Opts) ->

288
src/web/ejabberd_web_admin.erl
View File

@ -46,99 +46,116 @@
make_xhtml(Els, Lang) -> make_xhtml(Els, Lang) ->
{200, [html], {200, [html],
{xmlelement, "html", [{"xmlns", "http://www.w3.org/1999/xhtml"}, {xmlelement, "html", [{"xmlns", "http://www.w3.org/1999/xhtml"},
{"xml:lang", "en"}, {"xml:lang", Lang},
{"lang", "en"}], {"lang", Lang}],
[{xmlelement, "head", [], [{xmlelement, "head", [],
[{xmlelement, "meta", [{"http-equiv", "Content-Type"}, [{xmlelement, "meta", [{"http-equiv", "Content-Type"},
{"content", "text/html; charset=utf-8"}], []}, {"content", "text/html; charset=utf-8"}], []},
{xmlelement, "link", [{"href", "/admin/style.css"}, {xmlelement, "link", [{"href", "/admin/style.css"},
{"type", "text/css"}, {"type", "text/css"},
{"rel", "StyleSheet"}], []}]}, {"rel", "stylesheet"}], []}]},
{xmlelement, "body", ?XE("body",
[{"topmargin", "0"}, [?XAE("table",
{"marginheight", "0"}, [{"id", "top"}],
{"leftmargin", "0"}, [?XE("tr",
{"marginwidth", "0"}, [?XE("td",
{"rightmargin", "0"}], [?XA("img", [{"src", "/admin/logo.png"},
[?XAE("table", {"width", "343"},
[{"cellpadding", "0"}, {"height", "55"},
{"cellspacing", "0"}, {"alt", "ejabberd"},
{"border", "0"}, {"border", "0"}])]),
{"bgcolor", "#fe8a00"}, ?XAE("td", [{"width", "100%"},
{"width", "100%"}], {"background", "/admin/logo-fill.png"}],
[?XE("tr", [?XA("img", [{"src", "/admin/1x1tr.gif"},
[?XAE("td", [{"height", "2"}], {"width", "100%"},
[?XA("img", [{"src", "/admin/1x1tr.gif"}, {"height", "55"},
{"width", "1"}, {"alt", ""},
{"height", "2"}, {"border", "0"}])])])
{"alt", ""}, ]),
{"border", "0"}])]), ?XAE("table",
?XAE("td", [{"height", "2"}], [{"id", "middle"}],
[?XA("img", [{"src", "/admin/1x1tr.gif"}, [?XE("tr",
{"width", "1"}, [?XAE("td",
{"height", "2"}, [{"width", "1"},
{"alt", ""}, {"bgcolor", "#d47911"}],
{"border", "0"}])])]), [?C(" ")]),
?XE("tr", ?XAE("td",
[?XE("td", [{"height", "100%"},
[?XA("img", [{"src", "/admin/logo.png"}, %{"width", "100%"},
{"width", "343"}, {"bgcolor", "#ffffff"},
{"height", "55"}, {"valign", "top"}],
{"alt", "ejabberd"}, [?XAE("ul",
{"border", "0"}])]), [{"id", "navlist"}],
?XAE("td", [{"width", "100%"}, [?LI([?ACT("/admin/acls/", "Access Control Lists")]),
{"background", "/admin/logo-fill.png"}], ?LI([?ACT("/admin/access/", "Access Rules")]),
[?XA("img", [{"src", "/admin/1x1tr.gif"}, ?LI([?ACT("/admin/users/", "Users")]),
{"width", "100%"}, ?LI([?ACT("/admin/nodes/", "Nodes")]),
{"height", "55"}, ?LI([?ACT("/admin/stats/", "Statistics")])
{"alt", ""}, ])]),
{"border", "0"}])])]) ?XAE("td",
]), [{"height", "100%"},
?XAE("table", {"width", "100%"},
[{"cellpadding", "0"}, {"bgcolor", "#ffffff"},
{"cellspacing", "0"}, {"valign", "top"}],
{"border", "0"}, [?XAE("div", [{"id", "content"}], Els)])])
{"width", "100%"}, ]),
{"height", "100%"}], ?XAE("table",
[?XE("tr", [{"id", "bottom"}],
[?XAE("td", [?XE("tr",
[{"width", "1"}, [?XCT("td",
{"bgcolor", "#d47911"}], "ejabberd (c) 2002-2004 Alexey Shchepin")
[?C(" ")]), ])
?XAE("td", ])])
[{"height", "100%"},
%{"width", "100%"},
{"bgcolor", "#ffffff"},
{"valign", "top"}],
[?XAE("ul",
[{"id", "navlist"}],
[?LI([?ACT("/admin/acls/", "Access Control Lists")]),
?LI([?ACT("/admin/access/", "Access Rules")]),
?LI([?ACT("/admin/users/", "Users")]),
?LI([?ACT("/admin/nodes/", "Nodes")]),
?LI([?ACT("/admin/stats/", "Statistics")])
])]),
?XAE("td",
[{"height", "100%"},
{"width", "100%"},
{"bgcolor", "#ffffff"},
{"valign", "top"}],
[?XAE("span", [{"id", "content"}], Els)])])
]),
?XAE("table",
[{"cellpadding", "0"},
{"cellspacing", "0"},
{"border", "0"},
{"width", "100%"}],
[?XE("tr",
[?XA("td",
[{"height", "1"},
{"bgcolor", "#d47911"}])
])
])]}
]}}. ]}}.
css() -> " css() -> "
body {
margin-left: 0;
margin-right: 0;
margin-top: 0;
}
table#top {
border: none;
border-spacing: 0;
background-color: #fe8a00;
width: 100%;
padding-top: 2px;
}
table#top td {
padding: 0;
}
table#top td img {
margin-bottom: 0px;
}
table#middle {
border: none;
border-spacing: 0;
width: 100%;
height: 100%;
empty-cells: show;
}
table#middle td {
padding: 0;
//background-color: #fe8a00;
}
table#bottom {
border: none;
border-spacing: 0;
width: 100%;
}
table#bottom td {
padding: 0;
background-color: #fe8a00;
text-align: center;
}
/*td{ /*td{
font-size: 3pt; font-size: 3pt;
} }
@ -249,7 +266,7 @@ select {
} }
tr.head{ tr.head {
color: #ffffff; color: #ffffff;
background-color: #3b547a; background-color: #3b547a;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
@ -258,7 +275,7 @@ tr.head{
text-align: center; text-align: center;
} }
tr.oddraw{ tr.oddraw {
color: #412c75; color: #412c75;
background-color: #ccd4df; background-color: #ccd4df;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
@ -267,7 +284,7 @@ tr.oddraw{
text-align: center; text-align: center;
} }
tr.evenraw{ tr.evenraw {
color: #412c75; color: #412c75;
background-color: #dbe0e8; background-color: #dbe0e8;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
@ -276,7 +293,7 @@ tr.evenraw{
text-align: center; text-align: center;
} }
td.leftheader{ td.leftheader {
color: #412c75; color: #412c75;
background-color: #ccccc1; background-color: #ccccc1;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
@ -289,7 +306,7 @@ td.leftheader{
margin-bottom: 0px; margin-bottom: 0px;
} }
td.leftcontent{ td.leftcontent {
color: #000044; color: #000044;
background-color: #e6e6df; background-color: #e6e6df;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
@ -303,7 +320,7 @@ td.leftcontent{
margin-bottom: 0px; margin-bottom: 0px;
} }
td.rightcontent{ td.rightcontent {
color: #000044; color: #000044;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10pt; font-size: 10pt;
@ -315,7 +332,7 @@ td.rightcontent{
} }
h1{ h1 {
color: #000044; color: #000044;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 14pt; font-size: 14pt;
@ -328,7 +345,7 @@ h1{
margin-bottom: 0px; margin-bottom: 0px;
} }
h2{ h2 {
color: #000044; color: #000044;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12pt; font-size: 12pt;
@ -341,7 +358,7 @@ h2{
margin-bottom: 0px; margin-bottom: 0px;
} }
h3{ h3 {
color: #000044; color: #000044;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10pt; font-size: 10pt;
@ -354,21 +371,21 @@ h3{
margin-bottom: 0px; margin-bottom: 0px;
} }
*#content a:link { #content a:link {
color: #444466; color: #444466;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10pt; font-size: 10pt;
font-weight: bold; font-weight: bold;
text-decoration: underlined; text-decoration: underlined;
} }
*#content a:visited { #content a:visited {
color: #444466; color: #444466;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10pt; font-size: 10pt;
font-weight: bold; font-weight: bold;
text-decoration: underlined; text-decoration: underlined;
} }
*#content a:hover { #content a:hover {
color: #222266; color: #222266;
font-family: Verdana, Arial, Helvetica, sans-serif; font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10pt; font-size: 10pt;
@ -377,17 +394,20 @@ h3{
} }
*#content li{ #content li {
list-style-type: dot; list-style-type: dot;
font-size: 7pt; font-size: 7pt;
padding-left: 10px; padding-left: 10px;
} }
*#content li.big{ #content li.big {
font-size: 10pt; font-size: 10pt;
} }
div#content {
margin-left: 10px;
margin-top: 5px;
}
". ".
@ -516,6 +536,7 @@ process_admin(#request{method = Method,
error -> [?CT("bad format"), ?P]; error -> [?CT("bad format"), ?P];
nothing -> [] nothing -> []
end ++ end ++
[?XE("p", [?ACT("../acls-raw/", "raw")])] ++
[?XAE("form", [{"method", "post"}], [?XAE("form", [{"method", "post"}],
[acls_to_xhtml(ACLs), [acls_to_xhtml(ACLs),
?BR, ?BR,
@ -620,6 +641,7 @@ process_admin(#request{method = Method,
error -> [?C("bad format"), ?P]; error -> [?C("bad format"), ?P];
nothing -> [] nothing -> []
end ++ end ++
[?XE("p", [?ACT("../access-raw/", "raw")])] ++
[?XAE("form", [{"method", "post"}], [?XAE("form", [{"method", "post"}],
[access_rules_to_xhtml(AccessRules, Lang), [access_rules_to_xhtml(AccessRules, Lang),
?BR, ?BR,
@ -654,7 +676,7 @@ process_admin(#request{method = Method,
Rs1 Rs1
end, end,
make_xhtml([?XC("h1", make_xhtml([?XC("h1",
"ejabberd access rule '" ++ SName ++ "' configuration")] ++ "'" ++ SName ++ "' access rule configuration")] ++
case Res of case Res of
ok -> [?C("submited"), ?P]; ok -> [?C("submited"), ?P];
error -> [?C("bad format"), ?P]; error -> [?C("bad format"), ?P];
@ -675,19 +697,26 @@ process_admin(#request{user = User,
make_xhtml([?XC("h1", "ejabberd users")] ++ Res, Lang); make_xhtml([?XC("h1", "ejabberd users")] ++ Res, Lang);
process_admin(#request{user = User, process_admin(#request{user = User,
path = ["users", Diap], path = ["users", Diap],
q = Query, q = Query,
lang = Lang} = Request) -> lang = Lang} = Request) ->
Res = list_users_in_diapason(Diap), Res = list_users_in_diapason(Diap),
make_xhtml([?XC("h1", "ejabberd users")] ++ Res, Lang); make_xhtml([?XC("h1", "ejabberd users")] ++ Res, Lang);
process_admin(#request{user = User, process_admin(#request{user = User,
path = ["stats"], path = ["stats"],
q = Query, q = Query,
lang = Lang} = Request) -> lang = Lang} = Request) ->
Res = get_stats(Lang), Res = get_stats(Lang),
make_xhtml([?XC("h1", "ejabberd stats")] ++ Res, Lang); make_xhtml([?XC("h1", "ejabberd stats")] ++ Res, Lang);
process_admin(#request{user = User,
path = ["user", U],
q = Query,
lang = Lang} = Request) ->
Res = user_info(U, Query, Lang),
make_xhtml(Res, Lang);
process_admin(#request{lang = Lang}) -> process_admin(#request{lang = Lang}) ->
setelement(1, make_xhtml([?XC("h1", "Not found")], Lang), 404). setelement(1, make_xhtml([?XC("h1", "Not found")], Lang), 404).
@ -723,7 +752,7 @@ acl_spec_to_text({server, S}) ->
{server, S}; {server, S};
acl_spec_to_text({user, U, S}) -> acl_spec_to_text({user, U, S}) ->
{user, U ++ "@" ++ S}; {user_server, U ++ "@" ++ S};
acl_spec_to_text(Spec) -> acl_spec_to_text(Spec) ->
{raw, term_to_string(Spec)}. {raw, term_to_string(Spec)}.
@ -983,3 +1012,46 @@ get_stats(Lang) ->
?XC("td", integer_to_list(S2SServers))]) ?XC("td", integer_to_list(S2SServers))])
]) ])
])]. ])].
user_info(User, Query, Lang) ->
Res = user_parse_query(User, Query),
Resources = ejabberd_sm:get_user_resources(User),
FResources =
case Resources of
[] ->
[?CT("None")];
_ ->
[?XE("ul",
lists:map(fun(R) ->
?LI([?C(R)])
end, lists:sort(Resources)))]
end,
Password = ejabberd_auth:get_password_s(User),
FPassword = [?INPUT("text", "password", Password), ?C(" "),
?INPUTT("submit", "chpassword", "Change Password")],
[?XC("h1", "User: " ++ User)] ++
case Res of
ok -> [?C("submited"), ?P];
error -> [?C("bad format"), ?P];
nothing -> []
end ++
[?XAE("form", [{"method", "post"}],
[?XCT("h3", "Connected Resources:")] ++ FResources ++
[?XCT("h3", "Password:")] ++ FPassword)].
user_parse_query(User, Query) ->
case lists:keysearch("chpassword", 1, Query) of
{value, _} ->
case lists:keysearch("password", 1, Query) of
{value, {_, Password}} ->
ejabberd_auth:set_password(User, Password),
ok;
_ ->
error
end;
_ ->
nothing
end.