From 4640a2e762ef7dc5c447b501aeb5370cdef7fa0d Mon Sep 17 00:00:00 2001
From: bom <mattis.boeckle@meissa-gmbh.de>
Date: Fri, 20 Jan 2023 14:09:42 +0100
Subject: [PATCH] Use common monitoring

---
 src/main/cljs/dda/c4k_keycloak/browser.cljs | 32 +++++++++++++++++----
 1 file changed, 26 insertions(+), 6 deletions(-)

diff --git a/src/main/cljs/dda/c4k_keycloak/browser.cljs b/src/main/cljs/dda/c4k_keycloak/browser.cljs
index d90bfab..54026b2 100644
--- a/src/main/cljs/dda/c4k_keycloak/browser.cljs
+++ b/src/main/cljs/dda/c4k_keycloak/browser.cljs
@@ -1,6 +1,7 @@
 (ns dda.c4k-keycloak.browser
   (:require
    [clojure.tools.reader.edn :as edn]
+   [dda.c4k-common.monitoring :as mon]
    [dda.c4k-common.common :as cm]
    [dda.c4k-common.browser :as br]
    [dda.c4k-keycloak.core :as core]
@@ -15,11 +16,17 @@
        "domain"
        (cm/concat-vec
         (br/generate-input-field "fqdn" "Your fqdn:" "keycloak.prod.meissa.de")
-        (br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")))
+        (br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")
+        (br/generate-input-field "mon-cluster-name" "(Optional) monitoring cluster name:" "keycloak")
+        (br/generate-input-field "mon-cluster-stage" "(Optional) monitoring cluster stage:" "test")
+        (br/generate-input-field "mon-cloud-url" "(Optional) grafana cloud url:" "https://prometheus-prod-01-eu-west-0.grafana.net/api/prom/push")))
       (br/generate-group
        "credentials"
-       (br/generate-text-area "auth" "Your auth.edn:" ":keycloak-admin-user \"keycloak\"
-                                                       :keycloak-admin-password \"adminpassword\""
+       (br/generate-text-area "auth" "Your auth.edn:" 
+                              "{:keycloak-admin-user \"keycloak\"
+                                :keycloak-admin-password \"adminpassword\"}
+                                :mon-auth {:grafana-cloud-user \"your-user-id\"
+                                           :grafana-cloud-password \"your-cloud-password\"}"
                               "5"))
       [(br/generate-br)]
       (br/generate-button "generate-button" "Generate c4k yaml")))]
@@ -33,15 +40,25 @@
    (generate-content)})
 
 (defn config-from-document []
-  (let [issuer (br/get-content-from-element "issuer" :optional true)]
+  (let [issuer (br/get-content-from-element "issuer" :optional true) 
+        mon-cluster-name (br/get-content-from-element "mon-cluster-name" :optional true)
+        mon-cluster-stage (br/get-content-from-element "mon-cluster-stage" :optional true :deserializer keyword)
+        mon-cloud-url (br/get-content-from-element "mon-cloud-url" :optional true)]
     (merge
      {:fqdn (br/get-content-from-element "fqdn")}
      (when (some? issuer)
-       {:issuer issuer}))))
+       {:issuer issuer})
+     (when (some? mon-cluster-name)
+       {:mon-cfg {:cluster-name mon-cluster-name
+                  :cluster-stage (keyword mon-cluster-stage)
+                  :grafana-cloud-url mon-cloud-url}}))))
 
 (defn validate-all! []
   (br/validate! "fqdn" ::kc/fqdn)
   (br/validate! "issuer" ::kc/issuer :optional true)
+  (br/validate! "mon-cluster-name" ::mon/cluster-name :optional true)
+  (br/validate! "mon-cluster-stage" ::mon/cluster-stage :optional true :deserializer keyword)
+  (br/validate! "mon-cloud-url" ::mon/grafana-cloud-url :optional true)
   (br/validate! "auth" core/auth? :deserializer edn/read-string)
   (br/set-validated!))
 
@@ -56,11 +73,14 @@
       (.addEventListener "click"
                          #(do (validate-all!)
                               (-> (cm/generate-common
-                                   (config-from-document) 
+                                   (config-from-document)
                                    (br/get-content-from-element "auth" :deserializer edn/read-string)
                                    {}
                                    core/k8s-objects)
                                   (br/set-output!)))))
   (add-validate-listener "fqdn")
   (add-validate-listener "issuer")
+  (add-validate-listener "mon-cluster-name")
+  (add-validate-listener "mon-cluster-stage")
+  (add-validate-listener "mon-cloud-url")
   (add-validate-listener "auth"))
\ No newline at end of file