blob: affea405f623935000680052474809e0ebaf8aef [file] [log] [blame]
% 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
% 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.
%% couch_log interface
-export([debug/2, info/2, notice/2, warning/2, error/2, critical/2, alert/2, emergency/2]).
%% native twig interface
-export([log/2, log/3, log/4, set_level/1]).
debug(Fmt, Args) ->
log(debug, Fmt, Args).
info(Fmt, Args) ->
log(info, Fmt, Args).
notice(Fmt, Args) ->
log(notice, Fmt, Args).
warning(Fmt, Args) ->
log(warning, Fmt, Args).
error(Fmt, Args) ->
log(error, Fmt, Args).
critical(Fmt, Args) ->
log(crit, Fmt, Args).
alert(Fmt, Args) ->
log(alert, Fmt, Args).
emergency(Fmt, Args) ->
log(emerg, Fmt, Args).
set_level(LevelAtom) ->
application:set_env(twig, level, twig_util:level(LevelAtom)).
log(LevelAtom, String) ->
log(LevelAtom, String, [], []).
log(LevelAtom, Format, Data) ->
log(LevelAtom, Format, Data, []).
log(LevelAtom, Format, Data, Options) ->
%% TODO do something useful with options
Level = twig_util:level(LevelAtom),
Facility = get_facility(Options),
case application:get_env(twig, level) of
{ok, Threshold} when Level =< Threshold ->
send_message(Level, Facility, Format, Data);
undefined when Level =< ?LEVEL_INFO ->
send_message(Level, Facility, Format, Data);
_ ->
%% internal
send_message(Level, Facility, Format, Data) ->
gen_event:sync_notify(error_logger, format(Level, Facility, Format, Data)).
format(Level, Facility, Format, Data) ->
%% TODO truncate large messages
level = Level,
facility = Facility,
msg = iolist_to_binary(twig_util:format(Format, Data)),
msgid = erlang:get(nonce),
pid = self()
get_facility(Options) ->
case proplists:get_value(facility, Options) of
undefined ->
Facility ->