package app

import (
	"context"
	"encoding/json"
	"fmt"
	"io"
	"math"
	"os"
	"path/filepath"
	"strconv"
	"time"

	"github.com/skidoodle/safebin/internal/crypto"
	"go.etcd.io/bbolt"
)

func (app *App) StartCleanupTask(ctx context.Context) {
	ticker := time.NewTicker(CleanupInterval)

	for {
		select {
		case <-ctx.Done():
			ticker.Stop()
			return
		case <-ticker.C:
			app.CleanStorage()
			app.CleanTemp(filepath.Join(app.Conf.StorageDir, TempDirName))
		}
	}
}

func (app *App) saveChunk(uid string, idx int, src io.Reader) error {
	dir := filepath.Join(app.Conf.StorageDir, TempDirName, uid)

	if err := os.MkdirAll(dir, PermUserRWX); err != nil {
		return fmt.Errorf("create chunk dir: %w", err)
	}

	dest, err := os.Create(filepath.Join(dir, strconv.Itoa(idx)))
	if err != nil {
		return fmt.Errorf("create chunk file: %w", err)
	}

	defer func() {
		if closeErr := dest.Close(); closeErr != nil {
			app.Logger.Error("Failed to close chunk dest", "err", closeErr)
		}
	}()

	if _, err := io.Copy(dest, src); err != nil {
		return fmt.Errorf("copy chunk: %w", err)
	}

	return nil
}

func (app *App) openChunkFiles(uid string, total int) ([]*os.File, error) {
	files := make([]*os.File, 0, total)

	closeAll := func() {
		for _, f := range files {
			_ = f.Close()
		}
	}

	for i := range total {
		partPath := filepath.Join(app.Conf.StorageDir, TempDirName, uid, strconv.Itoa(i))
		f, err := os.Open(partPath)
		if err != nil {
			closeAll()
			return nil, fmt.Errorf("open chunk %d: %w", i, err)
		}
		files = append(files, f)
	}

	return files, nil
}

func (app *App) encryptAndSave(src io.Reader, key []byte, finalPath string) error {
	out, err := os.Create(finalPath + ".tmp")
	if err != nil {
		return fmt.Errorf("create final file: %w", err)
	}

	var closed bool

	defer func() {
		if !closed {
			if closeErr := out.Close(); closeErr != nil {
				app.Logger.Error("Failed to close final file", "err", closeErr)
			}
		}

		if removeErr := os.Remove(finalPath + ".tmp"); removeErr != nil && !os.IsNotExist(removeErr) {
			app.Logger.Error("Failed to remove temp final file", "err", removeErr)
		}
	}()

	streamer, err := crypto.NewGCMStreamer(key)
	if err != nil {
		return fmt.Errorf("create streamer: %w", err)
	}

	if err := streamer.EncryptStream(out, src); err != nil {
		return fmt.Errorf("encrypt stream: %w", err)
	}

	if err := out.Close(); err != nil {
		return fmt.Errorf("close final file: %w", err)
	}

	closed = true

	if err := os.Rename(finalPath+".tmp", finalPath); err != nil {
		return fmt.Errorf("rename final file: %w", err)
	}

	return nil
}

func (app *App) RegisterFile(id string, size int64) error {
	retention := CalculateRetention(size, app.Conf.MaxMB)
	meta := FileMeta{
		ID:        id,
		Size:      size,
		CreatedAt: time.Now(),
		ExpiresAt: time.Now().Add(retention),
	}

	return app.DB.Update(func(tx *bbolt.Tx) error {
		b := tx.Bucket([]byte(DBBucketName))
		data, err := json.Marshal(meta)
		if err != nil {
			return err
		}
		return b.Put([]byte(id), data)
	})
}

func (app *App) CleanStorage() {
	now := time.Now()
	var toDelete []string

	err := app.DB.View(func(tx *bbolt.Tx) error {
		b := tx.Bucket([]byte(DBBucketName))
		c := b.Cursor()

		for k, v := c.First(); k != nil; k, v = c.Next() {
			var meta FileMeta
			if err := json.Unmarshal(v, &meta); err != nil {
				continue
			}

			if now.After(meta.ExpiresAt) {
				toDelete = append(toDelete, string(k))
			}
		}
		return nil
	})

	if err != nil {
		app.Logger.Error("Failed to view DB for cleanup", "err", err)
		return
	}

	if len(toDelete) == 0 {
		return
	}

	err = app.DB.Update(func(tx *bbolt.Tx) error {
		b := tx.Bucket([]byte(DBBucketName))
		for _, id := range toDelete {
			path := filepath.Join(app.Conf.StorageDir, id)
			if err := os.RemoveAll(path); err != nil {
				app.Logger.Error("Failed to remove expired file", "path", id, "err", err)
			}

			if err := b.Delete([]byte(id)); err != nil {
				app.Logger.Error("Failed to delete metadata", "id", id, "err", err)
			}
		}
		return nil
	})

	if err != nil {
		app.Logger.Error("Failed to update DB during cleanup", "err", err)
	}
}

func (app *App) CleanTemp(path string) {
	entries, err := os.ReadDir(path)
	if err != nil {
		app.Logger.Error("Failed to read temp dir", "err", err)
		return
	}

	for _, entry := range entries {
		info, err := entry.Info()
		if err != nil {
			continue
		}

		if time.Since(info.ModTime()) > TempExpiry {
			if err := os.RemoveAll(filepath.Join(path, entry.Name())); err != nil {
				app.Logger.Error("Failed to remove expired temp file", "path", entry.Name(), "err", err)
			}
		}
	}
}

func CalculateRetention(fileSize, maxMB int64) time.Duration {
	ratio := math.Max(0, math.Min(1, float64(fileSize)/float64(maxMB*MegaByte)))

	invRatio := 1.0 - ratio
	retention := float64(MaxRetention) * (invRatio * invRatio * invRatio)

	if retention < float64(MinRetention) {
		return MinRetention
	}

	return time.Duration(retention)
}