/*
 * Copyright (C) 2008-2017, Juick
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
package com.juick.server;

import com.fasterxml.jackson.core.JsonProcessingException;
import com.fasterxml.jackson.databind.ObjectMapper;
import com.juick.User;
import com.juick.server.component.MessageEvent;
import com.juick.service.MessagesService;
import com.juick.service.SubscriptionService;
import org.apache.commons.lang3.StringUtils;
import org.apache.commons.lang3.math.NumberUtils;
import org.slf4j.Logger;
import org.slf4j.LoggerFactory;
import org.springframework.beans.factory.annotation.Value;
import org.springframework.context.ApplicationListener;
import org.springframework.stereotype.Component;
import org.springframework.web.socket.TextMessage;
import rocks.xmpp.addr.Jid;
import rocks.xmpp.core.XmppException;
import rocks.xmpp.core.session.Extension;
import rocks.xmpp.core.session.XmppSessionConfiguration;
import rocks.xmpp.core.stanza.model.Message;
import rocks.xmpp.extensions.component.accept.ExternalComponent;
import rocks.xmpp.extensions.oob.model.x.OobX;
import rocks.xmpp.util.XmppUtils;

import javax.annotation.PostConstruct;
import javax.inject.Inject;
import javax.xml.bind.JAXBException;
import javax.xml.stream.XMLStreamException;
import javax.xml.stream.XMLStreamWriter;
import java.io.IOException;
import java.io.StringWriter;
import java.net.URI;
import java.net.URISyntaxException;
import java.util.List;
import java.util.stream.Collectors;

/**
 * @author Ugnich Anton
 */
@Component
public class ServerManager implements AutoCloseable, ApplicationListener<MessageEvent> {
    private static Logger logger = LoggerFactory.getLogger(ServerManager.class);

    private ExternalComponent xmpp;

    @Value("${xmpp_host:localhost}")
    private String xmppHost;
    @Value("${xmpp_password:secret}")
    private String xmppPassword;
    @Value("${ws_jid:ws.localhost}")
    private String  xmppJid;
    @Value("${xmpp_port:5347}")
    private int xmppPort;
    @Value("${xmpp_disabled:false}")
    private boolean isXmppDisabled;
    @Inject
    private ObjectMapper jsonMapper;
    @Inject
    private MessagesService messagesService;
    @Inject
    private SubscriptionService subscriptionService;
    @Inject
    private WebsocketManager wsHandler;
    @Value("${service_user:juick}")
    private String serviceUser;

    @PostConstruct
    public void init() {
        if (!isXmppDisabled) {
            setupXmppComponent(xmppHost, xmppPort, xmppJid, xmppPassword);
        } else {
            logger.warn("XMPP is not enabled");
        }
    }

    @Override
    public void close() {
        try {
            if (xmpp != null)
                xmpp.close();

            logger.info("ExternalComponent on juick-server destroyed");
        } catch (Exception e) {
            logger.warn("Exception occurs on juick-server destroy", e);
        }
    }

    public void setupXmppComponent(final String host, final int port, final String jid, final String password) {
        XmppSessionConfiguration configuration = XmppSessionConfiguration.builder()
                .extensions(Extension.of(com.juick.Message.class))
                .build();
        xmpp = ExternalComponent.create(jid, password, configuration, host, port);
        try {
            xmpp.connect();
        } catch (XmppException e) {
            logger.warn("xmpp extension", e);
        }
    }

    public void sendMessage(Message message) {
        if (!isXmppDisabled) {
            xmpp.sendMessage(message);
        }
    }

    public void processMessage(User visitor, String body, String attachmentName) {
        Message xmsg = new Message();
        xmsg.setFrom(Jid.of(String.valueOf(visitor.getUid()), "uid.juick.com", "perl"));
        xmsg.setTo(Jid.of("juick@juick.com/Juick"));
        xmsg.setBody(body);
        try {
            if (StringUtils.isNotEmpty(attachmentName)) {
                URI httpUri = URI.create(attachmentName);
                if (httpUri.isAbsolute()) {
                    xmsg.addExtension(new OobX(httpUri));
                } else {
                    String attachmentUrl = String.format("juick://%s", attachmentName);
                    xmsg.addExtension(new OobX(new URI(attachmentUrl), "!!!!Juick!!"));
                }
            }
        } catch (URISyntaxException e1) {
            logger.warn("attachment error", e1);
        }
        sendMessage(xmsg);
    }

