* src/web/ejabberd_http.erl: Change loglevel for http

queries (EJAB-363)
* src/web/ejabberd_web_admin.erl: Likewise

SVN Revision: 1033

diff --git a/ChangeLog b/ChangeLog
index e8a92e1e0dd86f83eb0b7018518e1fdb588621ad..3ace69525192edb7bc2bf50c9953756b37951cf4 100644 (file)
--- 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 baa7f861c373729c83e79658b370f2903a8934b0..ae37abcadf037f76570c50b3026a915a1d496e0d 100644 (file)
--- 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 928d97f222711532466612ff72243402b203cb12..68a8e368d054a70c3b25301a694f38b4aac00d05 100644 (file)
--- 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;