/*
 * Copyright (c) 2021. Lorem ipsum dolor sit amet, consectetur adipiscing elit.
 * Morbi non lorem porttitor neque feugiat blandit. Ut vitae ipsum eget quam lacinia accumsan.
 * Etiam sed turpis ac ipsum condimentum fringilla. Maecenas magna.
 * Proin dapibus sapien vel ante. Aliquam erat volutpat. Pellentesque sagittis ligula eget metus.
 * Vestibulum commodo. Ut rhoncus gravida arcu.
 */

package process_master

import (
	"context"
	"crypto/tls"
	"encoding/json"
	"fmt"
	"io"
	"net"
	"net/http"
	"net/url"
	"strings"

	"gitee.com/meng_mengs_boys/eosc/etcd"
	"gitee.com/meng_mengs_boys/eosc/process"
	"gitee.com/meng_mengs_boys/eosc/process-master/extender"
	open_api "gitee.com/meng_mengs_boys/eosc/process-master/open-api"
	raft_service "gitee.com/meng_mengs_boys/eosc/process-master/raft-service"
	unix_proxy "gitee.com/meng_mengs_boys/eosc/process-master/unix-proxy"
	"gitee.com/meng_mengs_boys/eosc/router"
	"gitee.com/meng_mengs_boys/eosc/traffic/mixl"
	"gitee.com/meng_mengs_boys/eosc/utils"

	"gitee.com/meng_mengs_boys/eosc/config"

	"gitee.com/meng_mengs_boys/eosc/env"

	"gitee.com/meng_mengs_boys/eosc"

	"gitee.com/meng_mengs_boys/eosc/log"
	"gitee.com/meng_mengs_boys/eosc/pidfile"
	"gitee.com/meng_mengs_boys/eosc/traffic"

	"google.golang.org/grpc"

	"os"
	"os/signal"
	"syscall"
)

func Process() {
	ProcessDo(nil)
}
func ProcessDo(handler *MasterHandler) {
	logWriter, logHandler := utils.InitMasterLog()
	handler.logHandler = logHandler
	log.Debug("master start:", os.Getpid(), ":", os.Getppid())

	pFile, err := pidfile.New()
	if err != nil {
		log.Errorf("the process-master is running:%v by:%d", err, os.Getpid())
		return
	}
	cfg := config.Load()
	log.Debug(cfg)
	master, err := NewMasterHandle(logWriter, cfg)
	if err != nil {
		log.Errorf("process-master[%d] start faild:%v", os.Getpid(), err)
		return
	}
	if err := master.Start(handler); err != nil {
		master.close()
		log.Errorf("process-master[%d] start faild:%v", os.Getpid(), err)
		return
	}

	master.Wait(pFile)
	pFile.Remove()
}

type Master struct {
	//service.UnimplementedMasterServer
	config           config.NConfig
	etcdServer       etcd.Etcd
	adminTraffic     *traffic.TrafficData
	workerTraffic    *traffic.TrafficData
	masterSrv        *grpc.Server
	ctx              context.Context
	cancelFunc       context.CancelFunc
	httpserver       []*http.Server
	logWriter        io.Writer
	dataController   *DataController
	workerController *WorkerController
	adminController  *AdminController
	dispatcherServe  *DispatcherServer
	adminClient      *unix_proxy.UnixClient
	workerClient     *unix_proxy.UnixClient
}

type MasterHandler struct {
	InitProfession func() []*eosc.ProfessionConfig
	VersionHandler func(etcd2 etcd.Etcd) http.Handler
	logHandler     func(prefix string) http.Handler
}

func (mh *MasterHandler) initHandler() {
	if mh.VersionHandler == nil {
		mh.VersionHandler = func(server etcd.Etcd) http.Handler {
			return http.HandlerFunc(func(w http.ResponseWriter, r *http.Request) {
				version := server.Version()
				json.NewEncoder(w).Encode(version)
			})
		}
	}
}

