From a5fd76880291ea8135ee6b9a433082ed7fd11564 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 6 Jan 2026 18:56:24 -0700 Subject: [INF-18492] Automate Queue Retry and Log Streaming Retry octopus fix --- lisp/webapps/snow/site.lisp | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) (limited to 'lisp/webapps/snow/site.lisp') diff --git a/lisp/webapps/snow/site.lisp b/lisp/webapps/snow/site.lisp index d1091ad..a640e9a 100644 --- a/lisp/webapps/snow/site.lisp +++ b/lisp/webapps/snow/site.lisp @@ -132,7 +132,19 @@ `(octopus-latest-deployments-view-json)) (defmacro .octopus-latest-deployments-results () - `(octopus-latest-deployments-results-json ode_only_p)) + `(octopus-latest-deployments-results-json ode_only_p environment project)) + +(defmacro .octopus-qrs-lsrs-redeploy () + `(octopus-qrs-lsrs-redeploy-json)) + +(defmacro .octopus-qrs-lsrs-redeploy-view () + `(octopus-qrs-lsrs-redeploy-view-json)) + +(defmacro .octopus-qrs-lsrs-redeploy-results () + `(octopus-qrs-lsrs-redeploy-results-json environment)) + +(defmacro .octopus-qrs-lsrs-redeploy-results-submit () + `(octopus-qrs-lsrs-redeploy-results-submit-json)) (define-endpoint :get "/" () .base) (define-endpoint :post "/location" ((location :parameter-type 'string)) .location) @@ -167,4 +179,8 @@ (define-endpoint :post "/octopus-ode-deploy-release/results" ((project_name :parameter-type 'string) (version :parameter-type 'string) (ode_names :parameter-type 'string)) .octopus-ode-deploy-release-results) (define-endpoint :get "/octopus-latest-deployments" () .octopus-latest-deployments) (define-endpoint :get "/octopus-latest-deployments/view" () .octopus-latest-deployments-view) -(define-endpoint :post "/octopus-latest-deployments/results" ((ode_only_p :parameter-type 'string)) .octopus-latest-deployments-results) +(define-endpoint :post "/octopus-latest-deployments/results" ((ode_only_p :parameter-type 'string) (environment :parameter-type 'string) (project :parameter-type 'string)) .octopus-latest-deployments-results) +(define-endpoint :get "/octopus-qrs-lsrs-redeploy" () .octopus-qrs-lsrs-redeploy) +(define-endpoint :get "/octopus-qrs-lsrs-redeploy/view" () .octopus-qrs-lsrs-redeploy-view) +(define-endpoint :post "/octopus-qrs-lsrs-redeploy/results" ((environment :parameter-type 'string)) .octopus-qrs-lsrs-redeploy-results) +(define-endpoint :post "/octopus-qrs-lsrs-redeploy/results/submit" () .octopus-qrs-lsrs-redeploy-results-submit) -- cgit v1.3