package cliutil

import (
	"encoding/json"
	"errors"
	"fmt"
	"io"
	"io/fs"
	"log/slog"
	"net/http"
	"os"
	"path/filepath"
	"regexp"
	"sort"
	"strconv"
	"strings"
	"time"

	"github.com/bluesky-social/indigo/did"
	"github.com/bluesky-social/indigo/plc"
	"github.com/bluesky-social/indigo/xrpc"
	slogGorm "github.com/orandin/slog-gorm"
	"github.com/urfave/cli/v2"
	"gorm.io/driver/postgres"
	"gorm.io/driver/sqlite"
	"gorm.io/gorm"
)

func GetDidResolver(cctx *cli.Context) did.Resolver {
	mr := did.NewMultiResolver()
	mr.AddHandler("plc", &plc.PLCServer{
		Host: cctx.String("plc"),
	})
	mr.AddHandler("web", &did.WebResolver{})

	return mr
}

func GetPLCClient(cctx *cli.Context) *plc.PLCServer {
	return &plc.PLCServer{
		Host: cctx.String("plc"),
	}
}

func NewHttpClient() *http.Client {
	return &http.Client{
		Transport: &http.Transport{
			Proxy:                 http.ProxyFromEnvironment,
			ForceAttemptHTTP2:     true,
			MaxIdleConns:          100,
			IdleConnTimeout:       90 * time.Second,
			TLSHandshakeTimeout:   10 * time.Second,
			ExpectContinueTimeout: 1 * time.Second,
		},
	}
}

func GetXrpcClient(cctx *cli.Context, authreq bool) (*xrpc.Client, error) {
	h := "http://localhost:4989"
	if pdsurl := cctx.String("pds-host"); pdsurl != "" {
		h = pdsurl
	}

	auth, err := loadAuthFromEnv(cctx, authreq)
	if err != nil {
		return nil, fmt.Errorf("loading auth: %w", err)
	}

	return &xrpc.Client{
		Client: NewHttpClient(),
		Host:   h,
		Auth:   auth,
	}, nil
}

func loadAuthFromEnv(cctx *cli.Context, req bool) (*xrpc.AuthInfo, error) {
	if a := cctx.String("auth"); a != "" {
		if ai, err := ReadAuth(a); err != nil && req {
			return nil, err
		} else {
			return ai, nil
		}
	}

	val := os.Getenv("ATP_AUTH_FILE")
	if val == "" {
		if req {
			return nil, fmt.Errorf("no auth env present, ATP_AUTH_FILE not set")
		}

		return nil, nil
	}

	var auth xrpc.AuthInfo
	if err := json.Unmarshal([]byte(val), &auth); err != nil {
		return nil, err
	}

	return &auth, nil
}

func ReadAuth(fname string) (*xrpc.AuthInfo, error) {
	b, err := os.ReadFile(fname)
	if err != nil {
		return nil, err
	}
	var auth xrpc.AuthInfo
	if err := json.Unmarshal(b, &auth); err != nil {
		return nil, err
	}

	return &auth, nil
}

