anchor.diff:  %% @see //stdlib/gen_fsm:handle_sync_event/4
   %% @private
   %%
  +handle_sync_event(diameter_request, _From, StateName,
  +		#diameter_statedata{session_id = SessId, origin_host = OHost,
  +		origin_realm = ORealm, username = UserName, password = Password} = StateData) ->
  +	case ocs:authorize(UserName, Password) of
  +		{ok, _Password, _Attr} ->
  +			Answer = #diameter_nas_app_AAA{'Session-Id' = SessId, 'Auth-Application-Id' = 1,
  +					'Auth-Request-Type' = 1, 'Result-Code' = 2001, 'Origin-Host' = OHost,
  +					'Origin-Realm' = ORealm },
  +			{reply, Answer, StateName, StateData};
  +		{error, _Reason} ->
  +			Answer = #diameter_nas_app_AAA{'Result-Code' = 4001,
  +				'Origin-Host' = OHost, 'Origin-Realm' = ORealm, 'Session-Id' = SessId},
  +			{reply, Answer, StateName, StateData}
  +	end;
   handle_sync_event(_Event, _From, StateName, StateData) ->
   	{reply, ok, StateName, StateData}.
   
  
positive.code: %% @see //stdlib/gen_fsm:init/1
  %% @private
  %%
  init([ServerAddress, ServerPort, ClientAddress, ClientPort, RadiusFsm,
  		Secret, SessionID, #radius{code = ?AccessRequest, id = ID,
  		authenticator = Authenticator, attributes = Attributes}] = _Args) ->
  
negative.code: 
  -include_lib("radius/include/radius.hrl").
  -include("ocs_eap_codec.hrl").
  -include("../include/diameter_gen_nas_application_rfc7155.hrl").
  
  -record(statedata,
  		{server_address :: inet:ip_address(),
  		server_port :: pos_integer(),
  