From 116554ad7fe82bf7df08be4ee8732e306eac38f1 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 18 Dec 2025 15:03:55 -0700 Subject: [INF-18465] Create an unhealthy targetgroup report --- lisp/webapps/snow/site.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lisp/webapps/snow/site.lisp') diff --git a/lisp/webapps/snow/site.lisp b/lisp/webapps/snow/site.lisp index 868a188..d1091ad 100644 --- a/lisp/webapps/snow/site.lisp +++ b/lisp/webapps/snow/site.lisp @@ -68,6 +68,15 @@ (defmacro .asg-recycle-results-submit () `(asg-recycle-results-submit-json howmany)) +(defmacro .unhealthy-targetgroups () + `(unhealthy-targetgroups-json)) + +(defmacro .unhealthy-targetgroups-view () + `(unhealthy-targetgroups-view-json)) + +(defmacro .unhealthy-targetgroups-results () + `(unhealthy-targetgroups-results-json profile region filter)) + (defmacro .tfcloud-apply () `(tfcloud-apply-json)) @@ -137,6 +146,9 @@ (define-endpoint :get "/asg-recycle/view" () .asg-recycle-view) (define-endpoint :post "/asg-recycle/results" ((profile :parameter-type 'string) (region :parameter-type 'string) (filter :parameter-type 'string)) .asg-recycle-results) (define-endpoint :post "/asg-recycle/results/submit" ((howmany :parameter-type 'string)) .asg-recycle-results-submit) +(define-endpoint :get "/unhealthy-targetgroups" () .unhealthy-targetgroups) +(define-endpoint :get "/unhealthy-targetgroups/view" () .unhealthy-targetgroups-view) +(define-endpoint :post "/unhealthy-targetgroups/results" ((profile :parameter-type 'string) (region :parameter-type 'string) (filter :parameter-type 'string)) .unhealthy-targetgroups-results) (define-endpoint :get "/tfcloud-apply" () .tfcloud-apply) (define-endpoint :get "/tfcloud-apply/view" () .tfcloud-apply-view) (define-endpoint :post "/tfcloud-apply/results" ((filter :parameter-type 'string)) .tfcloud-apply-results) -- cgit v1.3