package com.juick.xmpp.s2s;

import com.juick.xmpp.Stanza;
import com.juick.xmpp.StanzaChild;
import com.juick.xmpp.extensions.JuickMessage;
import org.xmlpull.v1.XmlPullParserException;

import javax.servlet.ServletContextEvent;
import javax.servlet.ServletContextListener;
import java.io.IOException;
import java.security.KeyManagementException;
import java.security.KeyStoreException;
import java.security.NoSuchAlgorithmException;
import java.security.UnrecoverableKeyException;
import java.security.cert.CertificateException;
import java.sql.Driver;
import java.sql.DriverManager;
import java.sql.SQLException;
import java.util.*;
import java.util.concurrent.ExecutorService;
import java.util.concurrent.Executors;
import java.util.logging.Level;
import java.util.logging.Logger;

/**
 *
 * @author ugnich
 */
public class XMPPComponent implements ServletContextListener {

    private static final Logger LOGGER = Logger.getLogger(XMPPComponent.class.getName());

    public static final ExecutorService executorService = Executors.newCachedThreadPool();

    public static String HOSTNAME = null;
    public static String STATSFILE = null;
    public static String keystore;
    public static String keystorePassword;
    public static List<String> brokenSSLhosts;
    public static ConnectionRouter connRouter;
    static final List<ConnectionIn> inConnections = Collections.synchronizedList(new ArrayList<>());
    static final List<ConnectionOut> outConnections = Collections.synchronizedList(new ArrayList<>());
    static final List<CacheEntry> outCache = Collections.synchronizedList(new ArrayList<>());
    static final Integer sqlSync = 0;
    static java.sql.Connection sql;
    final public static HashMap<String, StanzaChild> childParsers = new HashMap<>();

    public static void addConnectionIn(ConnectionIn c) {
        synchronized (inConnections) {
            inConnections.add(c);
        }
    }

    public static void addConnectionOut(ConnectionOut c) {
        synchronized (outConnections) {
            outConnections.add(c);
        }
    }

    public static void removeConnectionIn(ConnectionIn c) {
        synchronized (inConnections) {
            inConnections.remove(c);
        }
    }

    public static void removeConnectionOut(ConnectionOut c) {
        synchronized (outConnections) {
            outConnections.remove(c);
        }
    }

    public static String getFromCache(String hostname) {
        CacheEntry ret = null;
        synchronized (outCache) {
            for (Iterator<CacheEntry> i = outCache.iterator(); i.hasNext();) {
                CacheEntry c = i.next();
                if (c.hostname != null && c.hostname.equals(hostname)) {
                    ret = c;
                    i.remove();
                    break;
                }
            }
        }
        return (ret != null) ? ret.xml : null;
    }

    public static ConnectionOut getConnectionOut(String hostname, boolean needReady) {
        synchronized (outConnections) {
            for (ConnectionOut c : outConnections) {
                if (c.to != null && c.to.equals(hostname) && (!needReady || c.streamReady)) {
                    return c;
                }
            }
        }
        return null;
    }

    public static ConnectionIn getConnectionIn(String streamID) {
        synchronized (inConnections) {
            for (ConnectionIn c : inConnections) {
                if (c.streamID != null && c.streamID.equals(streamID)) {
                    return c;
                }
            }
        }
        return null;
    }

    public static void sendOut(Stanza s) {
        sendOut(s.to.Host, s.toString());
    }

    public static void sendOut(String hostname, String xml) {
        boolean haveAnyConn = false;

        ConnectionOut connOut = null;
        synchronized (outConnections) {
            for (ConnectionOut c : outConnections) {
                if (c.to != null && c.to.equals(hostname)) {
                    if (c.streamReady) {
                        connOut = c;
                        break;
                    } else {
                        haveAnyConn = true;
                        break;
                    }
                }
            }
        }
        if (connOut != null) {
            try {
                connOut.sendStanza(xml);
            } catch (IOException e) {
                LOGGER.warning("STREAM TO " + connOut.to + " " + connOut.streamID + " ERROR: " + e.toString());
            }
            return;
        }

        boolean haveCache = false;
        synchronized (outCache) {
            for (CacheEntry c : outCache) {
                if (c.hostname != null && c.hostname.equals(hostname)) {
                    c.xml += xml;
                    c.tsUpdated = System.currentTimeMillis();
                    haveCache = true;
                    break;
                }
            }
            if (!haveCache) {
                outCache.add(new CacheEntry(hostname, xml));
            }
        }

        if (!haveAnyConn) {
            ConnectionOut connectionOut = null;
            try {
                connectionOut = new ConnectionOut(hostname);
                XMPPComponent.executorService.submit(connectionOut);
            } catch (CertificateException | UnrecoverableKeyException | NoSuchAlgorithmException | XmlPullParserException | KeyStoreException | KeyManagementException | IOException e) {
                LOGGER.log(Level.SEVERE, "s2s out error", e);
            }
        }
    }

