anchor.diff:  %%--------------------------------------------------------------------
   start_link(Port, Service, HandlerModule) when is_integer(Port), is_atom(HandlerModule) ->
       gen_server:start_link({local, ?SERVER}, ?MODULE, {Port, Service, HandlerModule}, []).
  +
  +
  +%%--------------------------------------------------------------------
  +%% Function: stop(Pid) -> ok, {error, Reason}
  +%% Description: Stops the server.
  +%%--------------------------------------------------------------------
  +stop(Pid) when is_pid(Pid) ->
  +    gen_server:call(Pid, stop).
  +
   
   %%====================================================================
   %% gen_server callbacks
  
positive.code:     receive
          refresh ->
              error_logger:info_msg("Acceptor refreshing~n"),
              ?MODULE:acceptor(ListenSocket, Service, Handler)
      after 0      -> acceptor(ListenSocket, Service, Handler)
      end.
  
negative.code: -behaviour(gen_server).
  
  %% API
  -export([start_link/3, stop/1]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  