Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging

Public Class EmailService
    Inherits BaseService

    Private ReadOnly EmailModel As EmailModel
    Private ReadOnly EmailTemplate As EmailTemplate

    Public Sub New(pState As State)
        MyBase.New(pState)

        EmailModel = New EmailModel(pState)
        EmailTemplate = New EmailTemplate(pState)
    End Sub

    Public Function SendEnvelopeDeletedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageDeletionSent) With
        {
            .SignatureLink = ""
        }

        EmailTemplate.FillEnvelopeDeletedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function

    Public Function SendDocumentReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageInvitationSent) With
        {
            .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
        }

        EmailTemplate.FillDocumentReceivedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function

    Public Function SendDocumentAccessCodeReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean

        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageAccessCodeSent) With
        {
            .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
        }

        EmailTemplate.FillDocumentAccessCodeReceivedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function

    Public Function SendSignedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageConfirmationSent) With
        {
            .SignatureLink = ""
        }

        EmailTemplate.FillDocumentSignedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function

    Public Function SendDocumentCompletedEmailToReceiver(pEnvelope As Envelope, pReceiver As EnvelopeReceiver, pAttachment As String) As Boolean
        Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageCompletionSent) With
        {
            .SignatureLink = "",
            .EmailAttachment = pAttachment
        }

        Logger.Debug("Sending mail to receiver: [{0}]", oEmailData.EmailAdress)

        EmailTemplate.FillDocumentCompletedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function

    Public Function SendDocumentCompletedEmailToCreator(pEnvelope As Envelope, pAttachment As String) As Boolean
        Dim oEmailData = New EmailData(pEnvelope, Constants.EnvelopeStatus.MessageCompletionSent) With
        {
            .SignatureLink = "",
            .EmailAttachment = pAttachment
        }

        EmailTemplate.FillDocumentCompletedEmailBody(oEmailData)

        If EmailModel.Insert(oEmailData) = False Then
            Logger.Error("EMail data could not be inserted.")
            Return False
        End If

        Return True
    End Function


End Class