anchor.diff:  %%
   send_request(timeout, #statedata{nas_ip = NasIpAddress, nas_id = NasIdentifier,
   		subscriber = Subscriber, acct_session_id = AcctSessionId, id = Id,
  -		secret = SharedSecret} = StateData) ->
  +		secret = SharedSecret, retry_time = Retry} = StateData) ->
   	{ok, Port} = application:get_env(ocs, radius_disconnect_port),
   	Attr0 = radius_attributes:new(),
   	Attr1 = radius_attributes:add(?NasIpAddress, NasIpAddress, Attr0),
  
positive.code: 		 acct_session_id :: string(),
  		 secret :: string(),
  		 socket :: inet:socket(),
  		 retry_count = 0 :: integer(),
  		 request :: binary()}).
  
  -define(TIMEOUT, 30000).
  -define(RETRY, 5000).
  -define(ERRORLOG, radius_disconnect_error).
  
  %%----------------------------------------------------------------------
  
negative.code: 				ok ->
  					NewStateData = StateData#statedata{id = Id, socket = Socket,
  						request = DisconnectRequest},
  					{next_state, receive_response, NewStateData, Retry};
  				{error, _Reason} ->
  					{next_state, send_request, StateData, ?TIMEOUT}
  			end;
  