anchor.diff:  		eap_id = EapID, session_id = SessionID,
   		secret = Secret} = StateData) ->
   	{ok, SslSocket} = ocs_eap_ttls_transport:ssl_accept(self(), []),
  +	NewStateData = StateData#statedata{ssl_socket = SslSocket},
   	EapTtls = #eap_ttls{start = true},
   	EapData = ocs_eap_codec:eap_ttls(EapTtls),
   	case radius_attributes:find(?EAPMessage, Attributes) of
  
positive.code: 					NewEapPacket = #eap_packet{code = failure, identifier = NewEapID},
  					send_response(NewEapPacket, ?AccessReject,
  							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  					{stop, {shutdown, SessionID}, StateData};
  				{'EXIT', _Reason} ->
  					NewEapPacket = #eap_packet{code = failure, identifier = EapID},
  					send_response(NewEapPacket, ?AccessReject,
  							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  					{stop, {shutdown, SessionID}, StateData}
  			end;
  		{error, not_found} ->
  			EapPacket = #eap_packet{code = request, type = ?TTLS,
  
negative.code: 		radius_fsm :: pid(),
  		radius_id :: byte(),
  		req_auth :: [byte()],
  		ssl_socket :: ssl:sslsocket(),
  		ssl_pid :: pid()}).
  
  -define(TIMEOUT, 30000).
  