             "/add-word"          (process-add-word      request)
             ;"/find-words"       (process-find-words    request)
             "/add-words"         (process-add-words     request)
-            "/users"             (process-user-list     request title)
+            "/users-whitelist"   (process-user-list     request title :whitelist)
+            "/users-blacklist"   (process-user-list     request title :blacklist)
             "/user"              (process-user-info     request title)
             "/wordlist/json"     (process-wordlist-json request)
             "/wordlist/text"     (process-wordlist-text request)

    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-all-words)]
        (finish-processing request search-results nil title)))

(defn process-deleted-words
    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-deleted-words)]
        (finish-processing request search-results nil title)))

(defn process-active-words
    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-active-words)]
        (finish-processing request search-results nil title)))

(defn read-changes-statistic
    []

          message   (add-word-message word proper-word)]
          (if (and proper-word (seq word))
              (store-word word description user-name))
        (finish-processing request nil message true :unknown))) ; in zw mode every time!

(defn process-add-words
    [request]