// Supports both previous "dbtype=" prefixed DSNs, and URI-style database config strings, for both sqlite and postgresql.
//
// Examples:
// - "sqlite=dir/file.sqlite"
// - "sqlite://file.sqlite"
// - "postgres=host=localhost user=postgres password=password dbname=pdsdb port=5432 sslmode=disable"
// - "postgresql://postgres:password@localhost:5432/pdsdb?sslmode=disable"
func SetupDatabase(dburl string, maxConnections int) (*gorm.DB, error) {
	var dial gorm.Dialector
	// NOTE(bnewbold): might also handle file:// as sqlite, but let's keep it
	// explicit for now

	isSqlite := false
	openConns := maxConnections
	if strings.HasPrefix(dburl, "sqlite://") {
		sqliteSuffix := dburl[len("sqlite://"):]
		// if this isn't ":memory:", ensure that directory exists (eg, if db
		// file is being initialized)
		if !strings.Contains(sqliteSuffix, ":?") {
			os.MkdirAll(filepath.Dir(sqliteSuffix), os.ModePerm)
		}
		dial = sqlite.Open(sqliteSuffix)
		openConns = 1
		isSqlite = true
	} else if strings.HasPrefix(dburl, "sqlite=") {
		sqliteSuffix := dburl[len("sqlite="):]
		// if this isn't ":memory:", ensure that directory exists (eg, if db
		// file is being initialized)
		if !strings.Contains(sqliteSuffix, ":?") {
			os.MkdirAll(filepath.Dir(sqliteSuffix), os.ModePerm)
		}
		dial = sqlite.Open(sqliteSuffix)
		openConns = 1
		isSqlite = true
	} else if strings.HasPrefix(dburl, "postgresql://") || strings.HasPrefix(dburl, "postgres://") {
		// can pass entire URL, with prefix, to gorm driver
		dial = postgres.Open(dburl)
	} else if strings.HasPrefix(dburl, "postgres=") {
		dsn := dburl[len("postgres="):]
		dial = postgres.Open(dsn)
	} else {
		// TODO(bnewbold): this might print password?
		return nil, fmt.Errorf("unsupported or unrecognized DATABASE_URL value: %s", dburl)
	}

	gormLogger := slogGorm.New()

	db, err := gorm.Open(dial, &gorm.Config{
		SkipDefaultTransaction: true,
		TranslateError:         true,
		Logger:                 gormLogger,
	})
	if err != nil {
		return nil, err
	}

	sqldb, err := db.DB()
	if err != nil {
		return nil, err
	}

	sqldb.SetMaxIdleConns(80)
	sqldb.SetMaxOpenConns(openConns)
	sqldb.SetConnMaxIdleTime(time.Hour)

	if isSqlite {
		// Set pragmas for sqlite
		if err := db.Exec("PRAGMA journal_mode=WAL;").Error; err != nil {
			return nil, err
		}
		if err := db.Exec("PRAGMA synchronous=normal;").Error; err != nil {
			return nil, err
		}
	}

	return db, nil
}

type LogOptions struct {
	// e.g. 1_000_000_000
	LogRotateBytes int64

	// path to write to, if rotating, %T gets UnixMilli at file open time
	// NOTE: substitution is simple replace("%T", "")
	LogPath string

	// text|json
	LogFormat string

	// info|debug|warn|error
	LogLevel string

	// Keep N old logs (not including current); <0 disables removal, 0==remove all old log files immediately
	KeepOld int
}

func firstenv(env_var_names ...string) string {
	for _, env_var_name := range env_var_names {
		val := os.Getenv(env_var_name)
		if val != "" {
			return val
		}
	}
	return ""
}

