anchor.diff:  		Result :: ok | {error, Reason :: term()}.
   %% @doc Write an authorization event to disk log.
   radius_auth_log(Server, Client, Type, RequestAttributes, ResponseAttributes) ->
  -	TS = erlang:system_time(millisecond),
  +	TS = erlang:system_time(?MILLISECOND),
   	Event = {TS, node(), Server, Client, Type,
   			RequestAttributes, ResponseAttributes},
   	disk_log:log(?RADAUTH, Event).
  
positive.code: -define(RADACCT, radius_acct).
  -define(RADAUTH, radius_auth).
  
  %%----------------------------------------------------------------------
  %%  The ocs_log public API
  %%----------------------------------------------------------------------
  
negative.code: 		Result :: ok | {error, Reason :: term()}.
  %% @doc Write an accounting event to disk log.
  radius_acct_log(Server, Client, Type, Attributes) ->
  	TS = erlang:system_time(?MILLISECOND),
  	Event = {TS, node(), Server, Client, Type, Attributes},
  	disk_log:log(?RADACCT, Event).
  
  