|
|
@ -3,7 +3,7 @@
|
|
|
|
[clojure.string :as st]
|
|
|
|
[clojure.string :as st]
|
|
|
|
[clojure.tools.reader.edn :as edn]
|
|
|
|
[clojure.tools.reader.edn :as edn]
|
|
|
|
[dda.c4k-website.core :as core]
|
|
|
|
[dda.c4k-website.core :as core]
|
|
|
|
[dda.c4k-website.website :as website]
|
|
|
|
[dda.c4k-website.website :as website]
|
|
|
|
[dda.c4k-common.browser :as br]
|
|
|
|
[dda.c4k-common.browser :as br]
|
|
|
|
[dda.c4k-common.common :as cm]))
|
|
|
|
[dda.c4k-common.common :as cm]))
|
|
|
|
|
|
|
|
|
|
|
@ -31,17 +31,18 @@
|
|
|
|
(cm/concat-vec
|
|
|
|
(cm/concat-vec
|
|
|
|
(br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")
|
|
|
|
(br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")
|
|
|
|
(br/generate-text-area
|
|
|
|
(br/generate-text-area
|
|
|
|
"websites" "A map containing fqdns and repo infos for each website:"
|
|
|
|
"websites" "A collection containing fqdns and repo infos for each website:"
|
|
|
|
"[{:unique-name \"test.io \",
|
|
|
|
"{:websites
|
|
|
|
:fqdns [\"test.de \" \"www.test.de \"],
|
|
|
|
[{:unique-name \"test.io\",
|
|
|
|
:gitea-host \"githost.de \",
|
|
|
|
:fqdns [\"test.de\" \"www.test.de\"],
|
|
|
|
:gitea-repo \"repo \",
|
|
|
|
:gitea-host \"githost.de\",
|
|
|
|
:branchname \"main \"}
|
|
|
|
:gitea-repo \"repo\",
|
|
|
|
|
|
|
|
:branchname \"main\"}
|
|
|
|
{:unique-name \"example.io \",
|
|
|
|
{:unique-name \"example.io \",
|
|
|
|
:fqdns [\"example.org \" \"www.example.org \"],
|
|
|
|
:fqdns [\"example.org\" \"www.example.org\"],
|
|
|
|
:gitea-host \"githost.org \",
|
|
|
|
:gitea-host \"githost.org\",
|
|
|
|
:gitea-repo \"repo \",
|
|
|
|
:gitea-repo \"repo\",
|
|
|
|
:branchname \"main \"}]"
|
|
|
|
:branchname \"main\"}]}"
|
|
|
|
"10")))
|
|
|
|
"10")))
|
|
|
|
(generate-group
|
|
|
|
(generate-group
|
|
|
|
"credentials"
|
|
|
|
"credentials"
|
|
|
@ -74,7 +75,7 @@
|
|
|
|
{:issuer issuer}))))
|
|
|
|
{:issuer issuer}))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn validate-all! []
|
|
|
|
(defn validate-all! []
|
|
|
|
(br/validate! "websites" ::website/websites)
|
|
|
|
(br/validate! "websites" website/config? :deserializer edn/read-string)
|
|
|
|
(br/validate! "issuer" ::website/issuer :optional true)
|
|
|
|
(br/validate! "issuer" ::website/issuer :optional true)
|
|
|
|
(br/validate! "auth" website/auth? :deserializer edn/read-string)
|
|
|
|
(br/validate! "auth" website/auth? :deserializer edn/read-string)
|
|
|
|
(br/set-form-validated!))
|
|
|
|
(br/set-form-validated!))
|
|
|
|