/*
Copyright 2015 The Kubernetes Authors All rights reserved.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
*/

package main

import (
	"github.com/ghodss/yaml"

	"github.com/kubernetes/deployment-manager/common"
	"github.com/kubernetes/deployment-manager/expandybird/expander"

	"archive/tar"
	"bytes"
	"encoding/json"
	"flag"
	"fmt"
	"io"
	"io/ioutil"
	"log"
	"net/http"
	"net/url"
	"os"
	"strconv"
	"strings"
	"time"
)

var (
	deploymentName = flag.String("name", "", "Name of deployment, used for deploy and update commands (defaults to template name)")
	stdin          = flag.Bool("stdin", false, "Reads a configuration from the standard input")
	properties     = flag.String("properties", "", "Properties to use when deploying a template (e.g., --properties k1=v1,k2=v2)")
	// TODO(vaikas): CHange the default name once we figure out where the charts live.
	templateRegistry = flag.String("registry", "application-dm-templates", "Registry name")
	service          = flag.String("service", "http://localhost:8001/api/v1/proxy/namespaces/dm/services/manager-service:manager", "URL for deployment manager")
	binary           = flag.String("binary", "../expandybird/expansion/expansion.py", "Path to template expansion binary")
	timeout          = flag.Int("timeout", 20, "Time in seconds to wait for response")
	regexString      = flag.String("regex", "", "Regular expression to filter the templates listed in a template registry")
	username         = flag.String("username", "", "Github user name that overrides GITHUB_USERNAME environment variable")
	password         = flag.String("password", "", "Github password that overrides GITHUB_PASSWORD environment variable")
	apitoken         = flag.String("apitoken", "", "Github api token that overrides GITHUB_API_TOKEN environment variable")
	serviceaccount   = flag.String("serviceaccount", "", "Service account file containing JWT token")
	registryfile     = flag.String("registryfile", "", "File containing registry specification")
)

var commands = []string{
	"expand \t\t\t Expands the supplied configuration(s)",
	"deploy \t\t\t Deploys the named template or the supplied configuration(s)",
	"list \t\t\t Lists the deployments in the cluster",
	"get \t\t\t Retrieves the supplied deployment",
	"manifest \t\t\t Lists manifests for deployment or retrieves the supplied manifest in the form (deployment[/manifest])",
	"delete \t\t\t Deletes the supplied deployment",
	"update \t\t\t Updates a deployment using the supplied configuration(s)",
	"deployed-types \t\t Lists the types deployed in the cluster",
	"deployed-instances \t Lists the instances of the named type deployed in the cluster",
	"templates \t\t Lists the templates in a given template registry (specified with --registry)",
	"registries \t\t Lists the registries available",
	"describe \t\t Describes the named template in a given template registry",
	"getcredential \t\t Gets the named credential used by a registry",
	"setcredential \t\t Sets a credential used by a registry",
	"createregistry \t\t Creates a registry that holds charts",
}

var usage = func() {
	message := "Usage: %s [<flags>] <command> [(<template-name> | <deployment-name> | (<configuration> [<import1>...<importN>]))]\n"
	fmt.Fprintf(os.Stderr, message, os.Args[0])
	fmt.Fprintln(os.Stderr, "Commands:")
	for _, command := range commands {
		fmt.Fprintln(os.Stderr, command)
	}

	fmt.Fprintln(os.Stderr)
	fmt.Fprintln(os.Stderr, "Flags:")
	flag.PrintDefaults()
	fmt.Fprintln(os.Stderr)
	fmt.Fprintln(os.Stderr, "--stdin requires a file name and either the file contents or a tar archive containing the named file.")
	fmt.Fprintln(os.Stderr, "        a tar archive may include any additional files referenced directly or indirectly by the named file.")
	os.Exit(0)
}

