X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=web.lisp;h=20e27510d2a67c37764967dd29b271b141479ee6;hp=093769224ec938c3d91b3669e6250be4ec0959fc;hb=ae10588ada2b32b3c715056b32c042fd221a534d;hpb=bbb4cc9f46ce5736c875623b542db5eddc58d773

diff --git a/web.lisp b/web.lisp
index 0937692..20e2751 100644
--- a/web.lisp
+++ b/web.lisp
@@ -40,6 +40,9 @@
   "Push a javascript update fragment to the client."
   (locked-queue:enqueue *update-queue* string))
 
+(defun prompt (minutes btus)
+  (send (format nil "prompt(~a,~a);~%" minutes btus)))
+
 (defun dispatch (request)
   (let ((script-name (script-name request)))
     (cond