anchor.diff:  			EapPacket2 = #eap_packet{code = failure, identifier = EapID},
   			send_diameter_response(SessionID, AuthType,
   					?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY', OH, OR,
  -					EapPacket2, PortServer),
  +					EapPacket2, PortServer, Request, StateData),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
   
  
positive.code: 
  %% @hidden
  send_diameter_response(SId, AuthType, ResultCode, OH, OR, EapPacket,
  		PortServer) ->
  	try
  		EapData = ocs_eap_codec:eap_packet(EapPacket),
  		Answer = #diameter_eap_app_DEA{'Session-Id' = SId, 'Auth-Application-Id' = 5,
  				'Auth-Request-Type' = AuthType, 'Result-Code' = ResultCode,
  				'Origin-Host' = OH, 'Origin-Realm' = OR, 'EAP-Payload' = [EapData]},
  		gen_server:cast(PortServer, {self(), Answer})
  	catch
  		_:_ ->
  
negative.code: 				'Auth-Request-Type' = AuthType,
  				'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY',
  				'Origin-Host' = OH, 'Origin-Realm' = OR},
  		ok = ocs_log:auth_log(diameter, Server, Client, Request, Answer1),
  		gen_server:cast(PortServer, {self(), Answer1})
  	end.
  
  