spin until timeout added by andyjpb on Sun Apr 29 20:42:17 2012

(define-page (regexp "/files/[^/]+/[^/]+")
 (lambda (path) (lambda ()
  (let* ((paths (string-split path "/"))
         (asset_id (second paths))
         (type     (third paths)))
(parameterize ((root-path "/home/local/andyjpb/"))
                  (send-static-file "card-reader"))
    ;(send-image "select * from v_images where asset_id = @asset_id and type = @type;" asset_id type)
    "")) no-template: #t))