package server

import (
	"context"
	"fmt"
	"github.com/ChronosX88/yans/internal"
	"github.com/ChronosX88/yans/internal/common"
	"github.com/ChronosX88/yans/internal/config"
	"github.com/ChronosX88/yans/internal/models"
	"github.com/ChronosX88/yans/internal/protocol"
	"github.com/jmoiron/sqlx"
	_ "github.com/mattn/go-sqlite3"
	"github.com/pressly/goose/v3"
	"io"
	"log"
	"net"
	"net/textproto"
	"strings"
	"time"
)

var (
	Capabilities = protocol.Capabilities{
		{Type: protocol.VersionCapability, Params: "2"},
		{Type: protocol.ImplementationCapability, Params: fmt.Sprintf("%s %s", common.ServerName, common.ServerVersion)},
		{Type: protocol.ModeReaderCapability},
		{Type: protocol.ListCapability, Params: "ACTIVE NEWSGROUPS"},
	}
)

type NNTPServer struct {
	ctx        context.Context
	cancelFunc context.CancelFunc

	ln   net.Listener
	port int

	db *sqlx.DB
}

func NewNNTPServer(cfg config.Config) (*NNTPServer, error) {
	db, err := sqlx.Open("sqlite3", cfg.DatabasePath)
	if err != nil {
		return nil, err
	}
	goose.SetBaseFS(internal.Migrations)

	if err := goose.SetDialect("sqlite3"); err != nil {
		return nil, err
	}

	if err := goose.Up(db.DB, "migrations"); err != nil {
		return nil, err
	}

	ctx, cancel := context.WithCancel(context.Background())
	ns := &NNTPServer{
		ctx:        ctx,
		cancelFunc: cancel,
		port:       cfg.Port,
		db:         db,
	}
	return ns, nil
}

func (ns *NNTPServer) Start() error {
	ln, err := net.Listen("tcp", fmt.Sprintf(":%d", ns.port))
	if err != nil {
		return err
	}

	go func(ctx context.Context) {
		for {
			select {
			case <-ctx.Done():
				break
			default:
				{
					conn, err := ln.Accept()
					if err != nil {
						log.Println(err)
					}
					log.Printf("Client %s has connected!", conn.RemoteAddr().String())
					go ns.handleNewConnection(ctx, conn)
				}
			}
		}
	}(ns.ctx)

	return nil
}

func (ns *NNTPServer) handleNewConnection(ctx context.Context, conn net.Conn) {
	_, err := conn.Write([]byte(protocol.MessageNNTPServiceReadyPostingProhibited + protocol.CRLF))
	if err != nil {
		log.Print(err)
		conn.Close()
		return
	}

	tconn := textproto.NewConn(conn)
	for {
		select {
		case <-ctx.Done():
			break
		default:
			{
				message, err := tconn.ReadLine()
				if err != nil {
					if err == io.EOF || err.(*net.OpError).Unwrap() == net.ErrClosed {
						log.Printf("Client %s has diconnected!", conn.RemoteAddr().String())
					} else {
						log.Print(err)
						conn.Close()
					}
					return
				}
				log.Printf("Received message from %s: %s", conn.RemoteAddr().String(), string(message))
				err = ns.handleMessage(tconn, message)
				if err != nil {
					log.Print(err)
					conn.Close()
					return
				}
			}
		}
	}
}

func (ns *NNTPServer) handleMessage(conn *textproto.Conn, msg string) error {
	splittedMessage := strings.Split(msg, " ")
	command := splittedMessage[0]

	reply := ""
	quit := false

	switch command {
	case protocol.CommandCapabilities:
		{
			reply = Capabilities.String()
			break
		}
	case protocol.CommandDate:
		{
			reply = fmt.Sprintf("111 %s", time.Now().UTC().Format("20060102150405"))
			break
		}
	case protocol.CommandQuit:
		{
			reply = protocol.MessageNNTPServiceExitsNormally
			quit = true
			break
		}
	case protocol.CommandMode:
		{
			if splittedMessage[1] == "READER" {
				// TODO actually switch current conn to reader mode
				reply = protocol.MessageReaderModePostingProhibited
			} else {
				reply = protocol.MessageUnknownCommand
			}
			break
		}
	case protocol.CommandList:
		{
			groups, err := ns.listGroups()
			if err != nil {
				reply = protocol.MessageErrorHappened + err.Error()
				log.Println(err)
			}
			sb := strings.Builder{}
			sb.Write([]byte(protocol.MessageListOfNewsgroupsFollows + protocol.CRLF))
			if len(splittedMessage) == 1 || splittedMessage[1] == "ACTIVE" {
				for _, v := range groups {
					// TODO set high/low mark and posting status to actual values
					sb.Write([]byte(fmt.Sprintf("%s 0 0 n"+protocol.CRLF, v.GroupName)))
				}
			} else if splittedMessage[1] == "NEWSGROUPS" {
				for _, v := range groups {
					desc := ""
					if v.Description == nil {
						desc = "No description"
					} else {
						desc = *v.Description
					}
					sb.Write([]byte(fmt.Sprintf("%s %s\r\n", v.GroupName, desc)))
				}
			} else {
				reply = protocol.MessageUnknownCommand
				break
			}

			sb.Write([]byte("."))
			reply = sb.String()
		}
	default:
		{
			reply = protocol.MessageUnknownCommand
			break
		}
	}

	err := conn.PrintfLine(reply)
	if quit {
		conn.Close()
	}
	return err
}

func (ns *NNTPServer) listGroups() ([]models.Group, error) {
	var groups []models.Group
	return groups, ns.db.Select(&groups, "SELECT * FROM groups")
}

func (ns *NNTPServer) getArticlesCount(g models.Group) (int, error) {
	var count int
	return count, ns.db.Select(&count, "SELECT COUNT(*) FROM articles_to_groups WHERE group_id = ?", g.ID)
}

func (ns *NNTPServer) Stop() {
	ns.cancelFunc()
}