anchor.diff:  		ResultCode:: integer(),
   		Result :: ok | {error, Reason},
   		Reason :: term().
  -%% @doc Write a DIAMETER AAR event to disk log.
  +%% @doc Write a DIAMETER AAR event to authorization log.
   auth_log(Protocol, Server, Subscriber, OriginHost, OriginRealm, AuthType,
   		ResultCode) ->
   	TS = erlang:system_time(?MILLISECOND),
  
positive.code: 	when
  		Result :: ok | {error, Reason},
  		Reason :: term().
  %% @doc Open authorization log for logging events.
  auth_open() ->
  	{ok, Directory} = application:get_env(ocs, auth_log_dir),
  	case file:make_dir(Directory) of
  
negative.code: 		ResponseAttributes :: radius_attributes:attributes(),
  		Result :: ok | {error, Reason},
  		Reason :: term().
  %% @doc Write a RADIUS event to authorization log.
  auth_log(Protocol, Server, Client, Type, RequestAttributes, ResponseAttributes) ->
  	TS = erlang:system_time(?MILLISECOND),
  	Event = {TS, Protocol, node(), Server, Client, Type,
  