/*
Copyright 2016 Medcl (m AT medcl.net)

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 (
        "bytes"
        "encoding/json"
        "errors"
        "fmt"
        "io"
        "io/ioutil"
        log "github.com/cihub/seelog"
        "regexp"
        "strings"
)

type ESAPIV0 struct {
        Host      string //eg: http://localhost:9200
        Auth      *Auth  //eg: user:pass
        HttpProxy string //eg: http://proxyIp:proxyPort
}

func (s *ESAPIV0) ClusterHealth() *ClusterHealth {

        url := fmt.Sprintf("%s/_cluster/health", s.Host)
        _, body, errs := Get(url, s.Auth,s.HttpProxy)

        if errs != nil {
                return &ClusterHealth{Name: s.Host, Status: "unreachable"}
        }

        log.Debug(url)
        log.Debug(body)

        health := &ClusterHealth{}
        err := json.Unmarshal([]byte(body), health)

        if err != nil {
                log.Error(body)
                return &ClusterHealth{Name: s.Host, Status: "unreachable"}
        }
        return health
}

func (s *ESAPIV0) Bulk(data *bytes.Buffer) {
        if data == nil || data.Len() == 0 {
                return
        }
        data.WriteRune('\n')
        url := fmt.Sprintf("%s/_bulk", s.Host)

        body,err:=Request("POST",url,s.Auth,data,s.HttpProxy)

        if err != nil {
                log.Error(err)
                return
        }
        log.Trace(url,string(body))
        data.Reset()
}

func (s *ESAPIV0) GetIndexSettings(indexNames string) (*Indexes, error) {

        // get all settings
        allSettings := &Indexes{}

        url := fmt.Sprintf("%s/%s/_settings", s.Host, indexNames)
        resp, body, errs := Get(url, s.Auth,s.HttpProxy)
        if errs != nil {
                return nil, errs[0]
        }
        io.Copy(ioutil.Discard, resp.Body)
        defer resp.Body.Close()

        if resp.StatusCode != 200 {
                return nil, errors.New(body)
        }

        log.Debug(body)

        err := json.Unmarshal([]byte(body), allSettings)
        if err != nil {
                panic(err)
                return nil, err
        }

        return allSettings, nil
}

func (s *ESAPIV0) GetIndexMappings(copyAllIndexes bool, indexNames string) (string, int, *Indexes, error) {
        url := fmt.Sprintf("%s/%s/_mapping", s.Host, indexNames)
        resp, body, errs := Get(url, s.Auth,s.HttpProxy)
        if errs != nil {
                log.Error(errs)
                return "", 0, nil, errs[0]
        }
        io.Copy(ioutil.Discard, resp.Body)
        defer resp.Body.Close()

        if resp.StatusCode != 200 {
                return "", 0, nil, errors.New(body)
        }

        idxs := Indexes{}
        er := json.Unmarshal([]byte(body), &idxs)

        if er != nil {
                log.Error(body)
                return "", 0, nil, er
        }

        // remove indexes that start with . if user asked for it
        //if copyAllIndexes == false {
        //      for name := range idxs {
        //              switch name[0] {
        //              case '.':
        //                      delete(idxs, name)
        //              case '_':
        //                      delete(idxs, name)
        //
//
//                      }
//              }
//      }

        // if _all indexes limit the list of indexes to only these that we kept
        // after looking at mappings
        if indexNames == "_all" {

                var newIndexes []string
                for name := range idxs {
                        newIndexes = append(newIndexes, name)
                }
                indexNames = strings.Join(newIndexes, ",")

        } else if strings.Contains(indexNames, "*") || strings.Contains(indexNames, "?") {

                r, _ := regexp.Compile(indexNames)

                //check index patterns
                var newIndexes []string
                for name := range idxs {
                        matched := r.MatchString(name)
                        if matched {
                                newIndexes = append(newIndexes, name)
                        }
                }
                indexNames = strings.Join(newIndexes, ",")

        }

        i := 0
        // wrap in mappings if moving from super old es
        for name, idx := range idxs {
                i++
                if _, ok := idx.(map[string]interface{})["mappings"]; !ok {
                        (idxs)[name] = map[string]interface{}{
                                "mappings": idx,
                        }
                }
        }

        return indexNames, i, &idxs, nil
}

func getEmptyIndexSettings() map[string]interface{} {
        tempIndexSettings := map[string]interface{}{}
        tempIndexSettings["settings"] = map[string]interface{}{}
        tempIndexSettings["settings"].(map[string]interface{})["index"] = map[string]interface{}{}
        return tempIndexSettings
}

func cleanSettings(settings map[string]interface{}) {
        //clean up settings
        delete(settings["settings"].(map[string]interface{})["index"].(map[string]interface{}), "creation_date")
        delete(settings["settings"].(map[string]interface{})["index"].(map[string]interface{}), "uuid")
        delete(settings["settings"].(map[string]interface{})["index"].(map[string]interface{}), "version")
        delete(settings["settings"].(map[string]interface{})["index"].(map[string]interface{}), "provided_name")
}

func (s *ESAPIV0) UpdateIndexSettings(name string, settings map[string]interface{}) error {

        log.Debug("update index: ", name, settings)
        cleanSettings(settings)
        url := fmt.Sprintf("%s/%s/_settings", s.Host, name)

        if _, ok := settings["settings"].(map[string]interface{})["index"]; ok {
                if set, ok := settings["settings"].(map[string]interface{})["index"].(map[string]interface{})["analysis"]; ok {
                        log.Debug("update static index settings: ", name)
                        staticIndexSettings := getEmptyIndexSettings()
                        staticIndexSettings["settings"].(map[string]interface{})["index"].(map[string]interface{})["analysis"] = set
                        Post(fmt.Sprintf("%s/%s/_close", s.Host, name), s.Auth, "",s.HttpProxy)
                        body := bytes.Buffer{}
                        enc := json.NewEncoder(&body)
                        enc.Encode(staticIndexSettings)
                        bodyStr, err := Request("PUT", url, s.Auth, &body,s.HttpProxy)
                        if err != nil {
                                log.Error(bodyStr, err)
                                panic(err)
                                return err
                        }
                        delete(settings["settings"].(map[string]interface{})["index"].(map[string]interface{}), "analysis")
                        Post(fmt.Sprintf("%s/%s/_open", s.Host, name), s.Auth, "",s.HttpProxy)
                }
        }

        log.Debug("update dynamic index settings: ", name)

        body := bytes.Buffer{}
        enc := json.NewEncoder(&body)
        enc.Encode(settings)
        _, err := Request("PUT", url, s.Auth, &body,s.HttpProxy)

        return err
}

func (s *ESAPIV0) UpdateIndexMapping(indexName string, settings map[string]interface{}) error {

        log.Debug("start update mapping: ", indexName,settings)

        for name, mapping := range settings {

                log.Debug("start update mapping: ", indexName,name,mapping)

                url := fmt.Sprintf("%s/%s/%s/_mapping", s.Host, indexName, name)

                body := bytes.Buffer{}
                enc := json.NewEncoder(&body)
                enc.Encode(mapping)
                res, err := Request("POST", url, s.Auth, &body,s.HttpProxy)
                if(err!=nil){
                        log.Error(url)
                        log.Error(body.String())
                        log.Error(err,res)
                        panic(err)
                }
        }
        return nil
}

func (s *ESAPIV0) DeleteIndex(name string) (err error) {

        log.Debug("start delete index: ", name)

        url := fmt.Sprintf("%s/%s", s.Host, name)

        Request("DELETE", url, s.Auth, nil,s.HttpProxy)

        log.Debug("delete index: ", name)

        return nil
}

func (s *ESAPIV0) CreateIndex(name string, settings map[string]interface{}) (err error) {
        cleanSettings(settings)

        body := bytes.Buffer{}
        enc := json.NewEncoder(&body)
        enc.Encode(settings)
        log.Debug("start create index: ", name, settings)

        url := fmt.Sprintf("%s/%s", s.Host, name)

        resp, err := Request("PUT", url, s.Auth, &body,s.HttpProxy)
        log.Debugf("response: %s",resp)

        return err
}

func (s *ESAPIV0) Refresh(name string) (err error) {


        log.Debug("refresh index: ", name)

        url := fmt.Sprintf("%s/%s/_refresh", s.Host, name)

        Post(url,s.Auth,"",s.HttpProxy)

        return nil
}

func (s *ESAPIV0) NewScroll(indexNames string, scrollTime string, docBufferCount int,query string, slicedId,maxSlicedCount int, fields string) (scroll *Scroll, err error) {

        // curl -XGET 'http://es-0.9:9200/_search?search_type=scan&scroll=10m&size=50'
        url := fmt.Sprintf("%s/%s/_search?search_type=scan&scroll=%s&size=%d", s.Host, indexNames, scrollTime, docBufferCount)

        jsonBody:=""
        if len(query) > 0 || len(fields) > 0 {
                queryBody := map[string]interface{}{}
                if len(fields) > 0 {
                        if !strings.Contains(fields, ",") {
                                log.Error("The fields shoud be seraprated by ,")
                                return
                        } else {
                                queryBody["_source"] = strings.Split(fields, ",")
                        }
                }

                if len(query) > 0 {
                        queryBody["query"] = map[string]interface{}{}
                        queryBody["query"].(map[string]interface{})["query_string"] = map[string]interface{}{}
                        queryBody["query"].(map[string]interface{})["query_string"].(map[string]interface{})["query"] = query

                        jsonArray, err := json.Marshal(queryBody)
                        if err != nil {
                                log.Error(err)

                        } else {
                                jsonBody = string(jsonArray)
                        }
                }

        }
        resp, body, errs := Post(url, s.Auth,jsonBody,s.HttpProxy)



        if err != nil {
                log.Error(errs)
                return nil, errs[0]
        }
        io.Copy(ioutil.Discard, resp.Body)
        defer resp.Body.Close()

        log.Trace("new scroll,",url, body)

        if err != nil {
                log.Error(err)
                return nil, err
        }

        if resp.StatusCode != 200 {
                return nil, errors.New(body)
        }

        scroll = &Scroll{}
        err = json.Unmarshal([]byte(body), scroll)
        if err != nil {
                log.Error(err)
                return nil, err
        }

        return scroll, err
}

func (s *ESAPIV0) NextScroll(scrollTime string, scrollId string) (*Scroll, error) {
        //  curl -XGET 'http://es-0.9:9200/_search/scroll?scroll=5m'
        id := bytes.NewBufferString(scrollId)
        url := fmt.Sprintf("%s/_search/scroll?scroll=%s&scroll_id=%s", s.Host, scrollTime, id)
        resp, body, errs := Get(url, s.Auth,s.HttpProxy)
        if errs != nil {
                log.Error(errs)
                return nil, errs[0]
        }

        if resp.StatusCode != 200 {
                return nil, errors.New(body)
        }

        io.Copy(ioutil.Discard, resp.Body)
        defer resp.Body.Close()

        log.Trace("next scroll,",url,body)

        // decode elasticsearch scroll response
        scroll := &Scroll{}
        err := json.Unmarshal([]byte(body), &scroll)
        if err != nil {
                log.Error(body)
                log.Error(err)
                return nil, err
        }

        return scroll, nil
}