meissa/c4k-keycloak
6
0
Fork 0
Code Issues Pull requests Projects Releases 3 Packages Wiki Activity

mob changed keywords

Browse source
This commit is contained in:
Clemens Geibel 2021-05-28 10:00:34 +02:00
parent 9a35ea346a
commit 19e4254ad4
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/main/cljc/dda/k8s_keycloak/core.cljc
View file

@ -18,15 +18,17 @@
(not (nil? (re-matches #"(?=^.{4,253}\.?$)(^((?!-)[a-zA-Z0-9-]{1,63}(?<!-)\.)+[a-zA-Z]{2,63}\.?$)" input)))))
(s/def ::keycloak-admin-user bash-env-string?)
(s/def ::keycloak-admin-password string?)
(s/def ::keycloak-admin-password bash-env-string?)
(s/def ::postgres-db-user bash-env-string?)
(s/def ::postgres-db-password bash-env-string?)
(s/def ::fqdn fqdn-string?)
(s/def ::issuer #{:prod :staging})
(def config? (s/keys :req-un [::fqdn]
:opt-un [::issuer]))
(def auth? (s/keys :req-un [::keycloak-admin-user ::keycloak-admin-password]))
(def auth? (s/keys :req-un [::keycloak-admin-user ::keycloak-admin-password
::postgres-db-user ::postgres-db-password]))
(defn replace-all-matching-values-by-new-value
[coll value-to-match value-to-replace]
@ -45,19 +47,21 @@
(yaml/from-string (yaml/load-resource "postgres/postgres-config.yaml")))
(defn generate-deployment [my-auth]
(let [{:keys [keycloak-admin-user keycloak-admin-password]} my-auth]
(let [{:keys [postgres-db-user postgres-db-password
keycloak-admin-user keycloak-admin-password]} my-auth]
(->
(yaml/from-string (yaml/load-resource "deployment.yaml"))
(assoc-in [:spec :template :spec :containers 0 :env 0 :value] keycloak-admin-user)
(assoc-in [:spec :template :spec :containers 0 :env 1 :value] keycloak-admin-password))))
(assoc-in [:spec :template :spec :containers 0 :env 3 :value] postgres-db-user)
(assoc-in [:spec :template :spec :containers 0 :env 5 :value] postgres-db-password)
(assoc-in [:spec :template :spec :containers 0 :env 6 :value] keycloak-admin-user)
(assoc-in [:spec :template :spec :containers 0 :env 7 :value] keycloak-admin-password))))
(defn generate-postgres-deployment [my-auth]
(let [{:keys [postgres-user postgres-password postgres-db]} my-auth]
(let [{:keys [postgres-db-user postgres-db-password]} my-auth]
(->
(yaml/from-string (yaml/load-resource "postgres/postgres-deployment.yaml"))
(assoc-in [:spec :template :spec :containers 0 :env 0 :value] postgres-user)
(assoc-in [:spec :template :spec :containers 0 :env 1 :value] postgres-db)
(assoc-in [:spec :template :spec :containers 0 :env 2 :value] postgres-password))))
(assoc-in [:spec :template :spec :containers 0 :env 0 :value] postgres-db-user)
(assoc-in [:spec :template :spec :containers 0 :env 2 :value] postgres-db-password))))
(defn generate-certificate [config]
(let [{:keys [fqdn issuer]