diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-30 01:16:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
commit | 0539154c382cfdfe78d9d39d5fe0bbae2047b67d (patch) | |
tree | 284fc6d59a2a47991ec14e627fe585c3f6d80998 /module/entry-points/server.scm | |
parent | HTTP POST insertion works. (diff) | |
download | calp-0539154c382cfdfe78d9d39d5fe0bbae2047b67d.tar.gz calp-0539154c382cfdfe78d9d39d5fe0bbae2047b67d.tar.xz |
Add basic event creation from HTML.
Diffstat (limited to 'module/entry-points/server.scm')
-rw-r--r-- | module/entry-points/server.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 3356a142..f6d273ba 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -146,6 +146,9 @@ (return (build-response code: 400) (format #f "~?~%" fmt args))))) + (format (current-error-port) + "Event inserted ~a~%" (attr event 'UID)) + (return '((content-type text/plain)) "Event inserted\r\n")))) |