anchor.diff:  		Reason :: term().
   %% @doc Close auth disk log.
   auth_close() ->
  -	case disk_log:close(?AUTHLOG) of
  -		ok ->
  -			ok;
  -		{error, Reason} ->
  -			Descr = lists:flatten(disk_log:format_error(Reason)),
  -			Trunc = lists:sublist(Descr, length(Descr) - 1),
  -			error_logger:error_report([Trunc, {module, ?MODULE},
  -					{log, ?AUTHLOG}, {error, Reason}]),
  -			{error, Reason}
  -	end.
  +	close_log(?AUTHLOG).
   
   -record(event,
   		{host :: string(),
  
positive.code: 		Reason :: term().
  %% @doc Write a DIAMETER event to accounting log.
  acct_log(diameter = Protocol, Server, Type, Request, Response) ->
  	TS = erlang:system_time(?MILLISECOND),
  	N = erlang:unique_integer([positive]),
  	Event = {TS, N, Protocol, node(), Server, Type, Request, Response},
  	disk_log:log(?ACCTLOG, Event).
  
  -spec acct_close() -> Result
  	when
  
negative.code: 		Reason :: term().
  %% @doc Write a DIAMETER event to authorization log.
  auth_log(Protocol, Server, Client, Request, Response) ->
  	Event = [Protocol, node(), Server, Client, Request, Response],
  	write_log(?AUTHLOG, Event).
  
  -spec auth_query(Continuation, Start, End, Types,
  		ReqAttrsMatch, RespAttrsMatch) -> Result
  