package usecase

import (
	"bytes"
	"encoding/base64"
	"io"
	"strings"

	"github.com/emersion/go-message"
	"github.com/emersion/go-message/mail"
)

// maxRenderedPartBytes bounds how much of one part is returned to the browser.
// A message can legitimately be tens of megabytes; the reader pane cannot use
// that, and holding it in memory per request is how a few open tabs turn into
// an out-of-memory kill.
const maxRenderedPartBytes = 2 << 20 // 2 MiB

// maxInlineImageBytes bounds one inline image. Inline parts travel to the
// browser as data: URIs inside the JSON body, so an unbounded one would be
// held in memory here, base64-expanded on the wire and held again in the tab.
// Past this size the reader shows the alt text, which beats a stalled pane.
const maxInlineImageBytes = 2 << 20 // 2 MiB

// RenderedMessage is a message prepared for display: headers the reader shows
// and the two body flavours, already decoded from their transfer encoding.
type RenderedMessage struct {
	UID         uint32   `json:"uid"`
	Subject     string   `json:"subject"`
	From        string   `json:"from"`
	To          []string `json:"to"`
	Cc          []string `json:"cc"`
	Date        string   `json:"date"`
	Text        string   `json:"text"`
	HTML        string   `json:"html"`
	Attachments []string `json:"attachments"`
	// MessageID is the Message-ID header, so a reply can thread under this
	// message. Empty when the message has none.
	MessageID string `json:"message_id"`
	// InReplyTo is the Message-ID this message answers, so reopening a draft
	// keeps the reply threaded.
	InReplyTo string `json:"in_reply_to"`
	// Important is true when the sender asked for priority: Importance: high,
	// or X-Priority 1 or 2.
	Important bool `json:"important"`
	// InlineImages maps a part's Content-ID - without the angle brackets, the
	// way the HTML body spells it in src="cid:..." - to a self-contained
	// data: URI.
	//
	// Without this the reader had nothing to resolve cid: against, so every
	// message written by a normal mail client displayed broken images. They
	// are inlined rather than served from an endpoint so that the reader pane
	// stays a sandboxed frame with no network identity of its own.
	InlineImages map[string]string `json:"inline_images"`
}

// RenderMessage turns raw RFC 5322 bytes into what the reader pane needs.
//
// Parsing happens here rather than in the browser because this service already
// depends on a MIME library, and a second implementation in TypeScript would
// be a second set of edge cases to get wrong. A message that cannot be parsed
// still yields its raw text rather than an error - unreadable formatting beats
// an inbox that refuses to open a message.
func RenderMessage(raw []byte, uid uint32) RenderedMessage {
	out := RenderedMessage{
		UID: uid, To: []string{}, Cc: []string{},
		Attachments: []string{}, InlineImages: map[string]string{},
	}

	entity, err := message.Read(bytes.NewReader(raw))
	if err != nil {
		out.Text = string(raw)
		return out
	}

	header := mail.Header{Header: entity.Header}
	out.Subject, _ = header.Subject()
	if addrs, err := header.AddressList("From"); err == nil && len(addrs) > 0 {
		out.From = addrs[0].String()
	}
	for _, field := range []struct {
		name string
		dst  *[]string
	}{{"To", &out.To}, {"Cc", &out.Cc}} {
		if addrs, err := header.AddressList(field.name); err == nil {
			for _, a := range addrs {
				*field.dst = append(*field.dst, a.String())
			}
		}
	}
	out.MessageID = strings.TrimSpace(header.Get("Message-Id"))
	out.InReplyTo = strings.TrimSpace(header.Get("In-Reply-To"))
	out.Important = isHighPriority(header.Get("Importance"), header.Get("X-Priority"))
	// A missing Date header parses without error into the zero time, which
	// would render as the year 0001 in the reader. Left empty, the UI falls
	// back to the received timestamp it already has.
	if date, err := header.Date(); err == nil && !date.IsZero() {
		out.Date = date.UTC().Format("2006-01-02T15:04:05Z")
	}

	collectParts(entity, &out)
	return out
}

