diff options
Diffstat (limited to 'lisp/webapps/snow/site.lisp')
| -rw-r--r-- | lisp/webapps/snow/site.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
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) |