module Network.Email.Header.Read
(
field
, structuredField
, date
, from
, sender
, replyTo
, to
, cc
, bcc
, messageID
, inReplyTo
, references
, subject
, comments
, keywords
, resentDate
, resentFrom
, resentSender
, resentTo
, resentCc
, resentBcc
, resentMessageID
, mimeVersion
, contentType
, contentTransferEncoding
, contentID
) where
import Control.Applicative
import Data.Attoparsec.Combinator
import Data.Attoparsec.Lazy
import qualified Data.ByteString as B
import Data.CaseInsensitive (CI)
import qualified Data.Text.Lazy as L
import Data.Time.LocalTime
import qualified Network.Email.Header.Parser as P
import Network.Email.Header.Types
field :: HeaderName -> Parser a -> Headers -> Maybe a
field k p hs = do
body <- lookup k hs
maybeResult $ parse p body
structuredField :: HeaderName -> Parser a -> Headers -> Maybe a
structuredField k p = field k (P.cfws *> p <* endOfInput)
date :: Headers -> Maybe ZonedTime
date = structuredField "Date" P.dateTime
from :: Headers -> Maybe [Mailbox]
from = structuredField "From" P.mailboxList
sender :: Headers -> Maybe Mailbox
sender = structuredField "Sender" P.mailbox
replyTo :: Headers -> Maybe [Recipient]
replyTo = structuredField "Reply-To" P.recipientList
to :: Headers -> Maybe [Recipient]
to = structuredField "To" P.recipientList
cc :: Headers -> Maybe [Recipient]
cc = structuredField "Cc" P.recipientList
bcc :: Headers -> Maybe (Maybe [Recipient])
bcc = structuredField "Bcc" (optional P.recipientList)
messageID :: Headers -> Maybe MessageID
messageID = structuredField "Message-ID" P.messageID
inReplyTo :: Headers -> Maybe [MessageID]
inReplyTo = structuredField "In-Reply-To" (many1 P.messageID)
references :: Headers -> Maybe [MessageID]
references = structuredField "References" (many1 P.messageID)
subject :: Headers -> Maybe L.Text
subject = field "Subject" P.unstructured
comments :: Headers -> Maybe L.Text
comments = field "Comments" P.unstructured
keywords :: Headers -> Maybe [L.Text]
keywords = structuredField "Keywords" P.phraseList
resentDate :: Headers -> Maybe ZonedTime
resentDate = structuredField "Resent-Date" P.dateTime
resentFrom :: Headers -> Maybe [Mailbox]
resentFrom = structuredField "Resent-From" P.mailboxList
resentSender :: Headers -> Maybe Mailbox
resentSender = structuredField "Resent-Sender" P.mailbox
resentTo :: Headers -> Maybe [Recipient]
resentTo = structuredField "Resent-To" P.recipientList
resentCc :: Headers -> Maybe [Recipient]
resentCc = structuredField "Resent-Cc" P.recipientList
resentBcc :: Headers -> Maybe (Maybe [Recipient])
resentBcc = structuredField "Resent-Bcc" (optional P.recipientList)
resentMessageID :: Headers -> Maybe MessageID
resentMessageID = structuredField "Resent-Message-ID" P.messageID
mimeVersion :: Headers -> Maybe (Int, Int)
mimeVersion = structuredField "MIME-Version" P.mimeVersion
contentType :: Headers -> Maybe (MimeType, Parameters)
contentType = structuredField "Content-Type" P.contentType
contentTransferEncoding :: Headers -> Maybe (CI B.ByteString)
contentTransferEncoding =
structuredField "Content-Transfer-Encoding" P.contentTransferEncoding
contentID :: Headers -> Maybe MessageID
contentID = structuredField "Content-ID" P.messageID