anchor.diff:  %% @spec userOK(User, Message) -> true | false.
   %% @end
   %%--------------------------------------------------------------------
  +userOK(_User, _Message, "")                                       -> false;
   userOK(_User, {show, _SessionId, _Env, _Input}, _WUser)           -> true;
   userOK(_User, {showTimeReport, _SessionId, _Env, _Input}, _WUser) -> true;
   userOK(_User, {link, _SessionId, _Env, _Input}, _WUser)           -> true;
  
positive.code: 
  getUser(Env, Key) ->
      try
          Cookie      = default(getCookie("eSessionId", Env),
                                createCookie(Env, "", Key)),
          Binary1     = base64:decode(Cookie),
          Binary2     = decrypt(Key, Binary1),
  
negative.code:                       "supplied the wrong credentials (e.g., bad password), "
                        "or your browser doesn't understand how to supply the "
                        "credentials required."])]).
  redirect("login", Env) ->
      case proplists:get_value(script_name, Env, "/eTodo/eWeb:index") of
          "/eTodo/eWeb:" ++ Referer ->
              Redirect = getHost(Env) ++ "/eTodo/eWeb:login",
              HtmlPage = "location: " ++ Redirect ++ "\r\n\r\n",
              setCookie("eReferer", Referer, HtmlPage);
          _ ->
              Redirect = getHost(Env) ++ "/eTodo/eWeb:login",
              "location: " ++ Redirect ++ "\r\n\r\n"
      end;
  redirect(Page, Env) ->
      Redirect = getHost(Env) ++ "/eTodo/eWeb:" ++ Page,
      "location: " ++ Redirect ++ "\r\n\r\n".
  
  
  getHost(Env) ->
      HttpHost = "https://" ++ proplists:get_value(http_host, Env, ""),
  