package sisyphus

import (
	"bufio"
	"errors"
	"log"
	"math"
	"mime/quotedprintable"
	"os"
	"regexp"
	"strconv"
	"strings"

	"github.com/boltdb/bolt"
	"github.com/kennygrant/sanitize"
	"github.com/luksen/maildir"
)

// Mail includes the key of a mail in Maildir
type Mail struct {
	Key           string
	Subject, Body *string
	Junk, New     bool
}

// CreateDirs creates all the required dirs -- if not already there.
func CreateDirs(maildir string) {

	log.Println("create missing directories")
	os.MkdirAll(maildir+"/.Junk/cur", 0700)
	os.MkdirAll(maildir+"/new", 0700)
	os.MkdirAll(maildir+"/cur", 0700)

	return
}

// Index loads all mail keys from the Maildir directory for processing.
func Index(d string) (m []*Mail, err error) {

	log.Println("loading mails")
	dirs := []string{d, d + "/.Junk"}
	for _, dir := range dirs {
		j, err := maildir.Dir(dir).Keys()
		if err != nil {
			return m, err
		}
		for _, val := range j {
			var new Mail
			new.Key = val
			if dir == d+"/.Junk" {
				new.Junk = true
			}
			m = append(m, &new)
		}
	}

	log.Println("mails loaded")
	return m, nil
}

// Load reads a mail's subject and body
func (m *Mail) Load(d string) error {

	if m.Junk {
		d = d + "/.Junk"
	}
	message, err := maildir.Dir(d).Message(m.Key)
	if err != nil {
		return err
	}

	// get Subject
	if m.Subject != nil {
		return errors.New("there is already a subject")
	}
	subject := message.Header.Get("Subject")
	m.Subject = &subject

	// get Body
	bQ := quotedprintable.NewReader(message.Body)
	var b []string
	bScanner := bufio.NewScanner(bQ)
	for bScanner.Scan() {
		raw := bScanner.Text()
		b = append(b, raw)
	}

	body := strings.Join(b, " ")
	if m.Body != nil {
		return errors.New("there is already a body")
	}
	m.Body = &body

	return nil
}

func trimStringFromBase64(s string) string {
	if idx := strings.Index(s, "Content-Transfer-Encoding: base64"); idx != -1 {
		return s[:idx-1]
	}
	return s
}

func cleanString(i string) (s string) {

	s = sanitize.Accents(i)
	s = sanitize.HTML(s)
	s = strings.ToLower(s)

	bad := []string{
		"boundary=", "charset", "content-transfer-encoding",
		"content-type", "image/jpeg", "multipart/alternative",
		"multipart/related", "name=", "nextpart", "quoted-printable",
		"text/html", "text/plain", "this email must be viewed in html mode",
		"this is a multi-part message in mime format",
		"windows-1251", "windows-1252", "!", "#", "$", "%", "&", "'",
		"(", ")", "*", "+", ",", ". ", "<", "=", ">", "?", "@", "[",
		"\"", "\\", "\n", "\t", "]", "^", "_", "{", "|", "}",
	}
	for _, b := range bad {
		s = strings.Replace(s, b, " ", -1)
	}
	for i := 0; i < 10; i++ {
		s = strings.Replace(s, "  ", " ", -1)
	}

	return s
}

// Clean cleans the mail's subject and body
func (m *Mail) Clean() error {
	if m.Subject != nil {
		s := trimStringFromBase64(*m.Subject)
		s = cleanString(s)
		m.Subject = &s
	}

	if m.Body != nil {
		b := trimStringFromBase64(*m.Body)
		b = cleanString(b)
		m.Body = &b
	}
	return nil
}

// wordlist takes a string of space separated text and returns a list of unique
// words in a space separated string
func wordlist(s string) (l []string) {
	list := make(map[string]int)

	raw := strings.Split(s, " ")
	var clean []string

	for _, w := range raw {

		// no long or too short words
		length := len(w)
		if length < 4 || length > 10 {
			continue
		}

		// no numbers, special characters, etc. -- only words
		match, _ := regexp.MatchString("(^[a-z]+$)", w)
		if !match {
			continue
		} else {
			clean = append(clean, w)
		}
	}

	// only the first 200 words count
	maxWords := int(math.Min(200, float64(len(clean))))
	for i := 0; i < maxWords; i++ {
		w := clean[i]
		list[w]++
	}

	for word, count := range list {
		if count > 10 {
			continue
		}

		l = append(l, word)
	}

	return l
}

// Wordlist prepares the mail for training
func (m *Mail) Wordlist() (w []string) {
	var s string

	if m.Subject != nil {
		s = s + " " + *m.Subject
	}

	if m.Body != nil {
		s = s + " " + *m.Body
	}

	w = wordlist(s)

	return w
}

// Classify analyses the mail and decides whether it is Junk or Good
func (m *Mail) Classify(db *bolt.DB) error {

	err := m.Clean()
	if err != nil {
		return err
	}

	list := m.Wordlist()
	scoreG, scoreJ, ju := LogScores(db, list)

	log.Print("Classified " + m.Key + " as Junk=" + strconv.FormatBool(m.Junk) +
		" (good: " + strconv.FormatFloat(scoreG, 'f', 4, 64) +
		", junk: " + strconv.FormatFloat(scoreJ, 'f', 4, 64) + ")")

	// Move mails around after classification
	if m.New && ju {
		m.Junk = ju
		err := os.Rename("./new/"+m.Key, "./.Junk/cur/"+m.Key)
		if err != nil {
			return err
		}
		log.Print("Moved " + m.Key + " from new to Junk folder")
	}

	if m.New == false && m.Junk && ju == false {
		err := os.Rename("./.Junk/cur/"+m.Key, "./cur/"+m.Key)
		if err != nil {
			return err
		}
		m.Junk = ju
		log.Print("Moved " + m.Key + " from Junk to Good folder")
	}

	if m.New == false && ju && m.Junk == false {
		err := os.Rename("./cur/"+m.Key, "./.Junk/cur/"+m.Key)
		if err != nil {
			return err
		}
		m.Junk = ju
		log.Print("Moved " + m.Key + " from Good to Junk folder")
	}

	// Inform the DB about a processed mail
	db.Update(func(tx *bolt.Tx) error {
		b := tx.Bucket([]byte("Processed"))
		bMails := b.Bucket([]byte("Mails"))
		if ju {
			err := bMails.Put([]byte(m.Key), []byte(junk))
			if err != nil {
				return err
			}
		} else {
			err := bMails.Put([]byte(m.Key), []byte(good))
			if err != nil {
				return err
			}
		}
		return err
	})

	return nil
}

// Learn adds the words to the respective list and unlearns on the other, if
// the mail has been moved from there.
func (m *Mail) Learn(db *bolt.DB) error {
	return nil
}