    @Override
    public void contextInitialized(ServletContextEvent sce) {

        LOGGER.info("component initialized");
        executorService.submit(() -> {
            Properties conf = new Properties();
            try {
                conf.load(sce.getServletContext().getResourceAsStream("/WEB-INF/juick.conf"));
                HOSTNAME = conf.getProperty("hostname");
                String componentName = conf.getProperty("componentname");
                STATSFILE = conf.getProperty("statsfile");
                keystore = conf.getProperty("keystore");
                keystorePassword = conf.getProperty("keystore_password");
                brokenSSLhosts = Arrays.asList(conf.getProperty("broken_ssl_hosts", "").split(","));
                Class.forName("com.mysql.jdbc.Driver");
                sql = DriverManager.getConnection("jdbc:mysql://localhost/juick?autoReconnect=true&user=" +
                        conf.getProperty("mysql_username", "") + "&password=" + conf.getProperty("mysql_password", ""));

                childParsers.put(JuickMessage.XMLNS, new JuickMessage());
                executorService.submit(() -> connRouter = new ConnectionRouter(componentName, conf.getProperty("xmpp_password")));
                executorService.submit(new ConnectionListener());
                executorService.submit(new CleaningUp());
            } catch (Exception e) {
                LOGGER.log(Level.SEVERE, "XMPPComponent error", e);
            }
        });
    }



    @Override
    public void contextDestroyed(ServletContextEvent sce) {
        synchronized (XMPPComponent.outConnections) {
            for (Iterator<ConnectionOut> i = XMPPComponent.outConnections.iterator(); i.hasNext();) {
                ConnectionOut c = i.next();
                c.closeConnection();
                i.remove();
            }
        }

        synchronized (XMPPComponent.inConnections) {
            for (Iterator<ConnectionIn> i = XMPPComponent.inConnections.iterator(); i.hasNext();) {
                ConnectionIn c = i.next();
                c.closeConnection();
                i.remove();
            }
        }

        try {
            XMPPComponent.connRouter.closeConnection();
        } catch (IOException e) {
            LOGGER.log(Level.WARNING, "router warning", e);
        }

        synchronized (XMPPComponent.sqlSync) {
            if (XMPPComponent.sql != null) {
                try {
                    XMPPComponent.sql.close();
                    XMPPComponent.sql = null;
                } catch (SQLException e) {
                    LOGGER.warning("SQL ERROR: " + e);
                }
            }
        }
        // Now deregister JDBC drivers in this context's ClassLoader:
        // Get the webapp's ClassLoader
        ClassLoader cl = Thread.currentThread().getContextClassLoader();
        // Loop through all drivers
        Enumeration<Driver> drivers = DriverManager.getDrivers();
        while (drivers.hasMoreElements()) {
            Driver driver = drivers.nextElement();
            if (driver.getClass().getClassLoader() == cl) {
                // This driver was registered by the webapp's ClassLoader, so deregister it:
                try {
                    LOGGER.info(String.format("Deregistering JDBC driver %s", driver.toString()));
                    DriverManager.deregisterDriver(driver);
                } catch (SQLException ex) {
                    LOGGER.log(Level.SEVERE, String.format("Error deregistering JDBC driver %s", driver), ex);
                }
            } else {
                // driver was not registered by the webapp's ClassLoader and may be in use elsewhere
                LOGGER.log(Level.SEVERE, String.format("Not deregistering JDBC driver %s as it does not belong to this webapp's ClassLoader", driver));
            }
        }
        executorService.shutdown();
        LOGGER.info("component destroyed");
    }
}