[bknr-cvs] hans changed trunk/projects/bos/web/

[BKNR Commits]

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)