anchor.diff:  			{reply, {ok, response(Id, Authenticator, Secret)}, State}
   	end;
   request1(?AccountingON, _AcctSessionId, Id,
  -		Authenticator, Secret, _NasId, _Address, _Attributes, State) ->
  +		Authenticator, Secret, _NasId, Address, Port, Attributes,
  +		#state{address = ServerAddress, port = ServerPort} = State) ->
  +	ok = ocs_log:radius_acct_log({ServerAddress, ServerPort},
  +				{Address, Port}, Attributes),
   	{reply, {ok, response(Id, Authenticator, Secret)}, State};
   request1(?AccountingOFF, _AcctSessionId, Id,
  -		Authenticator, Secret, _NasId, _Address, _Attributes, State) ->
  +		Authenticator, Secret, _NasId, Address, Port, Attributes,
  +		#state{address = ServerAddress, port = ServerPort} = State) ->
  +	ok = ocs_log:radius_acct_log({ServerAddress, ServerPort},
  +				{Address, Port}, Attributes),
   	{reply, {ok, response(Id, Authenticator, Secret)}, State};
  -request1(_AcctStatusType, _AcctSessionId, _Id,
  -		_Authenticator, _Secret, _NasId, _Address, _Attributes, State) ->
  +request1(_AcctStatusType, _AcctSessionId, _Id, _Authenticator,
  +		_Secret, _NasId, _Address, _Port, _Attributes, State) ->
   	{reply, {error, ignore}, State}.
   
   -spec response(Id :: byte(), RequestAuthenticator :: [byte()],
  
positive.code: 			In + Out
  	end,
  	{ok, UserName} = radius_attributes:find(?UserName, Attributes),
  	Subscriber = ocs:normalize(UserName),
  	case ocs:find_subscriber(Subscriber) of
  		{ok, _, _, Balance, Enabled} when Enabled == false; Balance =< Usage ->
  
negative.code: 			In + Out
  	end,
  	{ok, UserName} = radius_attributes:find(?UserName, Attributes),
  	ok = ocs_log:radius_acct_log({ServerAddress, ServerPort},
  				{Address, Port}, Attributes),
  	Subscriber = ocs:normalize(UserName),
  	case decrement_balance(Subscriber, Usage) of
  		{ok, OverUsed, false} when OverUsed =< 0 ->
  