diff --git a/project.clj b/project.clj index 64d5f07..43cefa8 100644 --- a/project.clj +++ b/project.clj @@ -7,7 +7,8 @@ [org.clojure/core.async "0.4.500"] [datascript "1.3.9"] [org.clojure/tools.logging "1.2.4"] - [org.clojure/test.check "0.9.0"]] + [org.clojure/test.check "0.9.0"] + [djblue/portal "0.35.1"]] :plugins [[lein-cljfmt "0.5.7"]] :main ^:skip-aot library-monkey.core :target-path "target/%s" diff --git a/src/library_monkey/core.clj b/src/library_monkey/core.clj index 8e8743a..9fbd1d8 100644 --- a/src/library_monkey/core.clj +++ b/src/library_monkey/core.clj @@ -7,7 +7,7 @@ [library-monkey.console :as console] [clojure.spec.alpha :as s] [cognitect.anomalies :as anom] - [clojure.core.async :as a :refer [ (hickory.core/as-hiccup (hickory.core/parse @p))) ) diff --git a/src/library_monkey/network.clj b/src/library_monkey/network.clj index 9b3358f..16b92ad 100644 --- a/src/library_monkey/network.clj +++ b/src/library_monkey/network.clj @@ -18,6 +18,7 @@ :form-params {:name username :pwd password} :follow-redirects false})] + (tap> {:username username :response response}) (log/debug (str "auth-cookie [" username "] : [" (:status response) "]" )) (case (:status response) 302 ((comp find-auth-cookie :set-cookie :headers) response) @@ -62,7 +63,9 @@ (defn renew [cookie barcode] (let [response @(http/get "http://bibliotheques.amiens.fr/clientBookline/recherche/dossier_lecteur.asp" {:query-params {"STRCODEDOCBASE" "CAAM" + "ACT" "RENEW" "VALUE" barcode} :headers {"Cookie" cookie} :follow-redirects false})] + (tap> {:barcode barcode :response response}) response))