func (m *Master) start(handler *MasterHandler, etcdServer etcd.Etcd) error {

	if handler == nil {
		handler = new(MasterHandler)
	}

	handler.initHandler()

	raftService := raft_service.NewService(func(config map[string]map[string][]byte) map[string]map[string][]byte {
		if config == nil {
			config = make(map[string]map[string][]byte)
		}
		if handler.InitProfession != nil {

			if ps, has := config[eosc.NamespaceProfession]; !has || len(ps) == 0 {
				ps = make(map[string][]byte)
				pl := handler.InitProfession()
				for _, p := range pl {
					data, _ := json.Marshal(p)
					ps[p.Name] = data
				}
				config[eosc.NamespaceProfession] = ps
			}
		}
		return config
	})

	m.adminController = NewAdminConfig(raftService, process.NewProcessController(m.ctx, eosc.ProcessAdmin, m.logWriter, m.adminClient))
	m.workerController = NewWorkerController(m.workerTraffic, m.config.Gateway, process.NewProcessController(m.ctx, eosc.ProcessWorker, m.logWriter, m.workerClient))

	m.dispatcherServe = NewDispatcherServer()
	extenderManager := extender.NewManager(m.ctx, extender.GenCallbackList(m.dispatcherServe, m.workerController))
	m.dataController = NewDataController(raftService, extenderManager, m.dispatcherServe)

	etcdServer.Watch("/", raftService)
	etcdServer.HandlerLeader(m.adminController)

	return nil
}

func (m *Master) Start(handler *MasterHandler) error {
	for _, uri := range m.config.Gateway.AdvertiseUrls {
		// 设置网关IP
		u, err := url.Parse(uri)
		if err != nil {
			log.Errorf("parse advertise url(%s) error:", uri, err)
			continue
		}
		index := strings.Index(u.Host, ":")
		host := u.Host
		if index >= 0 {
			host = u.Host[:index]
		}
		os.Setenv("gateway_ip", host)
		break
	}
	etcdMux, err := m.listen(m.config.Peer)
	if err != nil {
		return err
	}
	openApiMux, err := m.listen(m.config.Client)
	if err != nil {
		return err
	}
	etcdServer, err := etcd.NewServer(m.ctx, etcdMux, etcd.Config{
		PeerAdvertiseUrls:    m.config.Peer.AdvertiseUrls,
		ClientAdvertiseUrls:  m.config.Client.AdvertiseUrls,
		GatewayAdvertiseUrls: m.config.Gateway.AdvertiseUrls,
		DataDir:              env.DataDir(),
	})
	if err != nil {
		log.Error("start etcd error:", err)
		return err
	}
	m.adminClient = unix_proxy.NewUnixClient(eosc.ProcessAdmin)
	m.workerClient = unix_proxy.NewUnixClient(eosc.ProcessWorker)
	m.etcdServer = etcdServer
	err = m.start(handler, etcdServer)
	if err != nil {
		return err
	}
	openApiProxy := open_api.NewOpenApiProxy(NewEtcdSender(m.etcdServer), m.adminClient)

	openApiMux.Handle("/system/version", handler.VersionHandler(etcdServer))
	openApiMux.HandleFunc("/system/info", m.EtcdInfoHandler)
	openApiMux.HandleFunc("/system/nodes", m.EtcdNodesHandler)
	openApiMux.Handle(router.RouterPrefix, m.workerClient) //master转发至worker的路由
	//node log
	logPrefix := fmt.Sprintf("%slog/node/", router.RouterPrefix)
	openApiMux.Handle(logPrefix, handler.logHandler(logPrefix)) //master转发至worker的路由
	openApiMux.Handle("/", openApiProxy)
	etcdMux.Handle("/", openApiProxy) // 转发到leader 需要具体节点，所以peer上也要绑定 open api

	log.Info("process-master start grpc service")
	err = m.startService()
	if err != nil {
		log.Error("process-master start  grpc server error: ", err.Error())
		return err
	}

	if _, has := env.GetEnv("MASTER_CONTINUE"); has {
		log.Debug("master continue: call parent:", os.Getppid())
		syscall.Kill(os.Getppid(), syscall.SIGQUIT)
	}
	return nil

}
func (m *Master) listen(conf config.UrlConfig) (*http.ServeMux, error) {
	tf := traffic.NewTraffic(m.adminTraffic)
	tcp, ssl := tf.Listen(conf.ListenUrls...)

	listener := make([]net.Listener, 0, len(tcp)+len(ssl))
	listener = append(listener, tcp...)
	if len(ssl) > 0 {
		cert, err := config.LoadCert(conf.Certificate, m.config.CertificateDir.Dir)
		if err != nil {
			return nil, err
		}
		tlsConf := &tls.Config{GetCertificate: cert.GetCertificate}
		for _, l := range ssl {
			listener = append(listener, tls.NewListener(l, tlsConf))
		}
	}

	return m.startHttpServer(listener...), nil
}
func (m *Master) startHttpServer(lns ...net.Listener) *http.ServeMux {
	mux := http.NewServeMux()

	if len(lns) == 0 {
		return mux
	}
	var listen net.Listener
	if len(lns) > 1 {
		listen = mixl.NewMixListener(0, lns...)
	} else {
		listen = lns[0]
	}
	server := &http.Server{
		Handler: mux,
	}
	go func() {
		err := server.Serve(listen)
		if err != nil {
			log.Warn(err)
		}
	}()
	m.httpserver = append(m.httpserver, server)
	return mux
}

