anchor.diff:  
   -type state() :: #state{}.
   -type capabilities() :: #diameter_caps{}.
  +
  +-define(NAS_APPLICATION_ID, 1).
  +-define(EAP_APPLICATION_ID, 5).
   
   %%----------------------------------------------------------------------
   %%  The ocs_diameter_auth_port_server API
  
positive.code: 		_Address, _Port, _PasswordReq, OHost, ORealm,
  		_DHost, _DRealm, _Request, _CbProc, State) ->
  	Answer = #diameter_nas_app_AAA{'Session-Id' = SessionId,
  			'Auth-Application-Id' = 1, 'Auth-Request-Type' = AuthRequestType,
  			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Origin-Host' = OHost, 'Origin-Realm' = ORealm },
  	{reply, Answer, State};
  
negative.code: 						type = ?Identity, identifier = EapId, data = <<>>},
  				NewEapMessage = ocs_eap_codec:eap_packet(NewEapPacket),
  				NewRequest = Request#diameter_eap_app_DER{'EAP-Payload' = NewEapMessage},
  				start_fsm(Sup, Address, Port, ?EAP_APPLICATION_ID, PasswordReq,
  						SessionId, AuthRequestType, OHost, ORealm, DHost, DRealm,
  						[], CbProc, NewRequest, State);
  			{error, none} ->
  				NewEapPacket = #eap_packet{code = failure, identifier = EapId},
  				NewEapMessage = ocs_eap_codec:eap_packet(NewEapPacket),
  				Answer = #diameter_eap_app_DEA{'Session-Id' = SessionId,
  						'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  						'Auth-Request-Type' = AuthRequestType,
  						'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY',
  						'Origin-Host' = OHost, 'Origin-Realm' = ORealm,
  						'EAP-Payload' = [NewEapMessage]},
  