anchor.diff:  		{error, not_found} = radius_attributes:find(?ChapPassword, Attributes),
   		{error, not_found} = radius_attributes:find(?ReplyMessage, Attributes),
   		{error, not_found} = radius_attributes:find(?State, Attributes),
  -		{ok, _AcctSessionId} = radius_attributes:find(?AcctSessionId, Attributes),
  +		{ok, AcctSessionId} = radius_attributes:find(?AcctSessionId, Attributes),
   		case disk_log:log(Log, Attributes) of
   			ok ->
   				case ocs:decrement_balance(Subscriber, Usage) of
   					{ok, OverUsed} when OverUsed =< 0 ->
  -						{ok, response(Id, Authenticator, Secret, BinaryAttributes)};
  -						%io:fwrite("Send Disconnect/Request to NAS");
  +						gen_server:call(Server,
  +							{disconnect_request, Address, Port, SharedSecret, Radius});
   					{ok, Balance} ->
  -						{ok, response(Id, Authenticator, Secret, BinaryAttributes)}
  +						{ok, response(Id, Authenticator, SharedSecret, Attributes)}
   				end;
   			{error, _Reason} ->
   				{error, ignore}
  
positive.code: 
  -record(state,
  		{dir :: string(),
  		log :: disk_log:log()}).
  
  %%----------------------------------------------------------------------
  %%  The radius callbacks
  
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),
  