Revision: 3568 Author: hans URL: http://bknr.net/trac/changeset/3568

add cert-issued handler just in case U trunk/projects/bos/web/contract-handlers.lisp U trunk/projects/bos/web/webserver.lisp

Modified: trunk/projects/bos/web/contract-handlers.lisp =================================================================== --- trunk/projects/bos/web/contract-handlers.lisp 2008-07-23 07:40:34 UTC (rev 3567) +++ trunk/projects/bos/web/contract-handlers.lisp 2008-07-23 08:24:33 UTC (rev 3568) @@ -34,3 +34,14 @@ (:tr (:td "cert issued?") (:td (:princ-safe (if (contract-cert-issued contract) "yes" "no")))))))

+(defclass cert-issued-handler (object-handler) + () + (:default-initargs :class 'contract)) + +(defmethod handle-object ((handler cert-issued-handler) contract) + (with-http-response (:content-type "text/html; charset=UTF-8") + (with-http-body () + (:princ (if (and (contract-certificates-generated-p contract) + (not (contract-tree-needs-update-p))) + "READY" + "PROCESSING")))))

Modified: trunk/projects/bos/web/webserver.lisp =================================================================== --- trunk/projects/bos/web/webserver.lisp 2008-07-23 07:40:34 UTC (rev 3567) +++ trunk/projects/bos/web/webserver.lisp 2008-07-23 08:24:33 UTC (rev 3568) @@ -226,6 +226,7 @@ ("/allocation-cache" allocation-cache-handler) ("/certificate" certificate-handler) ("/cert-regen" cert-regen-handler) + ("/cert-issued" cert-issued-handler) ("/admin" admin-handler) ("/languages" languages-handler) ("/overview" image-tile-handler)