       {:status 400})))
 
 (defn handle-get [request]
+  (wc/connect!)
   (if-let [url (-> request
                    (get-in [:params :url])
                    (get-entry)

    {:status 404}))

(defn list-all [request]
  {:status 200
   :body (html [:body
                [:ul

         (merge-urls))))

(defn handle-post [request]
  (wc/connect!)
  (let [body    (:body request)
        url     (body "url")
        channel (body "channel")
