jaggar/iac-cljs-configs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Swap to config impl w/ exec-fn

Browse Source
This commit is contained in:
GigiaJ
2025-10-07 22:23:48 -05:00
parent bffc01c5ea
commit d591aa3718
1 changed files with 37 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
iac/src/main/infra/dns.cljs
View File

@@ -18,12 +18,12 @@
(defn- get-node-ips []
(str "kubectl get nodes -o jsonpath='{range .items[*]}{.status.addresses[?(@.type==\"ExternalIP\")].address}{\"\\n\"}{end}'"))
(defn setup-dns [cfg vault-provider]
(defn setup-dns [{:keys [vault-provider pulumi-cfg]}]
(let [get-node-ips (local/Command.
"get-node-ips"
(clj->js {:create (get-node-ips)
:environment {:KUBECONFIG "./kubeconfig.yaml"}}))
token (.requireSecret cfg "apiToken")
token (.requireSecret pulumi-cfg "apiToken")
cloudflare-provider (new cloudflare/Provider "cloudflare-provider"
(clj->js {:apiToken token}))
service-name "dns"
@@ -35,27 +35,35 @@
:dependsOn initialize}))
node-ips-output (.-stdout get-node-ips)]
node-ips-output (.-stdout get-node-ips)]
(.apply node-ips-output
(fn [command-output]
(let [node-ips (-> command-output
str/split-lines
(->> (map #(first (str/split % #" ")))
(filter seq)))]
(.then dns-configs-secret
(fn [secret-data]
(let [hostname-to-zone (-> (.-data secret-data)
(js->clj :keywordize-keys true))]
(vec
(for [[hostname zone-id] hostname-to-zone
[index ip] (map-indexed vector node-ips)
:when (and hostname zone-id ip)]
(new cloudflare/DnsRecord
(str "dns-" (name hostname) "-node-" index)
(clj->js {:zoneId zone-id
:name hostname
:content ip
:type (get-record-type ip)
:ttl 300})
(clj->js {:provider cloudflare-provider}))))))))))))
(def config
{:stack [:execute]
:app-name "dns"
:app-namespace "dns"
:exec-fn setup-dns})
(.apply node-ips-output
(fn [command-output]
(let [node-ips (-> command-output
str/split-lines
(->> (map #(first (str/split % #" ")))
(filter seq)))]
(.then dns-configs-secret
(fn [secret-data]
(let [hostname-to-zone (-> (.-data secret-data)
(js->clj :keywordize-keys true))]
(vec
(for [[hostname zone-id] hostname-to-zone
[index ip] (map-indexed vector node-ips)
:when (and hostname zone-id ip)]
(new cloudflare/DnsRecord
(str "dns-" (name hostname) "-node-" index)
(clj->js {:zoneId zone-id
:name hostname
:content ip
:type (get-record-type ip)
:ttl 300})
(clj->js {:provider cloudflare-provider}))))))))))))