Prepare sending mail

modules/restserver/src/main/scala/docspell/restserver/RestServer.scala

@@ -70,6 +70,7 @@ object RestServer {
       "attachment"     -> AttachmentRoutes(restApp.backend, token),
       "upload"         -> UploadRoutes.secured(restApp.backend, cfg, token),
       "checkfile"      -> CheckFileRoutes.secured(restApp.backend, token),
+      "email/send"     -> MailSendRoutes(restApp.backend, token),
       "email/settings" -> MailSettingsRoutes(restApp.backend, token)
     )
 

modules/restserver/src/main/scala/docspell/restserver/routes/MailSendRoutes.scala

@@ -0,0 +1,52 @@
+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 docspell.backend.BackendApp
+import docspell.backend.auth.AuthToken
+import docspell.backend.ops.OMail.{AttachSelection, ItemMail}
+import docspell.backend.ops.SendResult
+import docspell.common._
+import docspell.restapi.model._
+import docspell.store.EmilUtil
+
+object MailSendRoutes {
+
+  def apply[F[_]: Effect](backend: BackendApp[F], user: AuthToken): HttpRoutes[F] = {
+    val dsl = new Http4sDsl[F] {}
+    import dsl._
+
+    HttpRoutes.of {
+      case req @ POST -> Root / Ident(name) / Ident(id) =>
+        for {
+          in <- req.as[SimpleMail]
+          mail = convertIn(id, in)
+          res <- mail.traverse(m => backend.mail.sendMail(user.account, name, m))
+          resp <- res.fold(
+            err => Ok(BasicResult(false, s"Invalid mail data: $err")),
+            res => Ok(convertOut(res))
+          )
+        } yield resp
+    }
+  }
+
+  def convertIn(item: Ident, s: SimpleMail): Either[String, ItemMail] =
+    for {
+      rec     <- s.recipients.traverse(EmilUtil.readMailAddress)
+      fileIds <- s.attachmentIds.traverse(Ident.fromString)
+      sel = if (s.addAllAttachments) AttachSelection.All else AttachSelection.Selected(fileIds)
+    } yield ItemMail(item, s.subject, rec, s.body, sel)
+
+  def convertOut(res: SendResult): BasicResult =
+    res match {
+      case SendResult.Success(_) =>
+        BasicResult(true, "Mail sent.")
+      case SendResult.Failure(ex) =>
+        BasicResult(false, s"Mail sending failed: ${ex.getMessage}")
+    }
+}