code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/008-file-upload.el

   1 ;;; file-upload.el --- use an uploaded file
   2 (ws-start
   3  '(((:POST . ".*") .
   4     (lambda (request)
   5       (with-slots (process headers) request
   6         (ws-response-header process 200 '("Content-type" . "text/plain"))
   7         (let ((file (cdr (assoc "file" headers))))
   8           (process-send-string process
   9             (concat (sha1 (cdr (assoc 'content file))) "  "
  10                     (cdr (assoc 'filename file)) "\n")))))))
  11  9008)