anchor.diff:              {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.
  -
   
   
   %%----------------------------------------------------------------------
  
positive.code:     {reply, ok, State};
  
  
  handle_call({open_trace, What}, _From, State) ->
      case State#state.tracefd of
          undefined ->
              ok;
          Fd0 ->
              file:close(Fd0)
      end,
      F = lists:concat(["trace.", What]),
      case file:open(filename:join([State#state.dir, F]),[write, raw]) of
          {ok, Fd} ->
              {reply, ok, State#state{tracefd = Fd}};
          Err ->
              {reply,  Err, State}
      end;
  
  
  handle_call({trace_tty, What}, _From, State) ->
      {reply, ok, State#state{tty_trace = What}};
  handle_call(state, _From, State) ->
      {reply, State, State};
  
  
negative.code:           running,
            dir,
            now,
            log_wrap_size = ?WRAP_LOG_SIZE,
            copy_errlog}).
  
  
  