notes/cisco_ft_securex_registration.org
This commit is contained in:
parent
6cccb96529
commit
5034e38f25
1 changed files with 10 additions and 5 deletions
|
@ -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."))))
|
||||
|
|
Loading…
Reference in a new issue