anchor.diff:  %%----------------------------------------------------------------------
   %%  internal functions
   %%----------------------------------------------------------------------
  -client_hello(Socket, Address, Port, RadId, EapId, Secret, NasId,
  +client_hello(Socket, Address, Port, ReqAuth, RadId, EapId, Secret, NasId,
   			MAC, AnonymousName, Data) ->
   	TtlsData = iolist_to_binary(Data),
   	Ttls = ocs_eap_codec:eap_ttls(#eap_ttls{version = 1,data = TtlsData}),
  
positive.code: 			identifier = EapId, data = Ttls},
  	EapMsg = ocs_eap_codec:eap_packet(EapRecord),
  	EapMessages = eap_fragment(EapMsg, []),
  	access_request(Socket, Address, Port,
  			NasId, AnonymousName, Secret, MAC, RadId, EapMessages).
  
  eap_fragment(<<Chunk:253/binary, Rest/binary>>, RadiusAttributes) ->
  	AttributList = radius_attributes:add(?EAPMessage, Chunk,
  
negative.code: 	radius_attributes:add(?EAPMessage, Chunk,
  			RadiusAttributes).
  
  access_request(Socket, Address, Port, NasId,
  		UserName, Secret, MAC, ReqAuth,  RadId, RadiusAttributes) ->
  	A1 = radius_attributes:add(?FramedMtu, 65536, RadiusAttributes),
  	A2 = radius_attributes:add(?UserName, UserName, A1),
  	A3 = radius_attributes:add(?NasPort, 0, A2),
  