             [pc.models.team :as team-model]
             [pc.profile :as profile]))
 
-;; XXX: redirect for things on the protected list
 (def blacklist #{"www" "admin"})
 
 ;; starts with a letter, only contains letters, numbers, and hyphens

                (profile/hostname))
        (redirect-to-main req)
        (handler req))
      (handler (assoc req
                      :subdomain subdomain
                      :team (team-model/find-by-subdomain (pcd/default-db) subdomain))))))

(defn wrap-custom-domains [handler]
  (fn [req]

                                            :query (:query-string req)}))}
   :body ""})

(defn handle-custom-domains [handler req]
  (let [subdomain (parse-subdomain req)]
    (if-not subdomain