// collectParts walks the MIME tree, keeping the first text and HTML bodies and
// naming everything else as an attachment.
func collectParts(entity *message.Entity, out *RenderedMessage) {
	if multipart := entity.MultipartReader(); multipart != nil {
		for {
			part, err := multipart.NextPart()
			if err != nil {
				return
			}
			collectParts(part, out)
		}
	}

	mediaType, _, err := entity.Header.ContentType()
	if err != nil {
		mediaType = "text/plain"
	}

	disposition, dispParams, dispErr := entity.Header.ContentDisposition()
	if dispErr != nil {
		disposition = ""
	}

	// An inline image is part of the body, not a file to download: it is
	// resolved into the HTML and deliberately left out of the attachment list,
	// or every message with a logo in its signature grows a download chip.
	if isInlineImageCandidate(disposition, mediaType, entity.Header.Get("Content-ID")) {
		if collectInlineImage(entity, mediaType, out) {
			return
		}
	}

	// "inline" counts as an attachment for anything that is not an inline
	// image: a client that attaches a PDF without saying "attachment" still
	// sent a file the reader has to be able to fetch.
	if disposition == "attachment" || (disposition == "inline" && dispParams["filename"] != "") {
		name := dispParams["filename"]
		if name == "" {
			name = "attachment"
		}
		out.Attachments = append(out.Attachments, name)
		return
	}

	body, err := io.ReadAll(io.LimitReader(entity.Body, maxRenderedPartBytes))
	if err != nil {
		return
	}

	switch {
	case strings.EqualFold(mediaType, "text/plain") && out.Text == "":
		out.Text = string(body)
	case strings.EqualFold(mediaType, "text/html") && out.HTML == "":
		out.HTML = string(body)
	}
}

// isInlineImageCandidate reports whether this part is an image the body can
// reference. A Content-ID is what makes it referenceable; image/svg+xml is
// excluded because an SVG is a document that carries script, and it is the one
// image type a data: URI must never smuggle into the reader pane.
func isInlineImageCandidate(disposition, mediaType, contentID string) bool {
	if contentID == "" && disposition != "inline" {
		return false
	}
	if !strings.HasPrefix(strings.ToLower(mediaType), "image/") {
		return false
	}
	return !strings.EqualFold(mediaType, "image/svg+xml")
}

// collectInlineImage records one part as a data: URI, and reports whether it
// took ownership of the part. An image too large to inline is claimed as well:
// falling through would list it as an attachment, which is not what the sender
// meant by embedding it in the body.
func collectInlineImage(entity *message.Entity, mediaType string, out *RenderedMessage) bool {
	contentID := strings.Trim(strings.TrimSpace(entity.Header.Get("Content-ID")), "<>")
	if contentID == "" {
		return false
	}

	// One byte past the limit is read so that an oversized part is recognised
	// as oversized rather than silently truncated into a corrupt image.
	body, err := io.ReadAll(io.LimitReader(entity.Body, maxInlineImageBytes+1))
	if err != nil || len(body) > maxInlineImageBytes {
		return true
	}

	out.InlineImages[contentID] = "data:" + strings.ToLower(mediaType) + ";base64," +
		base64.StdEncoding.EncodeToString(body)
	return true
}

// ExtractAttachment walks the MIME tree and returns bytes and content-type for a named attachment.
func ExtractAttachment(entity *message.Entity, targetName string) ([]byte, string) {
	if multipart := entity.MultipartReader(); multipart != nil {
		for {
			part, err := multipart.NextPart()
			if err != nil {
				break
			}
			if data, ctype := ExtractAttachment(part, targetName); data != nil {
				return data, ctype
			}
		}
	}

	mediaType, _, _ := entity.Header.ContentType()
	disposition, params, err := entity.Header.ContentDisposition()
	name := params["filename"]
	if name == "" {
		_, paramsCT, _ := entity.Header.ContentType()
		name = paramsCT["name"]
	}

	if (err == nil && disposition == "attachment" && (targetName == "" || strings.EqualFold(name, targetName))) ||
		(targetName != "" && strings.EqualFold(name, targetName)) {
		body, err := io.ReadAll(entity.Body)
		if err == nil {
			return body, mediaType
		}
	}
	return nil, ""
}

// isHighPriority reads the two headers clients use to mark urgent mail.
// X-Priority is "1 (Highest)" or "2 (High)"; anything else, or nothing, is
// ordinary.
func isHighPriority(importance, xPriority string) bool {
	if strings.EqualFold(strings.TrimSpace(importance), "high") {
		return true
	}
	fields := strings.Fields(xPriority)
	return len(fields) > 0 && (fields[0] == "1" || fields[0] == "2")
}