diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-15 00:38:07 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-15 00:38:07 +0200 |
| commit | a90b868136e21f3af07f39eaf63439c619d73d24 (patch) | |
| tree | df24b4559b483f3641759a0ef37d969153fc9508 /module/entry-points/server.scm | |
| parent | Fix time input error after emptying. (diff) | |
| download | calp-a90b868136e21f3af07f39eaf63439c619d73d24.tar.gz calp-a90b868136e21f3af07f39eaf63439c619d73d24.tar.xz | |
HTML Generated events now come without an UID.
Diffstat (limited to 'module/entry-points/server.scm')
| -rw-r--r-- | module/entry-points/server.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 64204b9d..78950b24 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -170,6 +170,12 @@ (return (build-response code: 400) "Object not a VEVENT\r\n")) + ;; NOTE add-event uses the given UID if one is given, + ;; but generates its own if not. It might be a good idea + ;; to require that UID is unset here, and force users + ;; to use a /update endpoint to change events. This to prevent + ;; accidental overwriting. + (parameterize ((warnings-are-errors #t)) (catch 'warning (lambda () (add-event calendar event)) |