yogsototh/deft
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

notes/cisco_ft_securex_registration.org

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2022-02-09 11:35:16 +01:00
parent 6cccb96529
commit 5034e38f25
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notes/cisco_ft_securex_registration.org
View file

@ -335,8 +335,8 @@ Authorization: Bearer ${user-identity-jwt}
#+begin_src clojure
(s/defschema NewAccount
(st/merge
{org-name :- s/Str
country :- (apply s/enum country-iso-codes)
{:org-name :- s/Str
:country :- (apply s/enum country-iso-codes)
(st/optional-keys
{:department :- s/Str
:street1 :- s/Str
@ -348,7 +348,13 @@ Authorization: Bearer ${user-identity-jwt}
"/create-new-account" []
:summary "Given a code and some org-settings create a new account (new org and new user)"
:description "This is an internal temporary route needed to select the user/org."
:body [new-account NewAccount]
:body [{:keys [country
org-name
department
street1
street2
postal-code
city] :as new-account} NewAccount]
(let [address (iroh-core/assoc-some?
{:country-iso-code country}
:department department
@ -358,8 +364,7 @@ Authorization: Bearer ${user-identity-jwt}
:city city)
org-settings {:name org-name
:address address}]
(if-let [{:keys [origin] created-code :code}
(create-new-account code org-settings)]
(if-let [new-account (create-new-account code org-settings)]
(resp/found (url/append-query-to-url origin {:code created-code}))
(resp/unauthorized!
:login_error "Login Refused: Could not retrieve the code, maybe it was already used."))))