anchor.diff:  login(State=#state{access=Access}, {Username, Password}) ->
       case ioriol_access:authenticate(Access, Username, Password) of
           {ok, Session} ->
  -            lager:info("login ~p ok", [Username]),
  +            lager:debug("login ~p ok", [Username]),
               {ok, State#state{username=to_binary(Username), session=Session}};
           {error, Reason} ->
               lager:warning("login ~p failed: ~p", [Username, Reason]),
  
positive.code:                       ok ->
                            % TODO
                            QosVal = ?QOS_0,
                            lager:info("Subscribe ~p ~p", [TopicName, Qos]),
                            iorio:subscribe(Bucket, Stream, self()),
                            {[QosVal|QosList], OState};
                        {error, Reason} ->
  
negative.code:     {ok, NewState}.
  
  timeout(State=#state{}, InactiveMs) ->
      lager:debug("session was inactive for ~p ms", [InactiveMs]),
      {ok, State}.
  
  info(State=#state{}, Entry={entry, _Bucket, _Stream, #sblob_entry{}}) ->
  