anchor.diff:          {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}) ->
  
positive.code: %%--------------------------------------------------------------------
  handle_call(getPort, _From, State = #state{port = Port}) ->
      {reply, Port, State};
  
  handle_call({login, _SessionId, _Env, _Input}, _From,
              State = #state{user = User}) ->
  
negative.code:     mod_esi:deliver(SessionId, HtmlPage).
  
  link(SessionId, Env, Input) ->
      FileData = gen_server:call(?MODULE, {link, SessionId, Env, Input}),
      mod_esi:deliver(SessionId, FileData).
  
  login(SessionId, Env, Input) ->
  