Skip to content
This repository was archived by the owner on Apr 28, 2023. It is now read-only.

Commit

Permalink
Small renaming
Browse files Browse the repository at this point in the history
  • Loading branch information
Charlynux committed Feb 3, 2018
1 parent db46e30 commit 4524be0
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/playground.clj
Original file line number Diff line number Diff line change
Expand Up @@ -7,16 +7,17 @@
(first)))


(defn auth-cookie [name password]
(defn auth-cookie [username password]
(let [response
@(http/post "http://bibliotheques.amiens.fr/CDA/pages/logon.aspx?INSTANCE=EXPLOITATION"
{
:form-params {
:name name
:name username
:pwd password
}
:follow-redirects false
})]
;;; Success = 302...
((comp find-auth :set-cookie :headers) response)))

(defn get-borrowings [cookie]
Expand Down

0 comments on commit 4524be0

Please sign in to comment.