// SetupSlog integrates passed in options and env vars.
//
// passing default cliutil.LogOptions{} is ok.
//
// BSKYLOG_LOG_LEVEL=info|debug|warn|error
//
// BSKYLOG_LOG_FMT=text|json
//
// BSKYLOG_FILE=path (or "-" or "" for stdout), %T gets UnixMilli; if a path with '/', {prefix}/current becomes a link to active log file
//
// BSKYLOG_ROTATE_BYTES=int maximum size of log chunk before rotating
//
// BSKYLOG_ROTATE_KEEP=int keep N olg logs (not including current)
//
// The env vars were derived from ipfs logging library, and also respond to some GOLOG_ vars from that library,
// but BSKYLOG_ variables are preferred because imported code still using the ipfs log library may misbehave
// if some GOLOG values are set, especially GOLOG_FILE.
func SetupSlog(options LogOptions) (*slog.Logger, io.Writer, error) {
	fmt.Fprintf(os.Stderr, "SetupSlog\n")
	var hopts slog.HandlerOptions
	hopts.Level = slog.LevelInfo
	hopts.AddSource = true
	if options.LogLevel == "" {
		options.LogLevel = firstenv("BSKYLOG_LOG_LEVEL", "GOLOG_LOG_LEVEL")
	}
	if options.LogLevel == "" {
		hopts.Level = slog.LevelInfo
		options.LogLevel = "info"
	} else {
		level := strings.ToLower(options.LogLevel)
		switch level {
		case "debug":
			hopts.Level = slog.LevelDebug
		case "info":
			hopts.Level = slog.LevelInfo
		case "warn":
			hopts.Level = slog.LevelWarn
		case "error":
			hopts.Level = slog.LevelError
		default:
			return nil, nil, fmt.Errorf("unknown log level: %#v", options.LogLevel)
		}
	}
	if options.LogFormat == "" {
		options.LogFormat = firstenv("BSKYLOG_LOG_FMT", "GOLOG_LOG_FMT")
	}
	if options.LogFormat == "" {
		options.LogFormat = "text"
	} else {
		format := strings.ToLower(options.LogFormat)
		if format == "json" || format == "text" {
			// ok
		} else {
			return nil, nil, fmt.Errorf("invalid log format: %#v", options.LogFormat)
		}
		options.LogFormat = format
	}

	if options.LogPath == "" {
		options.LogPath = firstenv("BSKYLOG_FILE", "GOLOG_FILE")
	}
	if options.LogRotateBytes == 0 {
		rotateBytesStr := os.Getenv("BSKYLOG_ROTATE_BYTES") // no GOLOG equivalent
		if rotateBytesStr != "" {
			rotateBytes, err := strconv.ParseInt(rotateBytesStr, 10, 64)
			if err != nil {
				return nil, nil, fmt.Errorf("invalid BSKYLOG_ROTATE_BYTES value: %w", err)
			}
			options.LogRotateBytes = rotateBytes
		}
	}
	if options.KeepOld == 0 {
		keepOldUnset := true
		keepOldStr := os.Getenv("BSKYLOG_ROTATE_KEEP") // no GOLOG equivalent
		if keepOldStr != "" {
			keepOld, err := strconv.ParseInt(keepOldStr, 10, 64)
			if err != nil {
				return nil, nil, fmt.Errorf("invalid BSKYLOG_ROTATE_KEEP value: %w", err)
			}
			keepOldUnset = false
			options.KeepOld = int(keepOld)
		}
		if keepOldUnset {
			options.KeepOld = 2
		}
	}
	logaround := make(chan string, 100)
	go logbouncer(logaround)
	var out io.Writer
	if (options.LogPath == "") || (options.LogPath == "-") {
		out = os.Stdout
	} else if options.LogRotateBytes != 0 {
		out = &logRotateWriter{
			rotateBytes:     options.LogRotateBytes,
			outPathTemplate: options.LogPath,
			keep:            options.KeepOld,
			logaround:       logaround,
		}
	} else {
		var err error
		out, err = os.Create(options.LogPath)
		if err != nil {
			return nil, nil, fmt.Errorf("%s: %w", options.LogPath, err)
		}
		fmt.Fprintf(os.Stderr, "SetupSlog create %#v\n", options.LogPath)
	}
	var handler slog.Handler
	switch options.LogFormat {
	case "text":
		handler = slog.NewTextHandler(out, &hopts)
	case "json":
		handler = slog.NewJSONHandler(out, &hopts)
	default:
		return nil, nil, fmt.Errorf("unknown log format: %#v", options.LogFormat)
	}
	logger := slog.New(handler)
	slog.SetDefault(logger)
	templateDirPart, _ := filepath.Split(options.LogPath)
	ents, _ := os.ReadDir(templateDirPart)
	for _, ent := range ents {
		fmt.Fprintf(os.Stdout, "%s\n", filepath.Join(templateDirPart, ent.Name()))
	}
	SetIpfsWriter(out, options.LogFormat, options.LogLevel)
	return logger, out, nil
}

type logRotateWriter struct {
	currentWriter io.WriteCloser

	// how much has been written to current log file
	currentBytes int64

	// e.g. path/to/logs/foo%T
	currentPath string

	// e.g. path/to/logs/current
	currentPathCurrent string

	rotateBytes int64

	outPathTemplate string

	// keep the most recent N log files (not including current)
	keep int

	// write strings to this from inside the log system, a task outside the log system hands them to slog.Info()
	logaround chan<- string
}

func logbouncer(out <-chan string) {
	var logger *slog.Logger
	for line := range out {
		fmt.Fprintf(os.Stderr, "ll %s\n", line)
		if logger == nil {
			// lazy to make sure it crops up after slog Default has been set
			logger = slog.Default().With("system", "logging")
		}
		logger.Info(line)
	}
}

var currentMatcher = regexp.MustCompile("current_\\d+")

