// Package watcher is the watchd inotify handler.
//
// It treats and emits events on directory changes and increments the GPT file version when needed.
package watcher

import (
	"context"
	"errors"
	"os"
	"path/filepath"
	"strconv"
	"strings"
	"time"

	"github.com/fsnotify/fsnotify"
	"github.com/kardianos/service"
	"github.com/leonelquinteros/gotext"
	log "github.com/ubuntu/adsys/internal/grpc/logstreamer"
	"github.com/ubuntu/decorate"
	"gopkg.in/ini.v1"
)

const (
	gptFileName = "GPT.INI"
)

const (
	startCmd = iota
	stopCmd
)

// Watcher provides options necessary to watch a directory and its children.
type Watcher struct {
	cmd    chan command
	cmdErr chan error

	refreshDuration time.Duration
}

type command struct {
	ctx    *context.Context
	action int
	dirs   []string
}

// options are the configurable functional options for the watcher.
type options struct {
	refreshDuration time.Duration
}
type option func(*options) error

func init() {
	// Windows-generated files do not have spaces around the equals sign.
	ini.PrettyFormat = false
}

// New returns a new Watcher instance.
func New(ctx context.Context, initialDirs []string, opts ...option) (*Watcher, error) {
	if len(initialDirs) == 0 {
		return nil, errors.New(gotext.Get("no directories to watch"))
	}

	// Set default options
	args := options{
		refreshDuration: 10 * time.Second,
	}
	// Override default options with user-provided ones
	for _, o := range opts {
		if err := o(&args); err != nil {
			return nil, err
		}
	}

	cmd, cmdErr := make(chan command), make(chan error)
	w := &Watcher{
		cmd:    cmd,
		cmdErr: cmdErr,

		refreshDuration: args.refreshDuration,
	}

	go func() {
		var cancel context.CancelFunc
		var watching chan struct{}
		for {
			switch c := <-cmd; c.action {
			case startCmd:
				// Start from service doesn't pass a context explicitly
				parentCtx := c.ctx
				if parentCtx == nil {
					parentCtx = &ctx
				}
				ctx, cancel = context.WithCancel(*parentCtx)

				// Start from service doesn't pass dirs explicitly
				dirs := c.dirs
				if dirs == nil {
					dirs = initialDirs
				}

				initError := make(chan error)
				watching = make(chan struct{})
				go func() {
					defer close(watching)
					if errWatching := w.watch(ctx, dirs, initError); errWatching != nil {
						log.Warning(ctx, gotext.Get("Watch failed: %v", errWatching))
					}
				}()
				err := <-initError
				cmdErr <- err

			case stopCmd:
				if watching == nil {
					cmdErr <- errors.New(gotext.Get("the service is already stopping or not running"))
					break
				}

				cancel()

				// wait for watching to be closed
				for {
					_, ok := <-watching
					if ok {
						continue
					}
					watching = nil
					break
				}
				cmdErr <- nil
			}
		}
	}()

	return w, nil
}

// Start is called by the service manager to start the watcher service.
// Documentation states that the function should not block but run
// asynchronously. When our function exits, the service manager registers a
// signal handler that calls Stop when a signal is received.
func (w *Watcher) Start(_ service.Service) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't start service"))

	return w.send(nil, startCmd, nil)
}

// Stop is called by the service manager to stop the watcher service.
// Documentation states that the function should not take more than a few
// seconds to execute.
func (w *Watcher) Stop(_ service.Service) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't stop service"))

	return w.send(nil, stopCmd, nil)
}

// stopWatch stops the watch loop.
func (w *Watcher) send(ctx *context.Context, action int, dirs []string) error {
	w.cmd <- command{
		ctx:    ctx,
		action: action,
		dirs:   dirs,
	}
	return <-w.cmdErr
}

// UpdateDirs restarts watch loop with new directories. No action is taken if
// one or more directories do not exist.
func (w *Watcher) UpdateDirs(ctx context.Context, dirs []string) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't update directories to watch"))
	log.Debug(ctx, gotext.Get("Updating directories to %v", dirs))

	if len(dirs) == 0 {
		return errors.New(gotext.Get("need at least one directory to watch"))
	}

	for _, dir := range dirs {
		if _, err := os.Stat(dir); os.IsNotExist(err) {
			return errors.New(gotext.Get("directory %q does not exist", dir))
		}
	}

	if err := w.send(&ctx, stopCmd, nil); err != nil {
		log.Warning(ctx, gotext.Get("Error stopping watcher: %v", err))
	}

	return w.send(&ctx, startCmd, dirs)
}

