import * as winston from "winston";
import * as WebSocket from "ws";
import { SocketMessage } from "./SocketMessage";
import { Message, JSONfn } from "./Messages/Message";
import { Config } from "./Config";
import { amqpwrapper, QueueMessageOptions, amqpqueue } from "./amqpwrapper";
import { NoderedUtil, Base, InsertOneMessage, QueueMessage, MapReduceMessage, QueryMessage, UpdateOneMessage, UpdateManyMessage, DeleteOneMessage, User, mapFunc, reduceFunc, finalizeFunc, QueuedMessage, QueuedMessageCallback, WatchEventMessage } from "@openiap/openflow-api";
import { ChangeStream } from "mongodb";
import { WebSocketServer } from "./WebSocketServer";
interface IHashTable<T> {
    [key: string]: T;
}
const Semaphore = (n) => ({
    n,
    async down() {
        while (this.n <= 0) await this.wait();
        this.n--;
    },
    up() {
        this.n++;
    },
    async wait() {
        if (this.n <= 0) return await new Promise((res, req) => {
            setImmediate(async () => res(await this.wait()))
        });
        return;
    },
});
const semaphore = Semaphore(1);

export class clsstream {
    public stream: ChangeStream;
    public id: string;
    public callback: any;
}

export class WebSocketServerClient {
    public jwt: string;
    public _logger: winston.Logger;
    private _socketObject: WebSocket;
    private _receiveQueue: SocketMessage[];
    private _sendQueue: SocketMessage[];
    public messageQueue: IHashTable<QueuedMessage> = {};
    public remoteip: string;
    public clientagent: string;
    public clientversion: string;
    public lastheartbeat: Date = new Date();
    public metrics: string = "";
    public id: string = "";
    user: User;
    public _queues: amqpqueue[] = [];
    constructor(logger: winston.Logger, socketObject: WebSocket, req: any) {
        this._logger = logger;
        this.id = Math.random().toString(36).substr(2, 9);
        this._socketObject = socketObject;
        this._receiveQueue = [];
        this._sendQueue = [];
        const sock: any = ((socketObject as any)._socket);
        if (sock != undefined) {
            this.remoteip = sock.remoteAddress;
        }
        //if (NoderedUtil.IsNullEmpty(this.remoteip) && !NoderedUtil.IsNullUndefinded(req) && !NoderedUtil.IsNullUndefinded(req.headers)) {
        if (!NoderedUtil.IsNullUndefinded(req)) {
            if (!NoderedUtil.IsNullUndefinded(req.connection) && !NoderedUtil.IsNullEmpty(req.connection.remoteAddress)) this.remoteip = req.connection.remoteAddress;
            if (!NoderedUtil.IsNullUndefinded(req.headers)) {
                if (req.headers["X-Forwarded-For"] != null) this.remoteip = req.headers["X-Forwarded-For"];
                if (req.headers["X-real-IP"] != null) this.remoteip = req.headers["X-real-IP"];
                if (req.headers["x-forwarded-for"] != null) this.remoteip = req.headers["x-forwarded-for"];
                if (req.headers["x-real-ip"] != null) this.remoteip = req.headers["x-real-ip"];
            }
        }
        logger.info("new client " + this.id + " from " + this.remoteip);
        socketObject.on("open", (e: Event): void => this.open(e));
        socketObject.on("message", (e: string): void => (this.message(e) as any)); // e: MessageEvent
        socketObject.on("error", (e: Event): void => this.error(e));
        socketObject.on("close", (e: CloseEvent): void => this.close(e));
    }
    private open(e: Event): void {
        this._logger.info("WebSocket connection opened " + e + " " + this.id);
    }
    private close(e: CloseEvent): void {
        this._logger.info("WebSocket connection closed " + e + " " + this.id + "/" + this.clientagent);
        this.Close();
    }
    private error(e: Event): void {
        this._logger.error("WebSocket error encountered " + e + " " + this.id + "/" + this.clientagent);
    }
    public queuecount(): number {
        if (this._queues == null) return 0;
        return this._queues.length;
    }
    public connected(): boolean {
        if (this._socketObject == null) return false;
        if (this._socketObject.readyState === this._socketObject.OPEN || this._socketObject.readyState === this._socketObject.CONNECTING) {
            return true;
        }
        if (this._socketObject.readyState === this._socketObject.CLOSED) {
            delete this._socketObject;
        }
        return false;
    }
    public ping(): void {
        try {
            let msg: SocketMessage = SocketMessage.fromcommand("ping");
            if (this._socketObject == null) {
                if (this.queuecount() > 0) {
                    this.CloseConsumers();
                }
                if (this.streamcount() > 0) {
                    this.CloseConsumers();
                }
                return;
            }
            if (this._socketObject.readyState === this._socketObject.CLOSED || this._socketObject.readyState === this._socketObject.CLOSING) {
                if (this.queuecount() > 0) {
                    this.CloseConsumers();
                }
                return;
            }
            this._socketObject.send(msg.tojson());
        } catch (error) {
            this._logger.error(error);
            this._receiveQueue = [];
            this._sendQueue = [];
            try {
                if (this._socketObject != null) {
                    this.Close();
                }
            } catch (error) {
            }
        }
    }
    private _message(message: string): void {
        //this._logger.silly("WebSocket message received " + message);
        let msg: SocketMessage = SocketMessage.fromjson(message);
        this._logger.silly("WebSocket message received id: " + msg.id + " index: " + msg.index + " count: " + msg.count);
        this._receiveQueue.push(msg);
        if ((msg.index + 1) >= msg.count) this.ProcessQueue();
    }
    private async message(message: string): Promise<void> {
        let username: string = "Unknown";
        try {
            if (!NoderedUtil.IsNullUndefinded(this.user)) { username = this.user.username; }
            this._message(message);
        } catch (error) {
            this._logger.error("[" + username + "/" + this.clientagent + "/" + this.id + "] WebSocket error encountered " + (error.message ? error.message : error));
            const errormessage: Message = new Message(); errormessage.command = "error"; errormessage.data = (error.message ? error.message : error);
            this._socketObject.send(JSON.stringify(errormessage));
        }
    }
    public async CloseConsumers(): Promise<void> {
        await semaphore.down();
        for (let i = this._queues.length - 1; i >= 0; i--) {
            try {
                // await this.CloseConsumer(this._queues[i]);
                await amqpwrapper.Instance().RemoveQueueConsumer(this._queues[i]);
                this._queues.splice(i, 1);
            } catch (error) {
                this._logger.error("WebSocketclient::closeconsumers " + error);
            }
        }
        WebSocketServer.websocket_queue_count.labels(this.id).set(this._queues.length);
        semaphore.up();
    }
    public async Close(): Promise<void> {
        await this.CloseConsumers();
        await this.CloseStreams();
        if (this._socketObject != null) {
            try {
                this._socketObject.removeListener("open", (e: Event): void => this.open(e));
                this._socketObject.removeListener("message", (e: string): void => (this.message(e) as any)); // e: MessageEvent
                this._socketObject.removeListener("error", (e: Event): void => this.error(e));
                this._socketObject.removeListener("close", (e: CloseEvent): void => this.close(e));
            } catch (error) {
                this._logger.error("WebSocketclient::Close::removeListener " + error);
            }
            try {
                this._socketObject.close();
            } catch (error) {
                this._logger.error("WebSocketclient::Close " + error);
            }
        }
        WebSocketServer.update_mongodb_watch_count(this);
    }
    public async CloseConsumer(queuename: string): Promise<void> {
        var old = this._queues.length;
        for (let i = this._queues.length - 1; i >= 0; i--) {
            const q = this._queues[i];
            if (q && (q.queue == queuename || q.queuename == queuename)) {
                try {
                    await amqpwrapper.Instance().RemoveQueueConsumer(this._queues[i]);
                    this._queues.splice(i, 1);
                    WebSocketServer.websocket_queue_count.labels(this.id).set(this._queues.length);
                } catch (error) {
                    this._logger.error("WebSocketclient::CloseConsumer " + error);
                }
            }
        }
    }
    public async CreateConsumer(queuename: string): Promise<string> {
        let autoDelete: boolean = false; // Should we keep the queue around ? for robots and roles
        let qname = queuename;
        if (NoderedUtil.IsNullEmpty(qname)) {
            if (this.clientagent == "nodered") {
                qname = "nodered." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            } else if (this.clientagent == "webapp") {
                qname = "webapp." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            } else if (this.clientagent == "web") {
                qname = "web." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            } else if (this.clientagent == "openrpa") {
                qname = "openrpa." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            } else if (this.clientagent == "powershell") {
                qname = "powershell." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            } else {
                qname = "unknown." + Math.random().toString(36).substr(2, 9); autoDelete = true;
            }
        }
        await semaphore.down();
        this.CloseConsumer(qname);
        let queue: amqpqueue = null;
        try {
            const AssertQueueOptions: any = Object.assign({}, (amqpwrapper.Instance().AssertQueueOptions));
            AssertQueueOptions.autoDelete = autoDelete;
            queue = await amqpwrapper.Instance().AddQueueConsumer(qname, AssertQueueOptions, this.jwt, async (msg: any, options: QueueMessageOptions, ack: any, done: any) => {
                const _data = msg;
                try {
                    const result = await this.Queue(msg, qname, options);
                    ack();
                    done(result);
                } catch (error) {
                    setTimeout(() => {
                        ack(false);
                        // ack(); // just eat the error 
                        done(_data);
                        console.log(qname + " failed message queue message, nack and re queue message: ", (error.message ? error.message : error));
                    }, Config.amqp_requeue_time);
                }
            });
            if (queue) {
                qname = queue.queue;
                this._queues.push(queue);
            }
            WebSocketServer.websocket_queue_count.labels(this.id).set(this._queues.length);
        } catch (error) {
            this._logger.error("WebSocketclient::CreateConsumer " + error);
        }
        semaphore.up();
        if (queue != null) return queue.queue;
        return null;
    }
    sleep(ms) {
        return new Promise(resolve => {
            setTimeout(resolve, ms)
        })
    }
    private ProcessQueue(): void {
        let username: string = "Unknown";
        if (!NoderedUtil.IsNullUndefinded(this.user)) { username = this.user.username; }
        let ids: string[] = [];
        this._receiveQueue.forEach(msg => {
            if (ids.indexOf(msg.id) === -1) { ids.push(msg.id); }
        });
        ids.forEach(id => {
            const msgs: SocketMessage[] = this._receiveQueue.filter(function (msg: SocketMessage): boolean { return msg.id === id; });
            if (this._receiveQueue.length > Config.websocket_max_package_count) {
                if (Config.websocket_disconnect_out_of_sync) {
                    this._logger.error("[" + username + "/" + this.clientagent + "/" + this.id + "] _receiveQueue containers more than " + Config.websocket_max_package_count + " messages for id '" + id + "', disconnecting");
                    this.Close();
                } else {
                    this._logger.error("[" + username + "/" + this.clientagent + "/" + this.id + "] _receiveQueue containers more than " + Config.websocket_max_package_count + " messages for id '" + id + "' so discarding all !!!!!!!");
                    this._receiveQueue = this._receiveQueue.filter(function (msg: SocketMessage): boolean { return msg.id !== id; });
                }
            }
            const first: SocketMessage = msgs[0];
            if (first.count === msgs.length) {
                msgs.sort((a, b) => a.index - b.index);
                if (msgs.length === 1) {
                    this._receiveQueue = this._receiveQueue.filter(function (msg: SocketMessage): boolean { return msg.id !== id; });
                    const singleresult: Message = Message.frommessage(first, first.data);
                    WebSocketServer.websocket_incomming_stats.inc();
                    WebSocketServer.websocket_incomming_stats.labels(singleresult.command).inc();
                    singleresult.Process(this);
                } else {
                    let buffer: string = "";
                    msgs.forEach(msg => {
                        if (!NoderedUtil.IsNullUndefinded(msg.data)) { buffer += msg.data; }
                    });
                    this._receiveQueue = this._receiveQueue.filter(function (msg: SocketMessage): boolean { return msg.id !== id; });
                    const result: Message = Message.frommessage(first, buffer);
                    WebSocketServer.websocket_incomming_stats.inc();
                    WebSocketServer.websocket_incomming_stats.labels(result.command).inc();
                    result.Process(this);
                }
            } else {
                // this._logger.debug("[" + username + "] WebSocketclient::ProcessQueue receiveQueue: Cannot process i have " + msgs.length + " out of " + first.count + " for message " + first.id);
            }
        });
        this._sendQueue.forEach(msg => {
            let id: string = msg.id;
            try {
                this._socketObject.send(JSON.stringify(msg));
            } catch (error) {
                this._logger.error("WebSocket error encountered " + error);
            }
            this._sendQueue = this._sendQueue.filter(function (msg: SocketMessage): boolean { return msg.id !== id; });
        });
        // if (this._receiveQueue.length > 25 || this._sendQueue.length > 25) {
        //     this._logger.debug("[" + username + "] WebSocketclient::ProcessQueue receiveQueue: " + this._receiveQueue.length + " sendQueue: " + this._sendQueue.length);
        // }
    }
    public async Send<T>(message: Message): Promise<T> {
        return new Promise<T>(async (resolve, reject) => {
            this._Send(message, ((msg) => {
                if (!NoderedUtil.IsNullUndefinded(msg.error)) { return reject(msg.error); }
                resolve(msg);
            }).bind(this));
        });
    }
    private _Send(message: Message, cb: QueuedMessageCallback): void {
        const messages: string[] = this.chunkString(message.data, Config.websocket_package_size);
        if (NoderedUtil.IsNullUndefinded(messages) || messages.length === 0) {
            const singlemessage: SocketMessage = SocketMessage.frommessage(message, "", 1, 0);
            if (NoderedUtil.IsNullEmpty(message.replyto)) {
                this.messageQueue[singlemessage.id] = new QueuedMessage(singlemessage, cb);
                WebSocketServer.update_message_queue_count(this);
            }
            this._sendQueue.push(singlemessage);
            return;
        }
        if (NoderedUtil.IsNullEmpty(message.id)) { message.id = Math.random().toString(36).substr(2, 9); }
        for (let i: number = 0; i < messages.length; i++) {
            const _message: SocketMessage = SocketMessage.frommessage(message, messages[i], messages.length, i);
            this._sendQueue.push(_message);
        }
        if (NoderedUtil.IsNullEmpty(message.replyto)) {
            this.messageQueue[message.id] = new QueuedMessage(message, cb);
            WebSocketServer.update_message_queue_count(this);
        }
        // setTimeout(() => {
        //     this.ProcessQueue();
        // }, 500);
        this.ProcessQueue();
    }
    public chunkString(str: string, length: number): string[] {
        if (NoderedUtil.IsNullEmpty(str)) { return null; }
        // tslint:disable-next-line: quotemark
        return str.match(new RegExp('.{1,' + length + '}', 'g'));
    }
    async Queue(data: string, queuename: string, options: QueueMessageOptions): Promise<any[]> {
        const d: any = JSON.parse(data);
        const q: QueueMessage = new QueueMessage();
        if (this.clientversion == "1.0.80.0" || this.clientversion == "1.0.81.0" || this.clientversion == "1.0.82.0" || this.clientversion == "1.0.83.0" || this.clientversion == "1.0.84.0" || this.clientversion == "1.0.85.0") {
            q.data = d.payload;
        } else {
            q.data = d;
        }
        // q.data = d.payload; 
        q.replyto = options.replyTo;
        q.error = d.error;
        q.correlationId = options.correlationId; q.queuename = queuename;
        q.consumerTag = options.consumerTag;
        q.routingkey = options.routingkey;
        q.exchange = options.exchange;

        let m: Message = Message.fromcommand("queuemessage");
        if (NoderedUtil.IsNullEmpty(q.correlationId)) { q.correlationId = m.id; }
        m.data = JSON.stringify(q);
        const q2 = await this.Send<QueueMessage>(m);
        if ((q2 as any).command == "error") throw new Error(q2.data);
        return q2.data;
    }