func getCredential() *common.RegistryCredential {
	*apitoken = strings.TrimSpace(*apitoken)
	if *apitoken == "" {
		*apitoken = strings.TrimSpace(os.Getenv("GITHUB_API_TOKEN"))
	}

	if *apitoken != "" {
		return &common.RegistryCredential{
			APIToken: common.APITokenCredential(*apitoken),
		}
	}

	*username = strings.TrimSpace(*username)
	if *username == "" {
		*username = strings.TrimSpace(os.Getenv("GITHUB_USERNAME"))
	}

	if *username != "" {
		*password = strings.TrimSpace(*password)
		if *password == "" {
			*password = strings.TrimSpace(os.Getenv("GITHUB_PASSWORD"))
		}

		return &common.RegistryCredential{
			BasicAuth: common.BasicAuthCredential{
				Username: *username,
				Password: *password,
			},
		}
	}

	if *serviceaccount != "" {
		b, err := ioutil.ReadFile(*serviceaccount)
		if err != nil {
			log.Fatalf("Unable to read service account file: %v", err)
		}
		return &common.RegistryCredential{
			ServiceAccount: common.JWTTokenCredential(string(b)),
		}
	}
	return nil
}

func init() {
	flag.Usage = usage
}

func getRegistry() ([]byte, error) {
	if *registryfile == "" {
		log.Fatalf("No registryfile specified (-registryfile)")
	}
	return ioutil.ReadFile(*registryfile)
}

func main() {
	defer func() {
		result := recover()
		if result != nil {
			log.Fatalln(result)
		}
	}()

	execute()
	os.Exit(0)
}

func execute() {
	flag.Parse()
	args := flag.Args()
	if len(args) < 1 {
		usage()
	}

	switch args[0] {
	case "templates":
		path := fmt.Sprintf("registries/%s/types", *templateRegistry)
		callService(path, "GET", "list templates", nil)
	case "describe":
		describeType(args)
	case "expand":
		template := loadTemplate(args)
		callService("expand", "POST", "expand configuration", marshalTemplate(template))
	case "deploy":
		template := loadTemplate(args)
		action := fmt.Sprintf("deploy configuration named %s", template.Name)
		callService("deployments", "POST", action, marshalTemplate(template))
	case "list":
		callService("deployments", "GET", "list deployments", nil)
	case "getcredential":
		path := fmt.Sprintf("credentials/%s", args[1])
		callService(path, "GET", "get credential", nil)
	case "setcredential":
		c := getCredential()
		if c == nil {
			panic(fmt.Errorf("Failed to create a credential from flags/arguments"))
		}
		y, err := yaml.Marshal(c)
		if err != nil {
			panic(fmt.Errorf("Failed to serialize credential: %#v : %s", c, err))
		}

		path := fmt.Sprintf("credentials/%s", args[1])
		callService(path, "POST", "set credential", ioutil.NopCloser(bytes.NewReader(y)))
	case "createregistry":
		reg, err := getRegistry()
		if err != nil {
			panic(fmt.Errorf("Failed to create a registry from arguments: %#v", err))
		}
		path := fmt.Sprintf("registries/%s", *templateRegistry)
		callService(path, "POST", "create registry", ioutil.NopCloser(bytes.NewReader(reg)))
	case "get":
		if len(args) < 2 {
			fmt.Fprintln(os.Stderr, "No deployment name supplied")
			os.Exit(1)
		}

		path := fmt.Sprintf("deployments/%s", args[1])
		action := fmt.Sprintf("get deployment named %s", args[1])
		callService(path, "GET", action, nil)
	case "manifest":
		msg := "Must specify manifest in the form <deployment>/<manifest> or <deployment> to list."
		if len(args) < 2 {
			fmt.Fprintln(os.Stderr, msg)
			os.Exit(1)
		}

		s := strings.Split(args[1], "/")
		ls := len(s)
		if ls < 1 || ls > 2 {
			fmt.Fprintln(os.Stderr, fmt.Sprintf("Invalid manifest (%s), %s", args[1], msg))
			os.Exit(1)
		}

		path := fmt.Sprintf("deployments/%s/manifests", s[0])
		if ls == 2 {
			path = path + fmt.Sprintf("/%s", s[1])
		}

		action := fmt.Sprintf("get manifest %s", args[1])
		callService(path, "GET", action, nil)
	case "delete":
		if len(args) < 2 {
			fmt.Fprintln(os.Stderr, "No deployment name supplied")
			os.Exit(1)
		}

		path := fmt.Sprintf("deployments/%s", args[1])
		action := fmt.Sprintf("delete deployment named %s", args[1])
		callService(path, "DELETE", action, nil)
	case "update":
		template := loadTemplate(args)
		path := fmt.Sprintf("deployments/%s", template.Name)
		action := fmt.Sprintf("delete deployment named %s", template.Name)
		callService(path, "PUT", action, marshalTemplate(template))
	case "deployed-types":
		callService("types", "GET", "list deployed types", nil)
	case "deployed-instances":
		if len(args) < 2 {
			fmt.Fprintln(os.Stderr, "No type name supplied")
			os.Exit(1)
		}

		tUrls := getDownloadURLs(args[1])
		var tURL = ""
		if len(tUrls) == 0 {
			// Type is most likely a primitive.
			tURL = args[1]
		} else {
			// TODO(vaikas): Support packages properly.
			tURL = tUrls[0]
		}
		path := fmt.Sprintf("types/%s/instances", url.QueryEscape(tURL))
		action := fmt.Sprintf("list deployed instances of type %s", tURL)
		callService(path, "GET", action, nil)
	case "registries":
		callService("registries", "GET", "list registries", nil)
	default:
		fmt.Fprintf(os.Stderr, "Error: unknown command '%s' for 'dm'\n", args[0])
		fmt.Fprintln(os.Stderr, "Run 'dm --help' for usage")
		os.Exit(1)
	}
}

