anchor.diff:  			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 ocs:find_subscriber(Subscriber) of
   		{ok, _, _, Balance, Enabled} when Enabled == false; Balance =< Usage ->
  
positive.code: 			{reply, {ok, response(Id, Authenticator, Secret)}, State}
  	end;
  request1(?AccountingInterimUpdate, AcctSessionId, Id,
  		Authenticator, Secret, NasId, Address, Attributes, State) ->
  	InOctets = radius_attributes:find(?AcctInputOctets, Attributes),
  	OutOctets = radius_attributes:find(?AcctOutputOctets, Attributes),
  	Usage = case {InOctets, OutOctets} of
  
negative.code: 			{reply, {ok, response(Id, Authenticator, Secret)}, State}
  	end;
  request1(?AccountingON, _AcctSessionId, Id,
  		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, 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, _Port, _Attributes, State) ->
  	{reply, {error, ignore}, State}.
  
  -spec response(Id :: byte(), RequestAuthenticator :: [byte()],
  