// Vikunja is a to-do list application to facilitate your life.
// Copyright 2018-2021 Vikunja and contributors. All rights reserved.
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU Affero General Public Licensee as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// 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 Affero General Public Licensee for more details.
//
// You should have received a copy of the GNU Affero General Public Licensee
// along with this program.  If not, see <https://www.gnu.org/licenses/>.

package caldav

import (
	"bytes"
	"fmt"
	"io/ioutil"
	"reflect"
	"strconv"
	"strings"

	"code.vikunja.io/api/pkg/log"
	"code.vikunja.io/api/pkg/models"
	"code.vikunja.io/api/pkg/user"
	"code.vikunja.io/web/handler"
	"github.com/labstack/echo/v4"
	"github.com/samedi/caldav-go"
	"github.com/samedi/caldav-go/lib"
)

func getBasicAuthUserFromContext(c echo.Context) (*user.User, error) {
	u, is := c.Get("userBasicAuth").(*user.User)
	if !is {
		return &user.User{}, fmt.Errorf("user is not user element, is %s", reflect.TypeOf(c.Get("userBasicAuth")))
	}
	return u, nil
}

// ListHandler returns all tasks from a list
func ListHandler(c echo.Context) error {
	listID, err := getIntParam(c, "list")
	if err != nil {
		return err
	}

	u, err := getBasicAuthUserFromContext(c)
	if err != nil {
		log.Error(err)
		return echo.ErrInternalServerError
	}

	storage := &VikunjaCaldavListStorage{
		list: &models.List{ID: listID},
		user: u,
	}

	// Try to parse a task from the request payload
	body, _ := ioutil.ReadAll(c.Request().Body)
	// Restore the io.ReadCloser to its original state
	c.Request().Body = ioutil.NopCloser(bytes.NewBuffer(body))
	// Parse it
	vtodo := string(body)
	if vtodo != "" && strings.HasPrefix(vtodo, `BEGIN:VCALENDAR`) {
		storage.task, err = parseTaskFromVTODO(vtodo)
		if err != nil {
			log.Error(err)
			return echo.ErrInternalServerError
		}
	}

	log.Debugf("[CALDAV] Request Body: %v\n", string(body))
	log.Debugf("[CALDAV] Request Headers: %v\n", c.Request().Header)

	caldav.SetupStorage(storage)
	caldav.SetupUser("dav/lists")
	caldav.SetupSupportedComponents([]string{lib.VCALENDAR, lib.VTODO})
	response := caldav.HandleRequest(c.Request())
	response.Write(c.Response())
	return nil
}

// TaskHandler is the handler which manages updating/deleting a single task
func TaskHandler(c echo.Context) error {
	listID, err := getIntParam(c, "list")
	if err != nil {
		return err
	}

	u, err := getBasicAuthUserFromContext(c)
	if err != nil {
		log.Error(err)
		return echo.ErrInternalServerError
	}

	// Get the task uid
	taskUID := strings.TrimSuffix(c.Param("task"), ".ics")

	storage := &VikunjaCaldavListStorage{
		list: &models.List{ID: listID},
		task: &models.Task{UID: taskUID},
		user: u,
	}

	caldav.SetupStorage(storage)
	response := caldav.HandleRequest(c.Request())
	response.Write(c.Response())
	return nil
}

// PrincipalHandler handles all request to principal resources
func PrincipalHandler(c echo.Context) error {
	u, err := getBasicAuthUserFromContext(c)
	if err != nil {
		log.Error(err)
		return echo.ErrInternalServerError
	}

	storage := &VikunjaCaldavListStorage{
		user:        u,
		isPrincipal: true,
	}

	// Try to parse a task from the request payload
	body, _ := ioutil.ReadAll(c.Request().Body)
	// Restore the io.ReadCloser to its original state
	c.Request().Body = ioutil.NopCloser(bytes.NewBuffer(body))

	log.Debugf("[CALDAV] Request Body: %v\n", string(body))
	log.Debugf("[CALDAV] Request Headers: %v\n", c.Request().Header)

	caldav.SetupStorage(storage)
	caldav.SetupUser("dav/principals/" + u.Username)
	caldav.SetupSupportedComponents([]string{lib.VCALENDAR, lib.VTODO})

	response := caldav.HandleRequest(c.Request())
	response.Write(c.Response())
	return nil
}

// EntryHandler handles all request to principal resources
func EntryHandler(c echo.Context) error {
	u, err := getBasicAuthUserFromContext(c)
	if err != nil {
		log.Error(err)
		return echo.ErrInternalServerError
	}

	storage := &VikunjaCaldavListStorage{
		user:    u,
		isEntry: true,
	}

	// Try to parse a task from the request payload
	body, _ := ioutil.ReadAll(c.Request().Body)
	// Restore the io.ReadCloser to its original state
	c.Request().Body = ioutil.NopCloser(bytes.NewBuffer(body))

	log.Debugf("[CALDAV] Request Body: %v\n", string(body))
	log.Debugf("[CALDAV] Request Headers: %v\n", c.Request().Header)

	caldav.SetupStorage(storage)
	caldav.SetupUser("dav/principals/" + u.Username)
	caldav.SetupSupportedComponents([]string{lib.VCALENDAR, lib.VTODO})

	response := caldav.HandleRequest(c.Request())
	response.Write(c.Response())
	return nil
}

func getIntParam(c echo.Context, paramName string) (intParam int64, err error) {
	param := c.Param(paramName)
	if param == "" {
		return 0, nil
	}

	intParam, err = strconv.ParseInt(param, 10, 64)
	if err != nil {
		return 0, handler.HandleHTTPError(err, c)
	}
	return
}