#!/usr/bin/env python
# -*- coding: utf-8 -*-

# Copyright (c) 2014 clowwindy
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.

import os
import logging
import utils
import time
import eventloop
import tcprelay
import udprelay
import asyncdns
import thread
import threading
import sys
import asyncmgr
import Config
from socket import *

class ServerPool(object):

    instance = None

    def __init__(self):
        utils.check_python()
        self.config = utils.get_config(False)
        utils.print_shadowsocks()
        self.dns_resolver = asyncdns.DNSResolver()
        self.mgr = asyncmgr.ServerMgr()
        self.tcp_servers_pool = {}
        self.udp_servers_pool = {}

        self.loop = eventloop.EventLoop()
        thread.start_new_thread(ServerPool._loop, (self.loop, self.dns_resolver, self.mgr))

    @staticmethod
    def get_instance():
        if ServerPool.instance is None:
            ServerPool.instance = ServerPool()
        return ServerPool.instance

    @staticmethod
    def _loop(loop, dns_resolver, mgr):
        try:
            mgr.add_to_loop(loop)
            dns_resolver.add_to_loop(loop)
            loop.run()
        except (KeyboardInterrupt, IOError, OSError) as e:
            logging.error(e)
            import traceback
            traceback.print_exc()
            os.exit(0)

    def server_is_run(self, port):
        port = int(port)
        if port in self.tcp_servers_pool:
            return True
        return False

    def new_server(self, port, password):
        port = int(port)
        logging.info("start server at %d" % port)
        try:
            udpsock = socket(AF_INET, SOCK_DGRAM)
            udpsock.sendto('%s:%s:%s:1' % (Config.MANAGE_PASS, port, password), (Config.MANAGE_BIND_IP, Config.MANAGE_PORT))
            udpsock.close()
        except Exception, e:
            logging.warn(e)
        return True

    def cb_new_server(self, port, password):
        ret = True
        port = int(port)

        if 'server' in self.config:
            if port in self.tcp_servers_pool:
                logging.info("server already at %s:%d" % (self.config['server'], port))
                return 'this port server is already running'
            else:
                a_config = self.config.copy()
                a_config['server_port'] = port
                a_config['password'] = password
                try:
                    logging.info("starting server at %s:%d" % (a_config['server'], port))
                    tcp_server = tcprelay.TCPRelay(a_config, self.dns_resolver, False)
                    tcp_server.add_to_loop(self.loop)
                    self.tcp_servers_pool[port] = tcp_server
                    udp_server = udprelay.UDPRelay(a_config, self.dns_resolver, False)
                    udp_server.add_to_loop(self.loop)
                    self.udp_servers_pool.update({port: udp_server})
                except Exception, e:
                    logging.warn(e)
        return True

    def del_server(self, port):
        port = int(port)
        logging.info("del server at %d" % port)
        try:
            udpsock = socket(AF_INET, SOCK_DGRAM)
            udpsock.sendto('%s:%s:0:0' % (Config.MANAGE_PASS, port), (Config.MANAGE_BIND_IP, Config.MANAGE_PORT))
            udpsock.close()
        except Exception, e:
            logging.warn(e)
        return True

    def cb_del_server(self, port):
        port = int(port)

        if port not in self.tcp_servers_pool:
            logging.info("stopped server at %s:%d already stop" % (self.config['server'], port))
        else:
            logging.info("stopped server at %s:%d" % (self.config['server'], port))
            try:
                server = self.tcp_servers_pool[port]
                del self.tcp_servers_pool[port]
                server.destroy()
            except Exception, e:
                logging.warn(e)
            return True

    def get_servers_transfer(self):
        ret = {}
        #this is different thread but safe
        servers = self.tcp_servers_pool.copy()
        for port in servers.keys():
            ret[port] = [servers[port].server_transfer_ul, servers[port].server_transfer_dl]
        return ret