rpf-0.2.0: MailSpec.hs

module MailSpec where

import Data.IP
import Network.DNS.Types (Domain)
import Network.DomainAuth

----------------------------------------------------------------

data MailSpec = MailSpec {
    msPeerIP         :: IP           -- #ip
  , msMailFrom       :: Maybe Domain -- #mail_from
  , msFrom           :: Maybe Domain -- #from
  , msPRA            :: Maybe Domain -- #pra
  , msDKIMFrom       :: Maybe Domain -- #dkim_from
  , msDKFrom         :: Maybe Domain -- #domainkeys_from
  , msSPFResult      :: DAResult     -- #spf
  , msSenderIDResult :: DAResult     -- #sender_id
  , msDKIMResult     :: DAResult     -- #dkim
  , msDKResult       :: DAResult     -- #domainkeys
  , msADSPResult     :: DAResult     -- #adsp
  , msSigDKIM        :: Bool         -- #sig_dkim
  , msSigDK          :: Bool         -- #sig_domainkeys
  }

instance Show MailSpec where
    show ms = "{#ip=" ++ show (msPeerIP ms)
           ++ ",#mail_from=" ++ show (msMailFrom ms)
           ++ ",#from=" ++ show (msFrom ms)
           ++ ",#pra=" ++ show (msPRA ms)
           ++ ",#dkim_from=" ++ show (msDKIMFrom ms)
           ++ ",#domainkeys_from=" ++ show (msDKFrom ms)
           ++ ",#spf=" ++ show (msSPFResult ms)
           ++ ",#sender_id=" ++ show (msSenderIDResult ms)
           ++ ",#dkim=" ++ show (msDKIMResult ms)
           ++ ",#domainkeys=" ++ show (msDKResult ms)
--           ++ ",#adsp=" ++ show (msADSPResult ms)
           ++ ",#sig_dkim=" ++ show (msSigDKIM ms)
           ++ ",#sig_domainkyes=" ++ show (msSigDK ms)
           ++ "}"

initialMailSpec :: MailSpec
initialMailSpec = MailSpec {
    msPeerIP         = IPv4 $ read "127.0.0.1" -- xxx
  , msMailFrom       = Nothing
  , msFrom           = Nothing
  , msPRA            = Nothing
  , msDKIMFrom       = Nothing
  , msDKFrom         = Nothing
  , msSPFResult      = DANone
  , msSenderIDResult = DANone
  , msDKIMResult     = DANone
  , msDKResult       = DANone
  , msADSPResult     = DANone
  , msSigDKIM        = False
  , msSigDK          = False
  }