func (m *Master) Wait(pFile *pidfile.PidFile) error {

	sigc := make(chan os.Signal, 1)
	signal.Notify(sigc, os.Interrupt, os.Kill, syscall.SIGQUIT, syscall.SIGUSR1, syscall.SIGUSR2)

	for {
		sig := <-sigc
		log.Infof("Caught signal pid:%d ppid:%d signal %s: .\n", os.Getpid(), os.Getppid(), sig.String())
		//log.Debug(os.Interrupt.String(), sig.String(), sig == os.Interrupt)
		switch sig {
		case os.Interrupt, os.Kill:
			{
				if m.etcdServer != nil {
					m.etcdServer.Close()
					m.etcdServer = nil
				}
				m.close()
				return nil
			}
		case syscall.SIGQUIT:
			{
				if m.etcdServer != nil {
					m.etcdServer.Close()
					m.etcdServer = nil
				}
				m.close()
				return nil
			}
		case syscall.SIGUSR1:
			{
				if m.etcdServer != nil {
					m.etcdServer.Close()
					m.etcdServer = nil
				}
				log.Info("try fork new")
				err := m.Fork(pFile) //传子进程需要的内容
				if err != nil {
					log.Error("fork new:", err)
				}
			}
		default:

			continue
		}
	}

}

func (m *Master) Close() {
	m.close()
}

func (m *Master) close() {
	if m.cancelFunc == nil {
		return
	}

	m.cancelFunc()
	m.cancelFunc = nil

	httpservers := m.httpserver
	m.httpserver = nil
	for _, server := range httpservers {
		log.Debug("process-master shutdown http:", server.Shutdown(context.Background()))

	}

	m.adminTraffic.Close()
	m.workerTraffic.Close()
	m.dispatcherServe.Close()
	m.dataController.Close()
	m.stopService()
	log.Debug("try remove pid")

	m.workerController.Stop()
	m.adminController.Stop()
}

func NewMasterHandle(logWriter io.Writer, cfg config.NConfig) (*Master, error) {

	cancel, cancelFunc := context.WithCancel(context.Background())
	m := &Master{
		cancelFunc: cancelFunc,
		ctx:        cancel,
		logWriter:  logWriter,
		config:     cfg,
	}
	var input io.Reader
	if _, has := env.GetEnv("MASTER_CONTINUE"); has {
		log.Info("Reset traffic from stdin")

		input = os.Stdin
	} else {
		input = nil
	}
	masterTraffic, err := traffic.ReadTraffic(input, config.GetListens(cfg.Client.ListenUrl, cfg.Peer.ListenUrl)...)
	if err != nil {
		return nil, err
	}
	m.adminTraffic = masterTraffic

	workerTraffic, err := traffic.ReadTraffic(input, config.GetListens(cfg.Gateway)...)
	if err != nil {
		return nil, err
	}
	m.workerTraffic = workerTraffic
	return m, nil
}