func (w *logRotateWriter) cleanOldLogs() {
	if w.keep < 0 {
		// old log removal is disabled
		return
	}
	// w.currentPath was recently set as the new log
	dirpart, _ := filepath.Split(w.currentPath)
	// find old logs
	templateDirPart, templateNamePart := filepath.Split(w.outPathTemplate)
	if dirpart != templateDirPart {
		w.logaround <- fmt.Sprintf("current dir part %#v != template dir part %#v\n", w.currentPath, w.outPathTemplate)
		return
	}
	// build a regexp that is string literal parts with \d+ replacing the UnixMilli part
	templateNameParts := strings.Split(templateNamePart, "%T")
	var sb strings.Builder
	first := true
	for _, part := range templateNameParts {
		if first {
			first = false
		} else {
			sb.WriteString("\\d+")
		}
		sb.WriteString(regexp.QuoteMeta(part))
	}
	tmre, err := regexp.Compile(sb.String())
	if err != nil {
		w.logaround <- fmt.Sprintf("failed to compile old log template regexp: %#v\n", err)
		return
	}
	dir, err := os.ReadDir(dirpart)
	if err != nil {
		w.logaround <- fmt.Sprintf("failed to read old log template dir: %#v\n", err)
		return
	}
	var found []fs.FileInfo
	for _, ent := range dir {
		name := ent.Name()
		if tmre.MatchString(name) || currentMatcher.MatchString(name) {
			fi, err := ent.Info()
			if err != nil {
				continue
			}
			found = append(found, fi)
		}
	}
	if len(found) <= w.keep {
		// not too many, nothing to do
		return
	}
	foundMtimeLess := func(i, j int) bool {
		return found[i].ModTime().Before(found[j].ModTime())
	}
	sort.Slice(found, foundMtimeLess)
	drops := found[:len(found)-w.keep]
	for _, fi := range drops {
		fullpath := filepath.Join(dirpart, fi.Name())
		err = os.Remove(fullpath)
		if err != nil {
			w.logaround <- fmt.Sprintf("failed to rm old log: %#v\n", err)
			// but keep going
		}
		// maybe it would be safe to debug-log old log removal from within the logging infrastructure?
	}
}

func (w *logRotateWriter) closeOldLog() []error {
	if w.currentWriter == nil {
		return nil
	}
	var earlyWeakErrors []error
	err := w.currentWriter.Close()
	if err != nil {
		earlyWeakErrors = append(earlyWeakErrors, err)
	}
	w.currentWriter = nil
	w.currentBytes = 0
	w.currentPath = ""
	if w.currentPathCurrent != "" {
		err = os.Remove(w.currentPathCurrent) // not really an error until something else goes wrong
		if err != nil {
			earlyWeakErrors = append(earlyWeakErrors, err)
		}
		w.currentPathCurrent = ""
	}
	return earlyWeakErrors
}

func (w *logRotateWriter) openNewLog(earlyWeakErrors []error) (badErr error, weakErrors []error) {
	nowMillis := time.Now().UnixMilli()
	nows := strconv.FormatInt(nowMillis, 10)
	w.currentPath = strings.Replace(w.outPathTemplate, "%T", nows, -1)
	var err error
	w.currentWriter, err = os.Create(w.currentPath)
	if err != nil {
		earlyWeakErrors = append(earlyWeakErrors, err)
		return errors.Join(earlyWeakErrors...), nil
	}
	w.logaround <- fmt.Sprintf("new log file %#v", w.currentPath)
	w.cleanOldLogs()
	dirpart, _ := filepath.Split(w.currentPath)
	if dirpart != "" {
		w.currentPathCurrent = filepath.Join(dirpart, "current")
		fi, err := os.Stat(w.currentPathCurrent)
		if err == nil && fi.Mode().IsRegular() {
			// move aside unknown "current" from a previous run
			// see also currentMatcher regexp current_\d+
			err = os.Rename(w.currentPathCurrent, w.currentPathCurrent+"_"+nows)
			if err != nil {
				// not crucial if we can't move aside "current"
				// TODO: log warning ... but not from inside log writer?
				earlyWeakErrors = append(earlyWeakErrors, err)
			}
		}
		err = os.Link(w.currentPath, w.currentPathCurrent)
		if err != nil {
			// not crucial if we can't make "current" link
			// TODO: log warning ... but not from inside log writer?
			earlyWeakErrors = append(earlyWeakErrors, err)
		}
	}
	return nil, earlyWeakErrors
}

func (w *logRotateWriter) Write(p []byte) (n int, err error) {
	var earlyWeakErrors []error
	if int64(len(p))+w.currentBytes > w.rotateBytes {
		// next write would be over the limit
		earlyWeakErrors = w.closeOldLog()
	}
	if w.currentWriter == nil {
		// start new log file
		var err error
		err, earlyWeakErrors = w.openNewLog(earlyWeakErrors)
		if err != nil {
			return 0, err
		}
	}
	var wrote int
	wrote, err = w.currentWriter.Write(p)
	w.currentBytes += int64(wrote)
	if err != nil {
		earlyWeakErrors = append(earlyWeakErrors, err)
		return wrote, errors.Join(earlyWeakErrors...)
	}
	if earlyWeakErrors != nil {
		w.logaround <- fmt.Sprintf("ok, but: %s", errors.Join(earlyWeakErrors...).Error())
	}
	return wrote, nil
}