| ;; Very simple feedback script | |||
| (lambda (entry) | |||
| (import (chicken string) | |||
| (chicken time posix) | |||
| (chicken pretty-print)) | |||
| (let* ((res (with-input-from-file "feedback" read)) | |||
| (records (if (eof-object? res) '() res))) | |||
| (with-output-to-file "feedback" | |||
| (lambda () | |||
| (pretty-print (cons (list (seconds->string) | |||
| entry) | |||
| records))))) | |||
| (list (conc "Thanks for your feedback!"))) |
Response: application/gopher-menu
| Original URL | gopher://thelambdalab.xyz/7projects/elpher/submit-feedback.scm |
|---|---|
| Content-Type | application/gopher-menu; charset=utf-8 |