anchor.diff:  			{stop, {shutdown, SessionID}, StateData}
   	end;
   request(timeout, #statedata{protocol = diameter, session_id = SessionID,
  -		server_address = ServerAddress, server_port = ServerPort, subscriber = Subscriber,
  -		password = Password, app_id = AppId, auth_request_type = Type,
  -		origin_host = OHost, origin_realm = ORealm, diameter_port_server = PortServer
  -		} = StateData) ->
  +		server_address = ServerAddress, server_port = ServerPort,
  +		subscriber = Subscriber, password = Password, app_id = AppId,
  +		auth_request_type = Type, origin_host = OHost, origin_realm = ORealm,
  +		diameter_port_server = PortServer, client_address = ClientAddress,
  +		client_port = ClientPort, request = Request} = StateData) ->
   	Server = {ServerAddress, ServerPort},
  +	Client= {ClientAddress, ClientPort},
   	case ocs:authorize(Subscriber, Password) of
   		{ok, _Password, _Attr} ->
   			Answer = #diameter_nas_app_AAA{'Session-Id' = SessionID,
   					'Auth-Application-Id' = AppId, 'Auth-Request-Type' = Type,
   					'Origin-Host' = OHost, 'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
   					'Origin-Realm' = ORealm },
  -			ok = ocs_log:auth_log(diameter, Server, Subscriber, OHost, ORealm, Type,
  -					?'DIAMETER_BASE_RESULT-CODE_SUCCESS'),
  +			ok = ocs_log:auth_log(diameter, Server, Client, Request, Answer),
   			gen_server:cast(PortServer, {self(), Answer}),
   			{stop, {shutdown, SessionID}, StateData};
   		{error, _Reason} ->
  
positive.code: 					'Origin-Host' = OHost,
  					'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_AUTHENTICATION_REJECTED',
  					'Origin-Realm' = ORealm },
  			ok = ocs_log:auth_log(diameter, Server, Subscriber, OHost, ORealm, Type,
  					?'DIAMETER_BASE_RESULT-CODE_AUTHENTICATION_REJECTED'),
  			gen_server:cast(PortServer, {self(), Answer}),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  
negative.code: 					origin_realm = ORealm, subscriber = Subscriber, password = Password,
  					server_address = ServerAddress, server_port = ServerPort,
  					client_address = ClientAddress, client_port = ClientPort,
  					diameter_port_server = PortServer, request = Request},
  			{ok, request, StateData, 0}
  	end;
  init([radius, ServerAddress, ServerPort, ClientAddress, ClientPort, RadiusFsm,
  