    async Query<T extends Base>(collection: string, query: any, projection: any = null, orderby: any = { _created: -1 }, top: number = 500, skip: number = 0): Promise<any[]> {
        const q: QueryMessage = new QueryMessage();
        q.collectionname = collection; q.query = query;
        q.projection = projection; q.orderby = orderby; q.top = top; q.skip = skip;
        const msg: Message = new Message(); msg.command = "query"; msg.data = JSON.stringify(q);
        const q2 = await this.Send<QueryMessage>(msg);
        return q2.result as T[];
    }
    async MapReduce(collection: string, map: mapFunc, reduce: reduceFunc, finalize: finalizeFunc, query: any, out: string | any, scope: any): Promise<any> {
        const q: MapReduceMessage = new MapReduceMessage(map, reduce, finalize, query, out);
        q.collectionname = collection; q.scope = scope;
        const msg: Message = new Message(); msg.command = "mapreduce"; q.out = out;
        msg.data = JSONfn.stringify(q);
        const q2 = await this.Send<MapReduceMessage>(msg);
        return q2.result;
    }
    async Insert<T extends Base>(collection: string, model: any): Promise<any> {
        const q: InsertOneMessage = new InsertOneMessage();
        q.collectionname = collection; q.item = model;
        const msg: Message = new Message(); msg.command = "insertone"; msg.data = JSONfn.stringify(q);
        const q2 = await this.Send<InsertOneMessage>(msg);
        return q2.result as T[];
    }
    async Update<T extends Base>(collection: string, model: any): Promise<any> {
        const q: UpdateOneMessage = new UpdateOneMessage();
        q.collectionname = collection; q.item = model;
        const msg: Message = new Message(); msg.command = "updateone"; msg.data = JSONfn.stringify(q);
        const q2 = await this.Send<UpdateOneMessage>(msg);
        return q2.result as T[];
    }
    async UpdateMany<T extends Base>(collection: string, query: any, document: any): Promise<any> {
        const q: UpdateManyMessage = new UpdateManyMessage();
        q.collectionname = collection; q.item = document; q.query = query;
        const msg: Message = new Message(); msg.command = "updateone"; msg.data = JSONfn.stringify(q);
        const q2 = await this.Send<UpdateManyMessage>(msg);
        return q2.result as T[];
    }
    async Delete(collection: string, id: any): Promise<void> {
        const q: DeleteOneMessage = new DeleteOneMessage();
        q.collectionname = collection; q._id = id;
        const msg: Message = new Message(); msg.command = "deleteone"; msg.data = JSON.stringify(q);
        await this.Send<DeleteOneMessage>(msg);
    }
    streams: clsstream[] = [];
    public streamcount(): number {
        if (this.streams == null) return 0;
        return this.streams.length;
    }
    async CloseStreams(): Promise<void> {
        if (this.streams != null && this.streams.length > 0) {
            for (let i = this.streams.length - 1; i >= 0; i--) {
                try {
                    if (this.streams[i] != null && this.streams[i].stream != null && !this.streams[i].stream.isClosed()) {
                        await this.streams[i].stream.close();
                    }
                    this.streams.splice(i, 1);
                } catch (error) {
                    this._logger.error("WebSocketclient::CloseStreams " + error + " " + this.id + "/" + this.clientagent);
                }
            }
        }
    }
    async CloseStream(id: string): Promise<void> {
        if (this.streams != null && this.streams.length > 0) {
            for (let i = this.streams.length - 1; i >= 0; i--) {
                try {
                    if (this.streams[i] != null && this.streams[i].id == id) {
                        if (!this.streams[i].stream.isClosed()) await this.streams[i].stream.close();
                        this.streams.splice(i, 1);
                    }
                } catch (error) {
                    this._logger.error("WebSocketclient::CloseStream " + error + " " + this.id + "/" + this.clientagent);
                }
            }
        }
        WebSocketServer.update_mongodb_watch_count(this);
    }
    async UnWatch(id: string, jwt: string): Promise<void> {
        this.CloseStream(id);
    }
    async Watch(aggregates: object[], collectionname: string, jwt: string): Promise<string> {
        const stream: clsstream = new clsstream();
        stream.id = Math.random().toString(36).substr(2, 9);
        stream.stream = await Config.db.watch(aggregates, collectionname, jwt);
        this.streams.push(stream);

        const options = { fullDocument: "updateLookup" };
        const me = this;
        try {
            (stream.stream as any).on("error", err => {
                console.log(err);
            });
            (stream.stream as any).on("change", next => {
                try {
                    // me._logger.info(JSON.stringify(next, null, 4));
                    me._logger.info("Watch: " + JSON.stringify(next.documentKey));
                    const msg: SocketMessage = SocketMessage.fromcommand("watchevent");
                    const q = new WatchEventMessage();
                    q.id = stream.id;
                    q.result = next;
                    msg.data = JSON.stringify(q);
                    me._socketObject.send(msg.tojson());
                } catch (error) {
                    this._logger.error("WebSocketclient::Watch::changeListener " + error + " " + this.id + "/" + this.clientagent);
                }
            }, options);
            WebSocketServer.update_mongodb_watch_count(this);
            return stream.id;
        } catch (error) {
            this._logger.error("WebSocketclient::Watch " + error + " " + this.id + "/" + this.clientagent);
            throw error;
        }
    }

}