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

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