    private void onJuickPM(final int uid_to, final com.juick.Message jmsg) {
        try {
            String json = jsonMapper.writeValueAsString(jmsg);
            synchronized (wsHandler.getClients()) {
                wsHandler.getClients().stream().filter(c ->
                        (!c.legacy && c.visitor.getUid() == uid_to) || c.visitor.getName().equals(serviceUser))
                        .forEach(c -> {
                            try {
                                logger.debug("sending pm to {}", c.visitor.getUid());
                                c.session.sendMessage(new TextMessage(json));
                            } catch (IOException e) {
                                logger.warn("ws error", e);
                            }
                        });
            }
        } catch (JsonProcessingException e) {
            logger.warn("Invalid JSON", e);
        }
    }

    private void onJuickMessagePost(final com.juick.Message jmsg) {
        try {
            String json = jsonMapper.writeValueAsString(jmsg);
            List<Integer> uids = subscriptionService.getSubscribedUsers(jmsg.getUser().getUid(), jmsg.getMid())
                    .stream().map(User::getUid).collect(Collectors.toList());
            synchronized (wsHandler.getClients()) {
                wsHandler.getClients().stream().filter(c ->
                        (!c.legacy && c.visitor.getUid() == 0) // anonymous users
                                || c.visitor.getName().equals(serviceUser) // services
                                || (!c.legacy && uids.contains(c.visitor.getUid()))) // subscriptions
                        .forEach(c -> {
                            try {
                                logger.debug("sending message to {}", c.visitor.getUid());
                                c.session.sendMessage(new TextMessage(json));
                            } catch (IOException e) {
                                logger.warn("ws error", e);
                            }
                        });
                wsHandler.getClients().stream().filter(c ->
                        c.legacy && c.allMessages) // legacy all posts
                        .forEach(c -> {
                            try {
                                logger.debug("sending message to legacy client {}", c.visitor.getUid());
                                c.session.sendMessage(new TextMessage(json));
                            } catch (IOException e) {
                                logger.warn("ws error", e);
                            }
                        });
            }
        } catch (JsonProcessingException e) {
            logger.warn("Invalid JSON", e);
        }
    }

    private void onJuickMessageReply(final com.juick.Message jmsg) {
        try {

            String json = jsonMapper.writeValueAsString(jmsg);
            com.juick.Message op = messagesService.getMessage(jmsg.getMid());
            List<Integer> threadUsers =
                    subscriptionService.getUsersSubscribedToComments(op, jmsg)
                            .stream().map(User::getUid).collect(Collectors.toList());
            synchronized (wsHandler.getClients()) {
                wsHandler.getClients().stream().filter(c ->
                        (!c.legacy && c.visitor.getUid() == 0) // anonymous users
                                || c.visitor.getName().equals(serviceUser) // services
                                || (!c.legacy && threadUsers.contains(c.visitor.getUid()))) // subscriptions
                        .forEach(c -> {
                            try {
                                logger.debug("sending reply to {}", c.visitor.getUid());
                                c.session.sendMessage(new TextMessage(json));
                            } catch (IOException e) {
                                logger.warn("ws error", e);
                            }
                        });
                wsHandler.getClients().stream().filter(c ->
                        (c.legacy && c.allReplies) || (c.legacy && c.MID == jmsg.getMid())) // legacy replies
                        .forEach(c -> {
                            try {
                                logger.debug("sending reply to legacy client {}", c.visitor.getUid());
                                c.session.sendMessage(new TextMessage(json));
                            } catch (IOException e) {
                                logger.warn("ws error", e);
                            }
                        });
            }
        } catch (JsonProcessingException e) {
            logger.warn("Invalid JSON", e);
        }
    }

    @Override
    public void onApplicationEvent(MessageEvent event) {
        com.juick.Message jmsg = event.getMessage();
        if (jmsg.getMid() == 0) {
            if (jmsg.getTo().getUid() > 0) {
                onJuickPM(jmsg.getTo().getUid(), jmsg);
            }
        } else if (jmsg.getRid() == 0) {
            // to get full message with attachment, etc.
            onJuickMessagePost(messagesService.getMessage(jmsg.getMid()));
        } else {
            // to get quote and attachment
            com.juick.Message reply = messagesService.getReply(jmsg.getMid(), jmsg.getRid());
            onJuickMessageReply(reply);
        }
    }
}