/*
 * Copyright (c) 2019-2022 GeyserMC. http://geysermc.org
 *
 * 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.
 *
 * @author GeyserMC
 * @link https://github.com/GeyserMC/Geyser
 */

package org.geysermc.geyser.ping;

import com.fasterxml.jackson.core.JsonParseException;
import com.fasterxml.jackson.databind.JsonMappingException;
import org.checkerframework.checker.nullness.qual.Nullable;
import org.cloudburstmc.nbt.util.VarInts;
import io.netty.handler.codec.haproxy.HAProxyCommand;
import io.netty.handler.codec.haproxy.HAProxyProxiedProtocol;
import io.netty.util.NetUtil;
import org.geysermc.geyser.GeyserImpl;
import org.geysermc.geyser.network.GameProtocol;

import java.io.ByteArrayOutputStream;
import java.io.DataInputStream;
import java.io.DataOutputStream;
import java.io.IOException;
import java.net.*;
import java.util.concurrent.TimeUnit;

public class GeyserLegacyPingPassthrough implements IGeyserPingPassthrough, Runnable {
    private static final byte[] HAPROXY_BINARY_PREFIX = new byte[]{13, 10, 13, 10, 0, 13, 10, 81, 85, 73, 84, 10};

    private final GeyserImpl geyser;

    public GeyserLegacyPingPassthrough(GeyserImpl geyser) {
        this.geyser = geyser;
    }

    private GeyserPingInfo pingInfo;

    /**
     * Start legacy ping passthrough thread
     * @param geyser Geyser
     * @return GeyserPingPassthrough, or null if not initialized
     */
    public static @Nullable IGeyserPingPassthrough init(GeyserImpl geyser) {
        if (geyser.getConfig().isPassthroughMotd() || geyser.getConfig().isPassthroughPlayerCounts()) {
            GeyserLegacyPingPassthrough pingPassthrough = new GeyserLegacyPingPassthrough(geyser);
            // Ensure delay is not zero
            int interval = (geyser.getConfig().getPingPassthroughInterval() == 0) ? 1 : geyser.getConfig().getPingPassthroughInterval();
            geyser.getLogger().debug("Scheduling ping passthrough at an interval of " + interval + " second(s).");
            geyser.getScheduledThread().scheduleAtFixedRate(pingPassthrough, 1, interval, TimeUnit.SECONDS);
            return pingPassthrough;
        }
        return null;
    }

    @Override
    public GeyserPingInfo getPingInformation(InetSocketAddress inetSocketAddress) {
        return pingInfo;
    }

    @Override
    public void run() {
        try (Socket socket = new Socket()) {
            String address = geyser.getConfig().getRemote().address();
            int port = geyser.getConfig().getRemote().port();
            InetSocketAddress endpoint = new InetSocketAddress(address, port);
            socket.connect(endpoint, 5000);

            ByteArrayOutputStream byteArrayStream = new ByteArrayOutputStream();
            try (DataOutputStream handshake = new DataOutputStream(byteArrayStream)) {
                handshake.write(0x0);
                VarInts.writeUnsignedInt(handshake, GameProtocol.getJavaProtocolVersion());
                VarInts.writeUnsignedInt(handshake, address.length());
                handshake.writeBytes(address);
                handshake.writeShort(port);
                VarInts.writeUnsignedInt(handshake, 1);
            }

            byte[] buffer;

            try (DataOutputStream dataOutputStream = new DataOutputStream(socket.getOutputStream())) {
                if (geyser.getConfig().getRemote().isUseProxyProtocol()) {
                    // HAProxy support
                    // Based on https://github.com/netty/netty/blob/d8ad931488f6b942dabe28ecd6c399b4438da0a8/codec-haproxy/src/main/java/io/netty/handler/codec/haproxy/HAProxyMessageEncoder.java#L78
                    dataOutputStream.write(HAPROXY_BINARY_PREFIX);
                    dataOutputStream.writeByte((0x02 << 4) | HAProxyCommand.PROXY.byteValue());
                    dataOutputStream.writeByte(socket.getLocalAddress() instanceof Inet4Address ?
                            HAProxyProxiedProtocol.TCP4.byteValue() : HAProxyProxiedProtocol.TCP6.byteValue());
                    byte[] srcAddrBytes = NetUtil.createByteArrayFromIpAddressString(
                            ((InetSocketAddress) socket.getLocalSocketAddress()).getAddress().getHostAddress());
                    byte[] dstAddrBytes = NetUtil.createByteArrayFromIpAddressString(
                            endpoint.getAddress().getHostAddress());
                    dataOutputStream.writeShort(srcAddrBytes.length + dstAddrBytes.length + 4);
                    dataOutputStream.write(srcAddrBytes);
                    dataOutputStream.write(dstAddrBytes);
                    dataOutputStream.writeShort(((InetSocketAddress) socket.getLocalSocketAddress()).getPort());
                    dataOutputStream.writeShort(port);
                }

                VarInts.writeUnsignedInt(dataOutputStream, byteArrayStream.size());
                dataOutputStream.write(byteArrayStream.toByteArray());
                dataOutputStream.writeByte(0x01);
                dataOutputStream.writeByte(0x00);

                try (DataInputStream dataInputStream = new DataInputStream(socket.getInputStream())) {
                    VarInts.readUnsignedInt(dataInputStream);
                    VarInts.readUnsignedInt(dataInputStream);
                    int length = VarInts.readUnsignedInt(dataInputStream);
                    buffer = new byte[length];
                    dataInputStream.readFully(buffer);
                    dataOutputStream.writeByte(0x09);
                    dataOutputStream.writeByte(0x01);
                    dataOutputStream.writeLong(System.currentTimeMillis());

                    VarInts.readUnsignedInt(dataInputStream);
                }
            }

            this.pingInfo = GeyserImpl.JSON_MAPPER.readValue(buffer, GeyserPingInfo.class);
        } catch (SocketTimeoutException | ConnectException ex) {
            this.pingInfo = null;
            this.geyser.getLogger().debug("Connection timeout for ping passthrough.");
        } catch (JsonParseException | JsonMappingException ex) {
            this.geyser.getLogger().error("Failed to parse json when pinging server!", ex);
        } catch (UnknownHostException ex) {
            // Don't reset pingInfo, as we want to keep the last known value
            this.geyser.getLogger().warning("Unable to resolve remote host! Is the remote server down or invalid?");
        } catch (IOException e) {
            this.geyser.getLogger().error("IO error while trying to use legacy ping passthrough", e);
        }
    }
}