anchor.diff:      mod_esi:deliver(SessionId, HtmlPage).
   
   link(SessionId, Env, Input) ->
  -    FileData = call({link, SessionId, Env, Input}),
  +    FileData = gen_server:call(?MODULE, {link, SessionId, Env, Input}),
       mod_esi:deliver(SessionId, FileData).
   
   login(SessionId, Env, Input) ->
  
positive.code:         {notConnected, State3} ->
              {reply, unAuthorized(State3#state.user), State3}
      end;
  
  handle_call({link, _SessionId, _Env, Input}, _From, State) ->
      Dict       = makeDict(Input),
      {ok, File} = find("filename",  Dict),
      {ok, Ref}  = find("reference", Dict),
      FileName   = filename:join([getRootDir(), "www", "linkedFiles",
                                  Ref ++ "_" ++ File]),
  
      FileData =
          case file:read_file(FileName) of
              {ok, Bin} ->
                  ["Content-Type: application/octet-stream\r\n"
                   "Content-Disposition: attachment; filename=", File,
                   "\r\n\r\n", zlib:gunzip(Bin)];
              Error ->
                  Error
          end,
      {reply, FileData, State};
  
  handle_call({listsTodos, SessionId, _Env, Input}, _From,
              State = #state{user = User, status = SList}) ->
  
negative.code: %%--------------------------------------------------------------------
  handle_call(getPort, _From, State = #state{port = Port}) ->
      {reply, Port, State};
  
  handle_call({link, _SessionId, _Env, Input}, _From, State) ->
      Dict       = makeDict(Input),
      {ok, File} = find("filename",  Dict),
      {ok, Ref}  = find("reference", Dict),
      FileName   = filename:join([getRootDir(), "www", "linkedFiles",
              Ref ++ "_" ++ File]),
  
      FileData =
          case file:read_file(FileName) of
              {ok, Bin} ->
                  MimeType    = mime_type(FileName),
                  Disposition = getDisposition(MimeType, File),
                  ["Content-Type: ", MimeType,
                      "\r\nContent-Disposition: ", Disposition,
                      "\r\n\r\n", zlib:gunzip(Bin)];
              Error ->
                  Error
          end,
      {reply, FileData, State};
  
  handle_call({login, _SessionId, _Env, _Input}, _From,
              State = #state{user = User}) ->
  