anchor.diff:  
   -record(state,
   		{dir :: string(),
  -		log :: disk_log:log()}).
  +		log :: disk_log:log(),
  +		acct_server :: atom() | pid()}).
   
   %%----------------------------------------------------------------------
   %%  The radius callbacks
  
positive.code: %% 	{@link //radius/radius_server. radius_server} behaviour process
  %% 	initializes.
  %%
  init(_Address, _Port) ->
  	{ok, Directory} = application:get_env(ocs, accounting_dir),
  	Log = ?LOGNAME,
  	FileName = Directory ++ "/" ++ atom_to_list(Log),
  
negative.code: 
  -spec request(Address :: inet:ip_address(), Port :: pos_integer(),
  		Packet :: binary(), State :: #state{}) ->
  	{ok, Response :: binary()} | {error, Reason :: ignore | term()}.
  %% @doc This function is called when a request is received on the port.
  %%
  request(Address, Port, Packet, #state{acct_server = Server,
  		log = Log} = _State) when is_tuple(Address) ->
  	try
  		{ok, SharedSecret} = ocs:find_client(Address),
  		Radius = radius:codec(Packet),
  		#radius{code = ?AccountingRequest, id = Id, attributes = AttributeData,
  				authenticator = Authenticator} = Radius,
  		Attributes = radius_attributes:codec(AttributeData),
  		NasIpAddressV = radius_attributes:find(?NasIpAddress, Attributes),
  		NasIdentifierV = radius_attributes:find(?NasIdentifier, Attributes),
  		InOctets = radius_attributes:find(?AcctInputOctets, Attributes),
  