// -*- Mode: Go; indent-tabs-mode: t -*-

/*
 * Copyright (C) 2014-2016 Canonical Ltd
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License version 3 as
 * published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

package backend

import (
	"errors"
	"fmt"
	"os"
	"path/filepath"
	unix "syscall"

	"github.com/snapcore/snapd/dirs"
	"github.com/snapcore/snapd/logger"
	"github.com/snapcore/snapd/osutil"
	"github.com/snapcore/snapd/release"
	"github.com/snapcore/snapd/snap"
)

// RemoveSnapData removes the data for the given version of the given snap.
func (b Backend) RemoveSnapData(snap *snap.Info, opts *dirs.SnapDirOptions) error {
	dirs, err := snapDataDirs(snap, opts)
	if err != nil {
		return err
	}

	return removeDirs(dirs)
}

// RemoveSnapCommonData removes the data common between versions of the given snap.
func (b Backend) RemoveSnapCommonData(snap *snap.Info, opts *dirs.SnapDirOptions) error {
	dirs, err := snapCommonDataDirs(snap, opts)
	if err != nil {
		return err
	}

	return removeDirs(dirs)
}

// RemoveSnapSaveData removes the common save data in the case of a complete removal of a snap.
func (b Backend) RemoveSnapSaveData(snapInfo *snap.Info) error {
	if release.OnClassic {
		return nil
	}

	saveDir := snap.CommonDataSaveDir(snapInfo.InstanceName())
	if exists, isDir, err := osutil.DirExists(saveDir); err == nil && !(exists && isDir) {
		return nil
	} else if err != nil {
		return err
	}
	return os.RemoveAll(saveDir)
}

// RemoveSnapDataDir removes base snap data directory
func (b Backend) RemoveSnapDataDir(info *snap.Info, hasOtherInstances bool) error {
	if info.InstanceKey != "" {
		// data directories of snaps with instance key are never used by
		// other instances
		if err := os.Remove(snap.BaseDataDir(info.InstanceName())); err != nil && !os.IsNotExist(err) {
			return fmt.Errorf("failed to remove snap %q base directory: %v", info.InstanceName(), err)
		}
	}
	if !hasOtherInstances {
		// remove the snap base directory only if there are no other
		// snap instances using it
		if err := os.Remove(snap.BaseDataDir(info.SnapName())); err != nil && !os.IsNotExist(err) {
			return fmt.Errorf("failed to remove snap %q base directory: %v", info.SnapName(), err)
		}
	}

	return nil
}

func (b Backend) untrashData(snap *snap.Info, opts *dirs.SnapDirOptions) error {
	dirs, err := snapDataDirs(snap, opts)
	if err != nil {
		return err
	}

	for _, d := range dirs {
		if e := untrash(d); e != nil {
			err = e
		}
	}

	return err
}

func removeDirs(dirs []string) error {
	for _, dir := range dirs {
		if err := os.RemoveAll(dir); err != nil {
			return err
		}
	}

	return nil
}

// snapDataDirs returns the list of data directories for the given snap version
func snapDataDirs(snap *snap.Info, opts *dirs.SnapDirOptions) ([]string, error) {
	// collect the directories, homes first
	found, err := filepath.Glob(snap.DataHomeDir(opts))
	if err != nil {
		return nil, err
	}
	// then the /root user (including GlobalRootDir for tests)
	found = append(found, snap.UserDataDir(filepath.Join(dirs.GlobalRootDir, "/root/"), opts))
	// then system data
	found = append(found, snap.DataDir())

	return found, nil
}

// snapCommonDataDirs returns the list of data directories common between versions of the given snap
func snapCommonDataDirs(snap *snap.Info, opts *dirs.SnapDirOptions) ([]string, error) {
	// collect the directories, homes first
	found, err := filepath.Glob(snap.CommonDataHomeDir(opts))
	if err != nil {
		return nil, err
	}

	// then the root user's common data dir
	rootCommon := snap.UserCommonDataDir(filepath.Join(dirs.GlobalRootDir, "/root/"), opts)
	found = append(found, rootCommon)

	// then XDG_RUNTIME_DIRs for the users
	foundXdg, err := filepath.Glob(snap.XdgRuntimeDirs())
	if err != nil {
		return nil, err
	}
	found = append(found, foundXdg...)

	// then system data
	found = append(found, snap.CommonDataDir())

	return found, nil
}

// Copy all data for oldSnap to newSnap
// (but never overwrite)
func copySnapData(oldSnap, newSnap *snap.Info, opts *dirs.SnapDirOptions) (err error) {
	oldDataDirs, err := snapDataDirs(oldSnap, opts)
	if err != nil {
		return err
	}
	done := make([]string, 0, len(oldDataDirs))
	defer func() {
		if err == nil {
			return
		}
		// something went wrong, but we'd already written stuff. Fix that.
		for _, newDir := range done {
			if err := os.RemoveAll(newDir); err != nil {
				logger.Noticef("while undoing creation of new data directory %q: %v", newDir, err)
			}
			if err := untrash(newDir); err != nil {
				logger.Noticef("while restoring the old version of data directory %q: %v", newDir, err)
			}
		}
	}()

	newSuffix := filepath.Base(newSnap.DataDir())
	for _, oldDir := range oldDataDirs {
		// replace the trailing "../$old-suffix" with the "../$new-suffix"
		newDir := filepath.Join(filepath.Dir(oldDir), newSuffix)
		if err := copySnapDataDirectory(oldDir, newDir); err != nil {
			return err
		}
		done = append(done, newDir)
	}

	return nil
}

// trashPath returns the trash path for the given path. This will
// differ only in the last element.
func trashPath(path string) string {
	return path + ".old"
}

// trash moves path aside, if it exists. If the trash for the path
// already exists and is not empty it will be removed first.
func trash(path string) error {
	trash := trashPath(path)
	err := os.Rename(path, trash)
	if err == nil {
		return nil
	}
	// os.Rename says it always returns *os.LinkError. Be wary.
	e, ok := err.(*os.LinkError)
	if !ok {
		return err
	}

	switch e.Err {
	case unix.ENOENT:
		// path does not exist (here we use that trashPath(path) and path differ only in the last element)
		return nil
	case unix.ENOTEMPTY, unix.EEXIST:
		// path exists, but trash already exists and is non-empty
		// (empirically always ENOTEMPTY but rename(2) says it can also be EEXIST)
		// nuke the old trash and try again
		if err := os.RemoveAll(trash); err != nil {
			// well, that didn't work :-(
			return err
		}
		return os.Rename(path, trash)
	default:
		// WAT
		return err
	}
}

// untrash moves the trash for path back in, if it exists.
func untrash(path string) error {
	err := os.Rename(trashPath(path), path)
	if !os.IsNotExist(err) {
		return err
	}

	return nil
}

// clearTrash removes the trash made for path, if it exists.
func clearTrash(path string) error {
	err := os.RemoveAll(trashPath(path))
	if !os.IsNotExist(err) {
		return err
	}

	return nil
}

// Lowlevel copy the snap data (but never override existing data)
func copySnapDataDirectory(oldPath, newPath string) (err error) {
	if _, err := os.Stat(oldPath); err == nil {
		if err := trash(newPath); err != nil {
			return err
		}

		if _, err := os.Stat(newPath); err != nil {
			if err := osutil.CopyFile(oldPath, newPath, osutil.CopyFlagPreserveAll|osutil.CopyFlagSync); err != nil {
				msg := fmt.Sprintf("cannot copy %q to %q: %v", oldPath, newPath, err)
				// remove the directory, in case it was a partial success
				if e := os.RemoveAll(newPath); e != nil && !os.IsNotExist(e) {
					msg += fmt.Sprintf("; and when trying to remove the partially-copied new data directory: %v", e)
				}
				// something went wrong but we already trashed what was there
				// try to fix that; hope for the best
				if e := untrash(newPath); e != nil {
					// oh noes
					// TODO: issue a warning to the user that data was lost
					msg += fmt.Sprintf("; and when trying to restore the old data directory: %v", e)
				}

				return errors.New(msg)
			}
		}
	} else if !os.IsNotExist(err) {
		return err
	}

	return nil
}
