anchor.diff:  			ok = ocs_log:auth_log(radius, {ServerAddress, ServerPort},
   					{ClientAddress, ClientPort}, reject,
   					RequestAttributes, AttrList3);
  -		?AccessChallenge ->
  +		_ ->
   			ok
   	end,
   	radius:response(RadiusFsm, {response, ResponsePacket}).
   
  --spec send_diameter_response(SId, AuthType, ResultCode, OH, OR,
  -		EapPacket, PortServer, Request, StateData) -> ok
  +-spec send_diameter_response(SId, AuthType, ResultCode,
  +		OriginHost, OriginRealm, EapPacket, PortServer,
  +		Request, StateData) -> ok
   	when
   		SId :: string(),
   		AuthType :: integer(),
   		ResultCode :: integer(),
  -		OH :: binary(),
  -		OR :: binary(),
  +		OriginHost :: binary(),
  +		OriginRealm :: binary(),
   		EapPacket :: none | #eap_packet{},
   		PortServer :: pid(),
   		Request :: #diameter_eap_app_DER{},
  
positive.code: %% @doc Log DIAMETER event and send appropriate DIAMETER answer to
  %% 	ocs_diameter_auth_port_server.
  %% @hidden
  send_diameter_response(SId, AuthType, ResultCode, OH, OR, none,
  		PortServer, Request, #statedata{server_address = ServerAddress,
  		server_port = ServerPort, client_address = ClientAddress,
  		client_port = ClientPort} = _StateData) ->
  	Server = {ServerAddress, ServerPort},
  	Client= {ClientAddress, ClientPort},
  	Answer = #diameter_eap_app_DEA{'Session-Id' = SId,
  			'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  			'Auth-Request-Type' = AuthType,
  			'Result-Code' = ResultCode, 'Origin-Host' = OH, 'Origin-Realm' = OR},
  	ok = ocs_log:auth_log(diameter, Server, Client, Request, Answer),
  	gen_server:cast(PortServer, {self(), Answer});
  send_diameter_response(SId, AuthType, ResultCode, OH, OR, EapPacket,
  		PortServer, Request, #statedata{server_address = ServerAddress,
  		server_port = ServerPort, client_address = ClientAddress,
  		client_port = ClientPort} = _StateData) ->
  	Server = {ServerAddress, ServerPort},
  	Client= {ClientAddress, ClientPort},
  	try
  
negative.code: 					'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  					'Auth-Request-Type' = AuthType,
  					'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY',
  					'Origin-Host' = OriginHost,
  					'Origin-Realm' = OriginRealm},
  			ok = ocs_log:auth_log(diameter, Server, Client, Request, Answer1),
  			gen_server:cast(PortServer, {self(), Answer1})
  	end.
  