func callService(path, method, action string, reader io.ReadCloser) {
	u := fmt.Sprintf("%s/%s", *service, path)

	resp := callHTTP(u, method, action, reader)
	var j interface{}
	if err := json.Unmarshal([]byte(resp), &j); err != nil {
		panic(fmt.Errorf("Failed to parse JSON response from service: %s", resp))
	}

	y, err := yaml.Marshal(j)
	if err != nil {
		panic(fmt.Errorf("Failed to serialize JSON response from service: %s", resp))
	}

	fmt.Println(string(y))
}

func callHTTP(path, method, action string, reader io.ReadCloser) string {
	request, err := http.NewRequest(method, path, reader)
	request.Header.Add("Content-Type", "application/json")

	client := http.Client{
		Timeout: time.Duration(time.Duration(*timeout) * time.Second),
	}

	response, err := client.Do(request)
	if err != nil {
		panic(fmt.Errorf("cannot %s: %s\n", action, err))
	}

	defer response.Body.Close()
	body, err := ioutil.ReadAll(response.Body)
	if err != nil {
		panic(fmt.Errorf("cannot %s: %s\n", action, err))
	}

	if response.StatusCode < http.StatusOK ||
		response.StatusCode >= http.StatusMultipleChoices {
		message := fmt.Sprintf("status code: %d status: %s : %s", response.StatusCode, response.Status, body)
		panic(fmt.Errorf("cannot %s: %s\n", action, message))
	}

	return string(body)
}

// describeType prints the schema for a type specified by either a
// template URL or a fully qualified registry type name (e.g.,
// <type-name>:<version>)
func describeType(args []string) {
	if len(args) != 2 {
		fmt.Fprintln(os.Stderr, "No type name or URL supplied")
		os.Exit(1)
	}

	tUrls := getDownloadURLs(url.QueryEscape(args[1]))
	if len(tUrls) == 0 {
		panic(fmt.Errorf("Invalid type name, must be a template URL or in the form \"<type-name>:<version>\": %s", args[1]))
	}

	if !strings.Contains(tUrls[0], ".prov") {
		// It's not a chart, so grab the schema
		path := fmt.Sprintf("registries/%s/download?file=%s.schema", *templateRegistry, url.QueryEscape(tUrls[0]))
		callService(path, "GET", "get schema for type ("+tUrls[0]+")", nil)
	} else {
		// It's a chart, so grab the provenance file
		path := fmt.Sprintf("registries/%s/download?file=%s", *templateRegistry, url.QueryEscape(tUrls[0]))
		callService(path, "GET", "get file", nil)
	}
}

