(define-sxml-page (regexp "/assets/.+/THUMBNAIL") (lambda (path) (let* ((paths (string-split path "/")) (asset_id (second paths)) ) (let-values (((filename mime_type) (SELECT filename, mime_type from table where asset_id = @asset_id AND type=thumbnail))) (awful-response-headers '((content-type ,mime_type)))) (flush-headers) (sendfile (current-response-port) (contents-of filename)) ) )))