aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBadlop <badlop@process-one.net>2007-12-06 11:24:57 +0000
committerBadlop <badlop@process-one.net>2007-12-06 11:24:57 +0000
commit4f78230dd8d65594f1af46565f51358b2be5a22f (patch)
tree1643bb809c0420fcd2585069a282cfa978f0690f
parent* doc/guide.tex: Add mod_caps and improve mod_pubsub documentation (diff)
* src/web/ejabberd_http.erl: Change loglevel for http
queries (EJAB-363) * src/web/ejabberd_web_admin.erl: Likewise SVN Revision: 1033
-rw-r--r--ChangeLog4
-rw-r--r--src/web/ejabberd_http.erl2
-rw-r--r--src/web/ejabberd_web_admin.erl8
3 files changed, 9 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index e8a92e1e0..3ace69525 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2007-12-06 Badlop <badlop@process-one.net>
+ * src/web/ejabberd_http.erl: Change loglevel for http
+ queries (EJAB-363)
+ * src/web/ejabberd_web_admin.erl: Likewise
+
* doc/guide.tex: Add mod_caps and improve mod_pubsub documentation
* src/ejabberd.cfg.example: Added mod_caps enabled by default
diff --git a/src/web/ejabberd_http.erl b/src/web/ejabberd_http.erl
index baa7f861c..ae37abcad 100644
--- a/src/web/ejabberd_http.erl
+++ b/src/web/ejabberd_http.erl
@@ -199,7 +199,7 @@ process_header(State, Data) ->
{ok, {http_header, _, _, _, _}} ->
State;
{ok, http_eoh} ->
- ?INFO_MSG("(~w) http query: ~w ~s~n",
+ ?DEBUG("(~w) http query: ~w ~s~n",
[State#state.socket,
State#state.request_method,
element(2, State#state.request_path)]),
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 928d97f22..68a8e368d 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -707,7 +707,7 @@ process_admin(Host,
path = ["acls"],
q = Query,
lang = Lang} = Request) ->
- ?INFO_MSG("query: ~p", [Query]),
+ ?DEBUG("query: ~p", [Query]),
Res = case Method of
'POST' ->
case catch acl_parse_query(Host, Query) of
@@ -820,7 +820,7 @@ process_admin(Host,
path = ["access"],
q = Query,
lang = Lang} = Request) ->
- ?INFO_MSG("query: ~p", [Query]),
+ ?DEBUG("query: ~p", [Query]),
Res = case Method of
'POST' ->
case catch access_parse_query(Host, Query) of
@@ -857,7 +857,7 @@ process_admin(Host,
path = ["access", SName],
q = Query,
lang = Lang} = Request) ->
- ?INFO_MSG("query: ~p", [Query]),
+ ?DEBUG("query: ~p", [Query]),
Name = list_to_atom(SName),
Res = case lists:keysearch("rules", 1, Query) of
{value, {_, String}} ->
@@ -930,7 +930,7 @@ process_admin(Host,
path = ["last-activity"],
q = Query,
lang = Lang} = Request) when is_list(Host) ->
- ?INFO_MSG("query: ~p", [Query]),
+ ?DEBUG("query: ~p", [Query]),
Month = case lists:keysearch("period", 1, Query) of
{value, {_, Val}} ->
Val;