anchor.diff:  
   connected(_, State) ->
       {next_state, connected, State}.
  +
  +eval_check(not_found, State = #state{ uuid = UUID}) ->
  +    lager:info("[zlogin:~s] shutting down since check failed.", [UUID]),
  +    {stop, normal, State};
  +eval_check(_, State) ->
  +    check(),
  +    {next_state, stopped, State}.
   
   %%--------------------------------------------------------------------
   %% @private
  
positive.code: 
  runpty() ->
      code:priv_dir(fifo_zlogin) ++ "/runpty".
  
  
  incinerate(Port) ->
      case erlang:port_info(Port, os_pid) of
  
negative.code:             {next_state, stopped, State}
      end;
  
  stopped(check, State = #state{uuid = UUID, type = jail}) ->
      eval_check(check_jail(UUID), State);
  
  stopped(check, State = #state{uuid = UUID}) ->
      eval_check(check_state(UUID), State);
  
  stopped({send, Data}, State = #state{uuid = UUID}) ->
      lager:info("[~s] ! < ~s", [UUID, Data]),
  