1 ;;; file-upload.el --- use an uploaded file
2 ;; Copyright (C) 2014 Free Software Foundation, Inc.
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")))))))