{-# OPTIONS_GHC -fno-warn-unused-do-bind #-} -- ihamletFile discards do results

module Jobs.Handler.SendNotification.Qualification
  ( dispatchNotificationQualificationExpiry
  , dispatchNotificationQualificationRenewal
  ) where

import Import

import Utils.Print
import Handler.Utils
import Jobs.Handler.SendNotification.Utils

import qualified Data.ByteString.Lazy as LBS

-- import Handler.Info (FAQItem(..))
import qualified Data.CaseInsensitive as CI
import Text.Hamlet

-- import qualified Database.Esqueleto.Experimental as E
-- import qualified Database.Esqueleto.Utils as E


dispatchNotificationQualificationExpiry :: QualificationId -> Day -> UserId -> Handler ()
dispatchNotificationQualificationExpiry nQualification _nExpiry jRecipient = userMailT jRecipient $ do
  (User{..}, Qualification{..}, Entity _ QualificationUser{..}) <- liftHandler . runDB $ (,,)
    <$> getJust jRecipient
    <*> getJust nQualification
    <*> getJustBy (UniqueQualificationUser nQualification jRecipient)

  let qname = CI.original qualificationName
  $logDebugS "LMS" $ "Notify " <> tshow jRecipient <> " about expiry of qualification " <> qname
  replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
  setSubjectI $ MsgMailSubjectQualificationExpiry qname

  editNotifications <- mkEditNotifications jRecipient

  addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/qualificationExpiry.hamlet")


checkEmailOk :: a -> Bool
checkEmailOk = const True -- TODO


dispatchNotificationQualificationRenewal :: QualificationId -> UserId -> Handler ()
dispatchNotificationQualificationRenewal nQualification jRecipient = do
  (User{..}, Qualification{..}, Entity _ QualificationUser{..}) <- runDB $ (,,)
    <$> getJust jRecipient
    <*> getJust nQualification
    <*> getJustBy (UniqueQualificationUser nQualification jRecipient)
  let qname = CI.original qualificationName
      -- content = $(i18nWidgetFile "qualification/renewal")
  $logDebugS "LMS" $ "Notify " <> tshow jRecipient <> " for renewal of qualifiaction " <> qname

  let pdfMeta = applyMetas [("recipient", userDisplayName)] mempty -- TODO: add more info to interpolate here!
  pdfRenewal pdfMeta >>= \case
    Left err -> do
      let msg = "Notify " <> tshow jRecipient <> " PDF generation failed with error: " <> err
      $logErrorS "LMS" msg
      error $ unpack msg
    Right pdf | checkEmailOk userEmail -> userMailT jRecipient $ do

        replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
        setSubjectI $ MsgMailSubjectQualificationRenewal qname

        editNotifications <- mkEditNotifications jRecipient -- TODO: add to hamlet file again
        -- let msgrenewal = $(i18nHamletFile "qualification/renewal") -- :: HtmlUrlI18n (SomeMessage UniWorX) (Route UniWorX)
        -- addHtmlMarkdownAlternatives' msgrenewal
        
        now <- liftIO getCurrentTime
        encryptPDF "tomatenmarmelade" pdf >>= \case
          Left err -> do
            let msg = "Notify " <> tshow jRecipient <> "  PDF encryption failed with error: " <> err
            $logErrorS "LMS" msg
            error $ unpack msg
          Right pdffile -> do
            addPart (File { fileTitle = "Renewal Pin Letter"
                         , fileModified = now
                         , fileContent = Just $ yield $ LBS.toStrict pdffile
                         } :: PureFile)
            -- TODO: this is just a dummy to continue while i18nHamletFile usage is unclear
            addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/qualificationRenewal.hamlet")

    Right _pdf | otherwise -> do
        let _letterHead = error "TODO"
        -- makePDF "pdflatex" [] writer woptions pandoc
        error "TODO"