Add timeout exception

2019-10-10 21:32:51 +02:00
parent 058230c9d3
commit 28dac9ad47
1 changed files with 6 additions and 2 deletions
--- a/src/wordpress_used/core.clj
+++ b/src/wordpress_used/core.clj
@@ -15,8 +15,12 @@
 (defn wordpress?
  "Check if a web page is generated with WordPress"
  [url]
+  (try
    (let [response (client/get (str "http://" url "/") {:ignore-unknown-host? true, :connection-timeout 5000, :throw-exceptions false})]
-    (every? identity [(re-find (re-pattern "meta.*generator.*WordPress") (:body response))])))
+      (every? identity [(re-find (re-pattern "meta.*generator.*WordPress") (:body response))]))
+    (catch Exception e
+      "timeout"
+      )))

 (defn -main
  [& args]