summaryrefslogtreecommitdiff
path: root/src/couch_log/src/couch_log_util.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/couch_log/src/couch_log_util.erl')
-rw-r--r--src/couch_log/src/couch_log_util.erl147
1 files changed, 0 insertions, 147 deletions
diff --git a/src/couch_log/src/couch_log_util.erl b/src/couch_log/src/couch_log_util.erl
deleted file mode 100644
index 8be11e12d..000000000
--- a/src/couch_log/src/couch_log_util.erl
+++ /dev/null
@@ -1,147 +0,0 @@
-% Licensed under the Apache License, Version 2.0 (the "License"); you may not
-% use this file except in compliance with the License. You may obtain a copy of
-% the License at
-%
-% http://www.apache.org/licenses/LICENSE-2.0
-%
-% Unless required by applicable law or agreed to in writing, software
-% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
-% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
-% License for the specific language governing permissions and limitations under
-% the License.
-
--module(couch_log_util).
-
--export([
- should_log/1,
- iso8601_timestamp/0,
- get_msg_id/0,
-
- level_to_integer/1,
- level_to_atom/1,
- level_to_string/1,
-
- string_p/1
-]).
-
--include("couch_log.hrl").
-
--spec should_log(#log_entry{} | atom()) -> boolean().
-should_log(#log_entry{level = Level}) ->
- should_log(Level);
-should_log(Level) ->
- level_to_integer(Level) >= couch_log_config:get(level_int).
-
--spec iso8601_timestamp() -> string().
-iso8601_timestamp() ->
- {_, _, Micro} = Now = os:timestamp(),
- {{Year, Month, Date}, {Hour, Minute, Second}} = calendar:now_to_datetime(Now),
- Format = "~4.10.0B-~2.10.0B-~2.10.0BT~2.10.0B:~2.10.0B:~2.10.0B.~6.10.0BZ",
- io_lib:format(Format, [Year, Month, Date, Hour, Minute, Second, Micro]).
-
--spec get_msg_id() -> string().
-get_msg_id() ->
- case erlang:get(nonce) of
- undefined -> "--------";
- MsgId -> MsgId
- end.
-
--spec level_to_integer(atom() | string() | integer()) -> integer().
-level_to_integer(L) when L >= 0, L =< 9 -> L;
-level_to_integer(debug) -> 1;
-level_to_integer(info) -> 2;
-level_to_integer(notice) -> 3;
-level_to_integer(warning) -> 4;
-level_to_integer(warn) -> 4;
-level_to_integer(error) -> 5;
-level_to_integer(err) -> 5;
-level_to_integer(critical) -> 6;
-level_to_integer(crit) -> 6;
-level_to_integer(alert) -> 7;
-level_to_integer(emergency) -> 8;
-level_to_integer(emerg) -> 8;
-level_to_integer(none) -> 9;
-level_to_integer("debug") -> 1;
-level_to_integer("info") -> 2;
-level_to_integer("notice") -> 3;
-level_to_integer("warning") -> 4;
-level_to_integer("warn") -> 4;
-level_to_integer("error") -> 5;
-level_to_integer("err") -> 5;
-level_to_integer("critical") -> 6;
-level_to_integer("crit") -> 6;
-level_to_integer("alert") -> 7;
-level_to_integer("emergency") -> 8;
-level_to_integer("emerg") -> 8;
-level_to_integer("none") -> 9;
-level_to_integer("1") -> 1;
-level_to_integer("2") -> 2;
-level_to_integer("3") -> 3;
-level_to_integer("4") -> 4;
-level_to_integer("5") -> 5;
-level_to_integer("6") -> 6;
-level_to_integer("7") -> 7;
-level_to_integer("8") -> 8;
-level_to_integer("9") -> 9.
-
--spec level_to_atom(atom() | string() | integer()) -> atom().
-level_to_atom(L) when is_atom(L) -> L;
-level_to_atom("1") -> debug;
-level_to_atom("debug") -> debug;
-level_to_atom("2") -> info;
-level_to_atom("info") -> info;
-level_to_atom("3") -> notice;
-level_to_atom("notice") -> notice;
-level_to_atom("4") -> warning;
-level_to_atom("warning") -> warning;
-level_to_atom("warn") -> warning;
-level_to_atom("5") -> error;
-level_to_atom("error") -> error;
-level_to_atom("err") -> error;
-level_to_atom("6") -> critical;
-level_to_atom("critical") -> critical;
-level_to_atom("crit") -> critical;
-level_to_atom("7") -> alert;
-level_to_atom("alert") -> alert;
-level_to_atom("8") -> emergency;
-level_to_atom("emergency") -> emergency;
-level_to_atom("emerg") -> emergency;
-level_to_atom("9") -> none;
-level_to_atom("none") -> none;
-level_to_atom(V) when is_integer(V) -> level_to_atom(integer_to_list(V));
-level_to_atom(V) when is_list(V) -> info.
-
-level_to_string(L) when is_atom(L) -> atom_to_list(L);
-level_to_string(L) -> atom_to_list(level_to_atom(L)).
-
-% From error_logger_file_h via lager_stdlib.erl
-string_p([]) ->
- false;
-string_p(Term) ->
- string_p1(Term).
-
-string_p1([H | T]) when is_integer(H), H >= $\s, H < 256 ->
- string_p1(T);
-string_p1([$\n | T]) ->
- string_p1(T);
-string_p1([$\r | T]) ->
- string_p1(T);
-string_p1([$\t | T]) ->
- string_p1(T);
-string_p1([$\v | T]) ->
- string_p1(T);
-string_p1([$\b | T]) ->
- string_p1(T);
-string_p1([$\f | T]) ->
- string_p1(T);
-string_p1([$\e | T]) ->
- string_p1(T);
-string_p1([H | T]) when is_list(H) ->
- case string_p1(H) of
- true -> string_p1(T);
- _ -> false
- end;
-string_p1([]) ->
- true;
-string_p1(_) ->
- false.