// getDownloadURLs returns URLs for a type in the given registry
func getDownloadURLs(tName string) []string {
	path := fmt.Sprintf("%s/registries/%s/types/%s", *service, *templateRegistry, url.QueryEscape(tName))
	resp := callHTTP(path, "GET", "get download urls", nil)
	u := []string{}
	if err := json.Unmarshal([]byte(resp), &u); err != nil {
		panic(fmt.Errorf("Failed to parse JSON response from service: %s", resp))
	}
	return u
}

func loadTemplate(args []string) *common.Template {
	var template *common.Template
	var err error
	if len(args) < 2 {
		fmt.Fprintln(os.Stderr, "No template name or configuration(s) supplied")
		os.Exit(1)
	}

	if *stdin {
		if len(args) < 2 {
			os.Exit(1)
		}

		input, err := ioutil.ReadAll(os.Stdin)
		if err != nil {
			panic(err)
		}

		r := bytes.NewReader(input)
		template, err = expander.NewTemplateFromArchive(args[1], r, args[2:])
		if err != nil {
			if err != tar.ErrHeader {
				panic(err)
			}

			r := bytes.NewReader(input)
			template, err = expander.NewTemplateFromReader(args[1], r, args[2:])
			if err != nil {
				panic(fmt.Errorf("cannot create configuration from supplied arguments: %s\n", err))
			}
		}
	} else {
		// See if the first argument is a local file. It could either be a type, or it could be a configuration. If
		// it's a local file, it's configuration.
		if _, err := os.Stat(args[1]); err == nil {
			if len(args) > 2 {
				template, err = expander.NewTemplateFromFileNames(args[1], args[2:])
			} else {
				template, err = expander.NewTemplateFromRootTemplate(args[1])
			}
		} else {
			template = buildTemplateFromType(args[1])
		}

		if err != nil {
			panic(fmt.Errorf("cannot create configuration from supplied arguments: %s\n", err))
		}
	}

	// Override name if set from flags.
	if *deploymentName != "" {
		template.Name = *deploymentName
	}

	return template
}

func buildTemplateFromType(t string) *common.Template {
	props := make(map[string]interface{})
	if *properties != "" {
		plist := strings.Split(*properties, ",")
		for _, p := range plist {
			ppair := strings.Split(p, "=")
			if len(ppair) != 2 {
				panic(fmt.Errorf("--properties must be in the form \"p1=v1,p2=v2,...\": %s\n", p))
			}

			// support ints
			// TODO: needs to support other types.
			i, err := strconv.Atoi(ppair[1])
			if err != nil {
				props[ppair[0]] = ppair[1]
			} else {
				props[ppair[0]] = i
			}
		}
	}

	// Name the deployment after the type name.
	name := t

	config := common.Configuration{Resources: []*common.Resource{&common.Resource{
		Name:       name,
		Type:       getDownloadURLs(t)[0],
		Properties: props,
	}}}

	y, err := yaml.Marshal(config)
	if err != nil {
		panic(fmt.Errorf("error: %s\ncannot create configuration for deployment: %v\n", err, config))
	}

	return &common.Template{
		Name:    name,
		Content: string(y),
		// No imports, as this is a single type from repository.
	}
}

func marshalTemplate(template *common.Template) io.ReadCloser {
	j, err := json.Marshal(template)
	if err != nil {
		panic(fmt.Errorf("cannot deploy configuration %s: %s\n", template.Name, err))
	}

	return ioutil.NopCloser(bytes.NewReader(j))
}

func getRandomName() string {
	return fmt.Sprintf("manifest-%d", time.Now().UTC().UnixNano())
}