// watch is the main watch loop.
func (w *Watcher) watch(ctx context.Context, dirs []string, initError chan<- error) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't watch over %v", dirs))

	fsWatcher, err := fsnotify.NewWatcher()
	if err != nil {
		initError <- errors.New(gotext.Get("could not initialize fsnotify watcher: %v", err))
	}
	defer fsWatcher.Close()

	// Collect directories to watch.
	for _, dir := range dirs {
		if err := watchSubDirs(ctx, fsWatcher, dir); err != nil {
			initError <- errors.New(gotext.Get("failed to watch directory %q: %v", dir, err))
		}
	}

	// We configure a timer for a grace period without changes before committing any changes.
	refreshTimer := time.NewTimer(w.refreshDuration)
	defer refreshTimer.Stop()
	refreshTimer.Stop()

	// Collect directories to watch.
	var modifiedRootDirs []string
	initError <- nil
	for {
		select {
		case event, ok := <-fsWatcher.Events:
			if !ok || event.Name == "" {
				continue
			}
			log.Debug(ctx, gotext.Get("Got event: %v", event))

			// If the modified file is our own change, ignore it.
			if strings.EqualFold(filepath.Base(event.Name), gptFileName) {
				continue
			}

			if event.Has(fsnotify.Create) {
				fileInfo, err := os.Stat(event.Name)
				if err != nil {
					log.Warning(ctx, gotext.Get("Failed to stat: %s", err))
					continue
				}

				// Add new detected files and directories to the watch list.
				if fileInfo.IsDir() {
					if err := watchSubDirs(ctx, fsWatcher, event.Name); err != nil {
						log.Warning(ctx, gotext.Get("Failed to watch: %s", err))
					}
				} else if fileInfo.Mode().IsRegular() {
					if err := fsWatcher.Add(event.Name); err != nil {
						log.Warning(ctx, gotext.Get("Failed add watcher on %q: %s", event.Name, err))
					}
				}
			}

			// Remove deleted or renamed files/directories from the watch list.
			if event.Has(fsnotify.Remove) || event.Has(fsnotify.Rename) {
				if err := fsWatcher.Remove(event.Name); err != nil {
					log.Debug(ctx, gotext.Get("Failed to remove watcher on %q: %s", event.Name, err))
				}
			}

			// Check there is something to update
			// Rename is always followed by a Create.
			if !(event.Has(fsnotify.Write) || event.Has(fsnotify.Create) || event.Has(fsnotify.Remove)) {
				continue
			}

			// Find and add matching root directory if not already present in the list to refresh.
			rootDir, err := getRootDir(event.Name, dirs)
			if err != nil {
				log.Warning(ctx, err)
				continue
			}
			var alreadyAdded bool
			for _, modifiedRootDir := range modifiedRootDirs {
				if rootDir != modifiedRootDir {
					continue
				}
				alreadyAdded = true
				break
			}
			if !alreadyAdded {
				modifiedRootDirs = append(modifiedRootDirs, rootDir)
			}

			// Stop means that the timer expired, not that it was stopped, so
			// drain the channel only if there is something to drain.
			if !refreshTimer.Stop() {
				select {
				case <-refreshTimer.C:
				default:
				}
			}

			// We got a change, so reset the timer to the grace period.
			refreshTimer.Reset(w.refreshDuration)

		case err, ok := <-fsWatcher.Errors:
			if ok {
				log.Warning(ctx, gotext.Get("Got event error: %v", err))
			}
			continue

		case <-refreshTimer.C:
			// Update relevant GPT.ini files.
			updateVersions(ctx, modifiedRootDirs)

		case <-ctx.Done():
			log.Info(ctx, gotext.Get("Watcher stopped"))
			// Check if there was a timer in progress to not miss an update before exiting.
			if refreshTimer.Stop() {
				updateVersions(ctx, modifiedRootDirs)
			}
			return nil
		}
	}
}

// watchSubDirs walks a given directory and adds all subdirectories to the watch list.
func watchSubDirs(ctx context.Context, fsWatcher *fsnotify.Watcher, path string) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't watch directory and children of %s", path))
	log.Debug(ctx, gotext.Get("Watching %s and children", path))

	err = filepath.WalkDir(path, func(p string, _ os.DirEntry, err error) error {
		if err != nil {
			return err
		}
		log.Debug(ctx, gotext.Get("Watching: %v", p))
		return fsWatcher.Add(p)
	})
	return err
}

// getRootDir returns the configured directory of the given file path. It
// handles nested directories by returning the most nested one. It ensures paths
// are compatible by normalizing them first (e.g. removing trailing slashes,
// replacing backslashes with slashes).
func getRootDir(path string, rootDirs []string) (string, error) {
	path = filepath.ToSlash(filepath.Clean(path))
	var rootDir string
	var currentRootDirLength int
	for _, root := range rootDirs {
		root = filepath.ToSlash(filepath.Clean(root))
		if strings.HasPrefix(path, root) {
			// Make sure we take into account the possibility of nested
			// configured directories.
			if len(root) <= currentRootDirLength {
				continue
			}
			rootDir = root
			currentRootDirLength = len(root)
		}
	}
	if rootDir == "" {
		return "", errors.New(gotext.Get("no root directory matching %s found", path))
	}

	return rootDir, nil
}

// updateVersions updates the GPT.ini files of the given directories.
func updateVersions(ctx context.Context, modifiedRootDirs []string) {
	for _, dir := range modifiedRootDirs {
		gptIniPath := filepath.Join(dir, gptFileName)
		if err := bumpVersion(ctx, gptIniPath); err != nil {
			log.Warning(ctx, gotext.Get("Failed to bump %s version: %s", gptIniPath, err))
		}
	}
}

// bumpVersion does the actual bumping of the version in the given GPT.ini file.
func bumpVersion(ctx context.Context, path string) (err error) {
	defer decorate.OnError(&err, gotext.Get("can't bump version for %s", path))
	log.Info(ctx, gotext.Get("Bumping version for %s", path))

	cfg, err := ini.Load(path)

	// If the file doesn't exist, create it and initialize the key to be updated.
	if err != nil {
		log.Info(ctx, gotext.Get("error loading ini contents: %v, creating a new file", err))
		cfg = ini.Empty()
		if _, err := cfg.Section("General").NewKey("Version", "0"); err != nil {
			return err
		}
	}

	v, err := cfg.Section("General").Key("Version").Int()

	// Error out if the key is absent or malformed.
	if err != nil {
		return err
	}

	// Increment the version and write it back to the file.
	v++
	cfg.Section("General").Key("Version").SetValue(strconv.Itoa(v))

	f, err := os.OpenFile(path, os.O_CREATE|os.O_WRONLY|os.O_TRUNC, 0600)
	if err != nil {
		return err
	}
	defer f.Close()
	_, err = cfg.WriteTo(f)

	return err
}
