From 3524904faf9e630c2502f6dc58d50eba7005d4de Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Mon, 20 Apr 2020 01:02:45 +0200
Subject: [PATCH] Add routes to check calendar events

---
 .../scala/docspell/common/Timestamp.scala     |  3 ++
 .../src/main/resources/docspell-openapi.yml   | 46 +++++++++++++++++++
 .../docspell/restserver/RestServer.scala      |  3 +-
 .../routes/CalEventCheckRoutes.scala          | 40 ++++++++++++++++
 4 files changed, 91 insertions(+), 1 deletion(-)
 create mode 100644 modules/restserver/src/main/scala/docspell/restserver/routes/CalEventCheckRoutes.scala

diff --git a/modules/common/src/main/scala/docspell/common/Timestamp.scala b/modules/common/src/main/scala/docspell/common/Timestamp.scala
index e50aac9c..f09fad20 100644
--- a/modules/common/src/main/scala/docspell/common/Timestamp.scala
+++ b/modules/common/src/main/scala/docspell/common/Timestamp.scala
@@ -50,6 +50,9 @@ object Timestamp {
   def from(zd: ZonedDateTime): Timestamp =
     Timestamp(zd.toInstant)
 
+  def atUtc(ldt: LocalDateTime): Timestamp =
+    from(ldt.atZone(UTC))
+
   implicit val encodeTimestamp: Encoder[Timestamp] =
     BaseJsonCodecs.encodeInstantEpoch.contramap(_.value)
 
diff --git a/modules/restapi/src/main/resources/docspell-openapi.yml b/modules/restapi/src/main/resources/docspell-openapi.yml
index 46981463..b6fc0529 100644
--- a/modules/restapi/src/main/resources/docspell-openapi.yml
+++ b/modules/restapi/src/main/resources/docspell-openapi.yml
@@ -1560,6 +1560,27 @@ paths:
             application/json:
               schema:
                 $ref: "#/components/schemas/BasicResult"
+  /sec/calevent/check:
+    post:
+      tags: [ Utility ]
+      summary: Check a calendar event string
+      description: |
+        For ui purposes, this route checks a calendar event string and
+        either returns the normal form or an error message.
+      security:
+        - authTokenHeader: []
+      requestBody:
+        content:
+          application/json:
+            schema:
+              $ref: "#/components/schemas/CalEventCheck"
+      responses:
+        200:
+          description: Ok
+          content:
+            application/json:
+              schema:
+                $ref: "#/components/schemas/CalEventCheckResult"
   /sec/usertask/notifydueitems:
     get:
       tags: [ Notification ]
@@ -1600,6 +1621,31 @@ paths:
 
 components:
   schemas:
+    CalEventCheckResult:
+      description: |
+        The result of checking a calendar event string.
+      required:
+        - success
+        - message
+      properties:
+        success:
+          type: boolean
+        message:
+          type: string
+        event:
+          type: string
+          format: calevent
+        next:
+          type: integer
+          format: date-time
+    CalEventCheck:
+      description: |
+        A calendar event.
+      required:
+        - event
+      properties:
+        event:
+          type: string
     NotificationSettings:
       description: |
         Settings for notifying about due items.
diff --git a/modules/restserver/src/main/scala/docspell/restserver/RestServer.scala b/modules/restserver/src/main/scala/docspell/restserver/RestServer.scala
index 778a60e0..59e08582 100644
--- a/modules/restserver/src/main/scala/docspell/restserver/RestServer.scala
+++ b/modules/restserver/src/main/scala/docspell/restserver/RestServer.scala
@@ -76,7 +76,8 @@ object RestServer {
       "email/send"              -> MailSendRoutes(restApp.backend, token),
       "email/settings"          -> MailSettingsRoutes(restApp.backend, token),
       "email/sent"              -> SentMailRoutes(restApp.backend, token),
-      "usertask/notifydueitems" -> NotifyDueItemsRoutes(restApp.backend, token)
+      "usertask/notifydueitems" -> NotifyDueItemsRoutes(restApp.backend, token),
+      "calevent/check"          -> CalEventCheckRoutes()
     )
 
   def openRoutes[F[_]: Effect](cfg: Config, restApp: RestApp[F]): HttpRoutes[F] =
diff --git a/modules/restserver/src/main/scala/docspell/restserver/routes/CalEventCheckRoutes.scala b/modules/restserver/src/main/scala/docspell/restserver/routes/CalEventCheckRoutes.scala
new file mode 100644
index 00000000..85e04b90
--- /dev/null
+++ b/modules/restserver/src/main/scala/docspell/restserver/routes/CalEventCheckRoutes.scala
@@ -0,0 +1,40 @@
+package docspell.restserver.routes
+
+import cats.effect._
+import cats.implicits._
+import org.http4s._
+import org.http4s.dsl.Http4sDsl
+import org.http4s.circe.CirceEntityEncoder._
+import org.http4s.circe.CirceEntityDecoder._
+import com.github.eikek.calev.CalEvent
+
+import docspell.common._
+import docspell.restapi.model._
+
+object CalEventCheckRoutes {
+
+  def apply[F[_]: Effect](): HttpRoutes[F] = {
+    val dsl = new Http4sDsl[F] {}
+    import dsl._
+
+    HttpRoutes.of {
+      case req @ POST -> Root =>
+        for {
+          data <- req.as[CalEventCheck]
+          res  <- testEvent(data.event)
+          resp <- Ok(res)
+        } yield resp
+    }
+  }
+
+  def testEvent[F[_]: Sync](str: String): F[CalEventCheckResult] =
+    Timestamp.current[F].map { now =>
+      CalEvent.parse(str) match {
+        case Right(ev) =>
+          val next = ev.nextElapse(now.toUtcDateTime).map(Timestamp.atUtc)
+          CalEventCheckResult(true, "Valid.", ev.some, next)
+        case Left(err) =>
+          CalEventCheckResult(false, err, None, None)
+      }
+    }
+}