anchor.diff:  init([AccessFileName]) ->
     error_logger:info_msg("~p starting~n", [?MODULE]),
     {ok, AccessFile} = file:open(AccessFileName, [append]),
  -  {ok, #lstate{access_filename = AccessFileName,
  +  {ok, #lstate{access_file_name = AccessFileName,
                  access_file = AccessFile}}.
   
   %%--------------------------------------------------------------------
  
positive.code: %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  handle_cast({log, Request}, State) ->
    case State#lstate.access_filename of
      undefined -> ok;
      _AccessFilename -> log(Request, State)
    end,
    {noreply, State};
  handle_cast(_Msg, State) -> {noreply, State}.
  
  handle_info(Msg, State) ->
    error_logger:error_msg("Unexpected message: ~p~n", [Msg]),
  
negative.code: -behaviour(gen_server).
  
  %% api
  -export([start_link/1, start/1, log/1, reopen/0]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  