anchor.diff:  %% API
   -export([accesslog/6,
            setup/2,
  -         open_trace/1,
  -         trace_traffic/2,
  -         trace_tty/1,
            authlog/4,
            rotate/1,
            add_sconf/1,
  
positive.code:             {noreply,State}
      end;
  
  handle_cast({trace, from_server, Data}, State) ->
      Str = ["*** SRV -> CLI *** ", Data],
      file:write(State#state.tracefd, Str),
      tty_trace(Str, State),
      {noreply,  State};
  handle_cast({trace, from_client, Data}, State) ->
      Str = ["*** CLI -> SRV *** ", Data],
      file:write(State#state.tracefd, Str),
      tty_trace(Str, State),
      {noreply, State};
  
  handle_cast({yaws_hupped, _}, State) ->
      handle_info(minute10, State).
  
  
  tty_trace(Str, State) ->
      case State#state.tty_trace of
          false ->
              ok;
          true ->
              io:format("~s", [binary_to_list(list_to_binary([Str]))])
      end.
  
  
  
  %%----------------------------------------------------------------------
  
negative.code:     {reply, ok, State};
  
  
  handle_call(state, _From, State) ->
      {reply, State, State};
  
  