ClientEvents.cs

using System;
using System.Collections.Generic;
using System.Text;
using System.Threading.Tasks;
using Waher.Content;
using Waher.Content.Json;
using Waher.Content.Text;
using Waher.Events;
using Waher.Networking.HTTP;
using Waher.Networking.HTTP.WebSockets;
using Waher.Persistence.Serialization;
using Waher.Runtime.Cache;
using Waher.Runtime.Threading;
using Waher.Script;
using Waher.Script.Abstraction.Elements;
using Waher.Security;
 
namespace Waher.IoTGateway
{
    public class ClientEvents : HttpAsynchronousResource, IHttpGetMethod, IHttpPostMethod
    {
        public const int TabIdCacheTimeoutSeconds = 30;
 
        public const int TabIdCacheTimeoutSecondsHalf = TabIdCacheTimeoutSeconds / 2;
 
        public ClientEvents()
            : base("/ClientEvents")
        {
        }
 
        public override bool HandlesSubPaths => true;
 
        public override bool UserSessions => true;
 
        public bool AllowsGET => true;
 
        public bool AllowsPOST => true;
 
        public async Task GET(HttpRequest Request, HttpResponse Response)
        {
            if (string.IsNullOrEmpty(Request.SubPath))
                throw new BadRequestException("Sub-path missing.");
 
            string Id = Request.SubPath.Substring(1);
            string ContentType;
            byte[] Content;
            bool More;
 
            lock (requestsByContentID)
            {
                if (requestsByContentID.TryGetValue(Id, out ContentQueue Queue))
                {
                    if (Queue.Content is null)
                    {
                        Queue.Response = Response;
                        return;
                    }
 
                    More = Queue.More;
                    Content = Queue.Content;
                    ContentType = Queue.ContentType;
 
                    if (More)
                    {
                        Queue.More = false;
                        Queue.Content = null;
                        Queue.ContentType = null;
                    }
                    else
                        requestsByContentID.Remove(Id);
                }
                else
                {
                    requestsByContentID[Id] = new ContentQueue(Id)
                    {
                        Response = Response
                    };
 
                    return;
                }
            }
 
            SetTransparentCorsHeaders(this, Request, Response);
 
            Response.SetHeader("X-More", More ? "1" : "0");
            Response.ContentType = ContentType;
            await Response.Write(Content, 0, Content.Length);
            await Response.SendResponse();
        }
 
        public async Task POST(HttpRequest Request, HttpResponse Response)
        {
            if (!Request.HasData || Request.Session is null)
                throw new BadRequestException("POST request missing data.");
 
            // TODO: Check User authenticated
 
            object Obj = await Request.DecodeDataAsync();
            if (!(Obj is string Location))
                throw new BadRequestException("Expected location.");
 
            string TabID = Request.Header["X-TabID"];
            if (string.IsNullOrEmpty(TabID))
                throw new BadRequestException("Expected X-TabID header.");
 
            TabQueue Queue = Register(Request, Response, null, Location, TabID);
            StringBuilder Json = null;
 
            SetTransparentCorsHeaders(this, Request, Response);
 
            Response.ContentType = JsonCodec.DefaultContentType;
 
            if (!await Queue.SyncObj.TryBeginWrite(10000))
                throw new InternalServerErrorException("Unable to get access to queue.");
 
            try
            {
                if (!(Queue.Queue.First is null))
                {
                    foreach (string Event in Queue.Queue)
                    {
                        if (Json is null)
                            Json = new StringBuilder("[");
                        else
                            Json.Append(',');
 
                        Json.Append(Event);
                    }
 
                    Queue.Queue.Clear();
                    Queue.Response = null;
                }
                else
                    Queue.Response = Response;
            }
            finally
            {
                await Queue.SyncObj.EndWrite();
            }
 
            if (!(Json is null))
            {
                timeoutByTabID.Remove(TabID);
 
                Json.Append(']');
                await Response.Write(Json.ToString());
                await Response.SendResponse();
                await Response.DisposeAsync();
            }
            else
                timeoutByTabID[TabID] = Queue;
        }
 
        private static TabQueue Register(HttpRequest Request, HttpResponse Response, WebSocket Socket, string Location, string TabID)
        {
            Uri Uri = new Uri(Location);
            string Resource = Uri.LocalPath;
            (string, string, string)[] Query = null;
            Variables Session = Request.Session;
            string s;
 
            if (!string.IsNullOrEmpty(Uri.Query))
            {
                s = Uri.Query;
                if (s.StartsWith("?"))
                    s = s.Substring(1);
 
                string[] Parts = s.Split('&');
                Query = new (string, string, string)[Parts.Length];
                int i, j = 0;
 
                foreach (string Part in Parts)
                {
                    i = Part.IndexOf('=');
                    if (i < 0)
                        Query[j++] = (Part, string.Empty, string.Empty);
                    else
                    {
                        string s2 = Part.Substring(i + 1);
                        Query[j++] = (Part.Substring(0, i), s2, System.Net.WebUtility.UrlDecode(s2));
                    }
                }
            }
 
            if (eventsByTabID.TryGetValue(TabID, out TabQueue Queue) && 
                !string.IsNullOrEmpty(Queue.SessionID) &&
                !(Queue.SyncObj is null))
            {
                Queue.WebSocket = Socket;
                Queue.Uri = Uri;
                Queue.Query = Query;
            }
            else
            {
                string HttpSessionID = GetSessionId(Request, Response);
 
                TabQueue Queue2 = new TabQueue(TabID, HttpSessionID, Session)
                {
                    WebSocket = Socket,
                    Uri = Uri,
                    Query = Query
                };
 
                if (!(Queue is null))
                {
                    while (!(Queue.Queue.First is null))
                    {
                        Queue2.Queue.AddLast(Queue.Queue.First.Value);
                        Queue.Queue.RemoveFirst();
                    }
                }
 
                Queue = Queue2;
                eventsByTabID[TabID] = Queue;
            }
 
            lock (locationByTabID)
            {
                if (!locationByTabID.TryGetValue(TabID, out s) || s != Resource)
                    locationByTabID[TabID] = Resource;
            }
 
            lock (tabIdsByLocation)
            {
                if (!tabIdsByLocation.TryGetValue(Resource, out Dictionary<string, (string, string, string)[]> TabIds))
                {
                    TabIds = new Dictionary<string, (string, string, string)[]>();
                    tabIdsByLocation[Resource] = TabIds;
                }
 
                TabIds[TabID] = Query;
            }
 
            Type UserType;
            object UserObject;
 
            if (!(Session is null) &&
                Session.TryGetVariable(" User ", out Variable UserVariable) &&
                !((UserObject = UserId(UserVariable.ValueObject)) is null))
            {
                lock (usersByTabID)
                {
                    if (!usersByTabID.TryGetValue(TabID, out object Obj2) || !Obj2.Equals(UserObject))
                        usersByTabID[TabID] = UserObject;
                }
 
                UserType = UserObject.GetType();
 
                lock (tabIdsByUser)
                {
                    if (!tabIdsByUser.TryGetValue(UserType, out Dictionary<object, Dictionary<string, (string, string, string)[]>> UserObjects))
                    {
                        UserObjects = new Dictionary<object, Dictionary<string, (string, string, string)[]>>();
                        tabIdsByUser[UserType] = UserObjects;
                    }
 
                    if (!UserObjects.TryGetValue(UserObject, out Dictionary<string, (string, string, string)[]> TabIds))
                    {
                        TabIds = new Dictionary<string, (string, string, string)[]>();
                        UserObjects[UserObject] = TabIds;
                    }
 
                    TabIds[TabID] = Query;
                }
            }
            else
            {
                lock (usersByTabID)
                {
                    if (!usersByTabID.TryGetValue(TabID, out UserObject))
                        UserObject = null;
                }
 
                if (!(UserObject is null))
                {
                    UserType = UserObject.GetType();
 
                    lock (tabIdsByUser)
                    {
                        if (tabIdsByUser.TryGetValue(UserType, out Dictionary<object, Dictionary<string, (string, string, string)[]>> UserObjects))
                        {
                            if (UserObjects.Remove(UserObject) && UserObjects.Count == 0)
                                tabIdsByUser.Remove(UserType);
                        }
                    }
                }
            }
 
            return Queue;
        }
 
        private static object UserId(object User)
        {
            if (User is IUser User2)
                return User2.UserName;
            else if (User is GenericObject GenObj)
            {
                if (GenObj.TryGetFieldValue("UserName", out object UserName))
                    return UserName;
                else
                    return GenObj.ObjectId;
            }
            else if (User is Dictionary<string, IElement> ScriptObj)
            {
                if (ScriptObj.TryGetValue("UserName", out IElement UserName))
                    return UserName.AssociatedObjectValue;
                else
                    return User;
            }
            else if (User is Dictionary<string, object> JsonObj)
            {
                if (JsonObj.TryGetValue("UserName", out object UserName))
                    return UserName;
                else
                    return User;
            }
            else
                return User;
        }
 
        internal static async Task RegisterWebSocket(WebSocket Socket, string Location, string TabID)
        {
            TabQueue Queue = Register(Socket.HttpRequest, Socket.HttpResponse, Socket, Location, TabID);
            LinkedList<string> ToSend = null;
 
            if (!await Queue.SyncObj.TryBeginWrite(10000))
                throw new InternalServerErrorException("Unable to get access to queue.");
 
            try
            {
                if (!(Queue.Queue.First is null))
                {
                    ToSend = new LinkedList<string>();
 
                    foreach (string s2 in Queue.Queue)
                        ToSend.AddLast(s2);
 
                    Queue.Queue.Clear();
                }
            }
            finally
            {
                await Queue.SyncObj.EndWrite();
            }
 
            if (!(ToSend is null))
            {
                foreach (string s2 in ToSend)
                    await Socket.Send(s2, 4096);
            }
        }
 
        internal static void Ping(string TabID)
        {
            if (eventsByTabID.TryGetValue(TabID, out TabQueue TabQueue) && !string.IsNullOrEmpty(TabQueue.SessionID))
                Gateway.HttpServer?.GetSession(TabQueue.SessionID, false);
        }
 
        internal static async Task UnregisterWebSocket(WebSocket Socket, string Location, string TabID)
        {
            if (eventsByTabID.TryGetValue(TabID, out TabQueue Queue) && Queue.WebSocket == Socket)
            {
                if (!await Queue.SyncObj.TryBeginWrite(10000))
                    throw new InternalServerErrorException("Unable to get access to queue.");
 
                try
                {
                    Queue.WebSocket = null;
                }
                finally
                {
                    await Queue.SyncObj.EndWrite();
                }
 
                if (Queue.KeepAliveUntil > DateTime.Now)
                    return;
            }
 
            Uri Uri = new Uri(Location);
            Remove(TabID, Uri.LocalPath);
        }
 
        public static void KeepTabAlive(string TabID, DateTime KeepAliveUntil)
        {
            if (!eventsByTabID.TryGetValue(TabID, out TabQueue Queue))
            {
                Queue = new TabQueue(TabID, string.Empty, new Variables());
                eventsByTabID[TabID] = Queue;
            }
 
            DateTime Now = DateTime.Now;
 
            if (KeepAliveUntil >= Now.AddSeconds(TabIdCacheTimeoutSeconds))
            {
                DateTime CurrentKeepAliveTime = Queue.KeepAliveUntil;
 
                if (CurrentKeepAliveTime < KeepAliveUntil)
                {
                    Queue.KeepAliveUntil = KeepAliveUntil;
 
                    if (CurrentKeepAliveTime == DateTime.MinValue)
                        Gateway.ScheduleEvent(KeepTabAlive, Now.AddSeconds(TabIdCacheTimeoutSecondsHalf), TabID);
                }
            }
        }
 
        private static void KeepTabAlive(object State)
        {
            if (State is string TabID &&
                eventsByTabID.TryGetValue(TabID, out TabQueue Queue))
            {
                DateTime Now = DateTime.Now;
 
                if (Queue.KeepAliveUntil < Now)
                    Queue.KeepAliveUntil = DateTime.MinValue;
                else
                    Gateway.ScheduleEvent(KeepTabAlive, Now.AddSeconds(TabIdCacheTimeoutSecondsHalf), TabID);
            }
        }
 
        private static readonly Cache<string, TabQueue> eventsByTabID = GetTabQueueCache();
        private static readonly Cache<string, TabQueue> timeoutByTabID = GetTabTimeoutCache();
        private static readonly Cache<string, ContentQueue> requestsByContentID = GetContentCache();
        private static readonly Dictionary<string, string> locationByTabID = new Dictionary<string, string>();
        private static readonly Dictionary<string, object> usersByTabID = new Dictionary<string, object>();
        private static readonly Dictionary<string, Dictionary<string, (string, string, string)[]>> tabIdsByLocation =
            new Dictionary<string, Dictionary<string, (string, string, string)[]>>(StringComparer.OrdinalIgnoreCase);
        private static readonly Dictionary<Type, Dictionary<object, Dictionary<string, (string, string, string)[]>>> tabIdsByUser =
            new Dictionary<Type, Dictionary<object, Dictionary<string, (string, string, string)[]>>>();
 
        private static Cache<string, TabQueue> GetTabTimeoutCache()
        {
            Cache<string, TabQueue> Result = new Cache<string, TabQueue>(int.MaxValue, TimeSpan.MaxValue, TimeSpan.FromSeconds(20), true);
            Result.Removed += TimeoutCacheItem_Removed;
            return Result;
        }
 
        private static async Task TimeoutCacheItem_Removed(object Sender, CacheItemEventArgs<string, TabQueue> e)
        {
            if (e.Reason == RemovedReason.NotUsed)
            {
                HttpResponse Response = e.Value.Response;
 
                if (!(Response is null))
                {
                    try
                    {
                        e.Value.Response = null;
 
                        await Response.Write("[{\"type\":\"NOP\"}]");
                        await Response.SendResponse();
                    }
                    catch (Exception)
                    {
                        // Ignore
                    }
                    finally
                    {
                        await Response.DisposeAsync();
                    }
                }
            }
        }
 
        private static Cache<string, TabQueue> GetTabQueueCache()
        {
            Cache<string, TabQueue> Result = new Cache<string, TabQueue>(int.MaxValue, TimeSpan.MaxValue, TimeSpan.FromSeconds(TabIdCacheTimeoutSeconds), true);
            Result.Removed += QueueCacheItem_Removed;
            return Result;
        }
 
        private static Task QueueCacheItem_Removed(object Sender, CacheItemEventArgs<string, TabQueue> e)
        {
            TabQueue Queue = e.Value;
            string TabID = Queue.TabID;
 
            Remove(TabID, null);
            Queue.Dispose();
 
            return Task.CompletedTask;
        }
 
        private static void Remove(string TabID, string Resource)
        {
            string Location;
            object User;
 
            lock (locationByTabID)
            {
                if (locationByTabID.TryGetValue(TabID, out Location) && (Resource is null || Location == Resource))
                    locationByTabID.Remove(TabID);
                else
                    Location = null;
            }
 
            if (!(Location is null))
            {
                lock (tabIdsByLocation)
                {
                    if (tabIdsByLocation.TryGetValue(Location, out Dictionary<string, (string, string, string)[]> TabIDs))
                    {
                        if (TabIDs.Remove(TabID) && TabIDs.Count == 0)
                            tabIdsByLocation.Remove(Location);
                    }
                }
            }
 
            lock (usersByTabID)
            {
                if (usersByTabID.TryGetValue(TabID, out User))
                    usersByTabID.Remove(TabID);
                else
                    User = null;
            }
 
            if (!(User is null))
            {
                Type UserType = User.GetType();
 
                lock (tabIdsByUser)
                {
                    if (tabIdsByUser.TryGetValue(UserType, out Dictionary<object, Dictionary<string, (string, string, string)[]>> UserObjects) &&
                        UserObjects.TryGetValue(User, out Dictionary<string, (string, string, string)[]> TabIDs))
                    {
                        if (TabIDs.Remove(TabID) && TabIDs.Count == 0 &&
                            UserObjects.Remove(User) && UserObjects.Count == 0)
                        {
                            tabIdsByUser.Remove(UserType);
                        }
                    }
                }
            }
        }
 
        private static Cache<string, ContentQueue> GetContentCache()
        {
            Cache<string, ContentQueue> Result = new Cache<string, ContentQueue>(int.MaxValue, TimeSpan.MaxValue, TimeSpan.FromSeconds(90), true);
            Result.Removed += ContentCacheItem_Removed;
            return Result;
        }
 
        private static async Task ContentCacheItem_Removed(object Sender, CacheItemEventArgs<string, ContentQueue> e)
        {
            if (e.Reason != RemovedReason.Manual)
            {
                try
                {
                    HttpResponse Response = e.Value.Response;
 
                    if (!(Response is null))
                    {
                        Response.ContentType = PlainTextCodec.DefaultContentType;
                        await Response.Write("Request took too long to complete.");
                        await Response.SendResponse();
                    }
                }
                catch (Exception)
                {
                    // Ignore
                }
            }
        }
 
        public static Task ReportAsynchronousResult(string Id, string ContentType, byte[] Result)
        {
            return ReportAsynchronousResult(Id, ContentType, Result, false);
        }
 
        public static async Task ReportAsynchronousResult(string Id, string ContentType, byte[] Result, bool More)
        {
            try
            {
                HttpResponse Response;
 
                lock (requestsByContentID)
                {
                    if (requestsByContentID.TryGetValue(Id, out ContentQueue Queue))
                    {
                        if (Queue.Response is null)
                        {
                            Queue.ContentType = ContentType;
                            Queue.Content = Result;
                            Queue.More = More;
                            return;
                        }
 
                        Response = Queue.Response;
 
                        if (More)
                            Queue.Response = null;
                        else
                            requestsByContentID.Remove(Id);
                    }
                    else
                    {
                        Queue = new ContentQueue(Id)
                        {
                            ContentType = ContentType,
                            Content = Result,
                            More = More
                        };
 
                        requestsByContentID[Id] = Queue;
                        return;
                    }
                }
 
                Response.SetHeader("X-More", More ? "1" : "0");
                Response.ContentType = ContentType;
                await Response.Write(Result, 0, Result.Length);
                await Response.SendResponse();
            }
            catch (Exception)
            {
                // Ignore
            }
        }
 
        public static string[] GetOpenLocations()
        {
            string[] Result;
 
            lock (tabIdsByLocation)
            {
                Result = new string[tabIdsByLocation.Count];
                tabIdsByLocation.Keys.CopyTo(Result, 0);
            }
 
            return Result;
        }
 
        public static object[] GetActiveUsers()
        {
            List<object> Result = new List<object>();
 
            lock (tabIdsByUser)
            {
                foreach (KeyValuePair<Type, Dictionary<object, Dictionary<string, (string, string, string)[]>>> P in tabIdsByUser)
                    Result.AddRange(P.Value.Keys);
            }
 
            return Result.ToArray();
        }
 
        public static string[] GetTabIDsForLocation(string Location)
        {
            return GetTabIDsForLocation(Location, new KeyValuePair<string, string>[0]);
        }
 
        public static string[] GetTabIDsForLocation(string Location, string QueryParameter1, string QueryParameterValue1)
        {
            return GetTabIDsForLocation(Location, new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1));
        }
 
        public static string[] GetTabIDsForLocation(string Location, string QueryParameter1, string QueryParameterValue1,
            string QueryParameter2, string QueryParameterValue2)
        {
            return GetTabIDsForLocation(Location,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1),
                new KeyValuePair<string, string>(QueryParameter2, QueryParameterValue2));
        }
 
        public static string[] GetTabIDsForLocation(string Location, params KeyValuePair<string, string>[] QueryFilter)
        {
            return GetTabIDsForLocation(Location, false, QueryFilter);
        }
 
        public static string[] GetTabIDsForLocation(string Location, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1)
        {
            return GetTabIDsForLocation(Location, IgnoreCase, new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1));
        }
 
        public static string[] GetTabIDsForLocation(string Location, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1,
            string QueryParameter2, string QueryParameterValue2)
        {
            return GetTabIDsForLocation(Location, IgnoreCase,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1),
                new KeyValuePair<string, string>(QueryParameter2, QueryParameterValue2));
        }
 
        public static string[] GetTabIDsForLocation(string Location, bool IgnoreCase, params KeyValuePair<string, string>[] QueryFilter)
        {
            lock (tabIdsByLocation)
            {
                if (tabIdsByLocation.TryGetValue(Location, out Dictionary<string, (string, string, string)[]> TabIDs))
                    return ProcessQueryFilterLocked(TabIDs, QueryFilter, IgnoreCase);
            }
 
            if (eventsByTabID.TryGetValue(Location, out TabQueue Queue))
            {
                return ProcessQueryFilterLocked(new Dictionary<string, (string, string, string)[]>()
                {
                    { Location, Queue.Query }
                }, QueryFilter, IgnoreCase);
            }
            else
                return new string[0];
        }
 
        public static string[] GetTabIDsForUser(object User)
        {
            return GetTabIDsForUser(User, null, false, new KeyValuePair<string, string>[0]);
        }
 
        public static string[] GetTabIDsForUser(object User, params KeyValuePair<string, string>[] QueryFilter)
        {
            return GetTabIDsForUser(User, null, false, QueryFilter);
        }
 
        public static string[] GetTabIDsForUser(object User, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1)
        {
            return GetTabIDsForUser(User, IgnoreCase, new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1));
        }
 
        public static string[] GetTabIDsForUser(object User, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1,
            string QueryParameter2, string QueryParameterValue2)
        {
            return GetTabIDsForUser(User, IgnoreCase,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1),
                new KeyValuePair<string, string>(QueryParameter2, QueryParameterValue2));
        }
 
        public static string[] GetTabIDsForUser(object User, bool IgnoreCase, params KeyValuePair<string, string>[] QueryFilter)
        {
            return GetTabIDsForUser(User, null, IgnoreCase, QueryFilter);
        }
 
        public static string[] GetTabIDsForUser(object User, string Location)
        {
            return GetTabIDsForUser(User, Location, new KeyValuePair<string, string>[0]);
        }
 
        public static string[] GetTabIDsForUser(object User, string Location,
            string QueryParameter1, string QueryParameterValue1)
        {
            return GetTabIDsForUser(User, Location,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1));
        }
 
        public static string[] GetTabIDsForUser(object User, string Location,
            string QueryParameter1, string QueryParameterValue1,
            string QueryParameter2, string QueryParameterValue2)
        {
            return GetTabIDsForUser(User, Location,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1),
                new KeyValuePair<string, string>(QueryParameter2, QueryParameterValue2));
        }
 
        public static string[] GetTabIDsForUser(object User, string Location, params KeyValuePair<string, string>[] QueryFilter)
        {
            return GetTabIDsForUser(User, Location, false, QueryFilter);
        }
 
        public static string[] GetTabIDsForUser(object User, string Location, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1)
        {
            return GetTabIDsForUser(User, Location, IgnoreCase,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1));
        }
 
        public static string[] GetTabIDsForUser(object User, string Location, bool IgnoreCase,
            string QueryParameter1, string QueryParameterValue1,
            string QueryParameter2, string QueryParameterValue2)
        {
            return GetTabIDsForUser(User, Location, IgnoreCase,
                new KeyValuePair<string, string>(QueryParameter1, QueryParameterValue1),
                new KeyValuePair<string, string>(QueryParameter2, QueryParameterValue2));
        }
 
        public static string[] GetTabIDsForUser(object User, string Location, bool IgnoreCase, params KeyValuePair<string, string>[] QueryFilter)
        {
            User = UserId(User);
            Type T = User.GetType();
            string[] Result;
 
            lock (tabIdsByUser)
            {
                if (tabIdsByUser.TryGetValue(T, out Dictionary<object, Dictionary<string, (string, string, string)[]>> UserObjects) &&
                    UserObjects.TryGetValue(User, out Dictionary<string, (string, string, string)[]> TabIDs))
                {
                    Result = ProcessQueryFilterLocked(TabIDs, QueryFilter, IgnoreCase);
                }
                else
                    return new string[0];
            }
 
            if (string.IsNullOrEmpty(Location))
                return Result;
 
            List<string> Result2 = new List<string>();
 
            lock (tabIdsByLocation)
            {
                if (tabIdsByLocation.TryGetValue(Location, out Dictionary<string, (string, string, string)[]> TabIDs))
                {
                    foreach (string TabID in Result)
                    {
                        if (TabIDs.ContainsKey(TabID))
                            Result2.Add(TabID);
                    }
                }
            }
 
            return Result2.ToArray();
        }
 
        private static string[] ProcessQueryFilterLocked(Dictionary<string, (string, string, string)[]> TabIDs,
            KeyValuePair<string, string>[] QueryFilter, bool IgnoreCase)
        {
            string[] Result;
 
            if (QueryFilter is null || QueryFilter.Length == 0)
            {
                Result = new string[TabIDs.Count];
                TabIDs.Keys.CopyTo(Result, 0);
            }
            else
            {
                List<string> Match = new List<string>();
                bool Found;
                bool IsMatch;
 
                foreach (KeyValuePair<string, (string, string, string)[]> P in TabIDs)
                {
                    IsMatch = true;
 
                    foreach (KeyValuePair<string, string> Q in QueryFilter)
                    {
                        if (Q.Value is null)
                        {
                            Found = true;
 
                            if (!(P.Value is null))
                            {
                                foreach ((string, string, string) Q2 in P.Value)
                                {
                                    if (Q2.Item1 == Q.Key)
                                    {
                                        Found = false;
                                        break;
                                    }
                                }
                            }
 
                            if (!Found)
                            {
                                IsMatch = false;
                                break;
                            }
                        }
                        else
                        {
                            Found = false;
 
                            if (!(P.Value is null))
                            {
                                foreach ((string, string, string) Q2 in P.Value)
                                {
                                    if (Q2.Item1 == Q.Key &&
                                        (string.Compare(Q2.Item2, Q.Value, IgnoreCase) == 0 ||
                                        string.Compare(Q2.Item3, Q.Value, IgnoreCase) == 0))
                                    {
                                        Found = true;
                                        break;
                                    }
                                }
                            }
 
                            if (!Found)
                            {
                                IsMatch = false;
                                break;
                            }
                        }
                    }
 
                    if (IsMatch)
                        Match.Add(P.Key);
                }
 
                Result = Match.ToArray();
            }
 
            return Result;
        }
 
        public static string[] GetTabIDsForLocations(params string[] Locations)
        {
            switch (Locations.Length)
            {
                case 0:
                    return new string[0];
 
                case 1:
                    return GetTabIDsForLocation(Locations[0]);
 
                default:
                    Dictionary<string, bool> Result = new Dictionary<string, bool>();
                    Dictionary<string, (string, string, string)[]> TabIDs;
 
                    lock (tabIdsByLocation)
                    {
                        foreach (string Location in Locations)
                        {
                            if (tabIdsByLocation.TryGetValue(Location, out TabIDs))
                            {
                                foreach (string TabID in TabIDs.Keys)
                                    Result[TabID] = true;
                            }
                        }
                    }
 
                    string[] Result2 = new string[Result.Count];
                    Result.Keys.CopyTo(Result2, 0);
 
                    return Result2;
            }
        }
 
        public static string[] GetTabIDs()
        {
            string[] Result;
 
            lock (locationByTabID)
            {
                Result = new string[locationByTabID.Count];
                locationByTabID.Keys.CopyTo(Result, 0);
            }
 
            return Result;
        }
 
        public static string[] GetTabIDsForUsers()
        {
            Dictionary<string, bool> Result = new Dictionary<string, bool>();
 
            lock (tabIdsByUser)
            {
                foreach (Dictionary<object, Dictionary<string, (string, string, string)[]>> P in tabIdsByUser.Values)
                {
                    foreach (Dictionary<string, (string, string, string)[]> P2 in P.Values)
                    {
                        foreach (string TabID in P2.Keys)
                            Result[TabID] = true;
                    }
                }
            }
 
            string[] Result2 = new string[Result.Count];
            Result.Keys.CopyTo(Result2, 0);
            return Result2;
        }
 
        public static TabInformation GetTabIDInformation(string TabID)
        {
            if (eventsByTabID.TryGetValue(TabID, out TabQueue Queue))
                return new TabInformation(Queue);
            else
                return null;
        }
 
        public class TabInformation
        {
            internal TabInformation(TabQueue Queue)
            {
                this.TabID = Queue.TabID;
                this.SessionID = Queue.SessionID;
                this.Session = Queue.Session;
                this.Uri = Queue.Uri;
 
                this.Query = new Dictionary<string, string>();
 
                if (!(Queue.Query is null))
                {
                    foreach ((string, string, string) Rec in Queue.Query)
                        this.Query[Rec.Item1] = Rec.Item3;
                }
            }
 
            public string TabID { get; }
 
            public string SessionID { get; }
 
            public Variables Session { get; }
 
            public Uri Uri { get; }
 
            public Dictionary<string, string> Query { get; }
        }
 
        internal class TabQueue : IDisposable
        {
            public string TabID;
            public string SessionID;
            public Variables Session;
            public MultiReadSingleWriteObject SyncObj;
            public LinkedList<string> Queue = new LinkedList<string>();
            public HttpResponse Response = null;
            public WebSocket WebSocket = null;
            public Uri Uri = null;
            public DateTime KeepAliveUntil = DateTime.MinValue;
            public (string, string, string)[] Query = null;
 
            public TabQueue(string ID, string SessionID, Variables Session)
            {
                this.SyncObj = new MultiReadSingleWriteObject(this);
                this.TabID = ID;
                this.SessionID = SessionID;
                this.Session = Session;
            }
 
            public void Dispose()
            {
                this.SyncObj?.Dispose();
                this.SyncObj = null;
 
                this.Queue?.Clear();
            }
        }
 
        private class ContentQueue
        {
            public string ContentID;
            public string ContentType;
            public HttpResponse Response = null;
            public byte[] Content = null;
            public bool More = false;
 
            public ContentQueue(string ID)
            {
                this.ContentID = ID;
            }
        }
 
        public static Task<int> PushEvent(string[] TabIDs, string Type, object Data)
        {
            if (Data is string s)
                return PushEvent(TabIDs, Type, s, false, null, null);
            else
            {
                s = JSON.Encode(Data, false);
                return PushEvent(TabIDs, Type, s, true, null, null);
            }
        }
 
        public static Task<int> PushEvent(string[] TabIDs, string Type, string Data)
        {
            return PushEvent(TabIDs, Type, Data, false, null, null);
        }
 
        public static Task<int> PushEvent(string[] TabIDs, string Type, string Data, bool DataIsJson)
        {
            return PushEvent(TabIDs, Type, Data, DataIsJson, null, null);
        }
 
        public static async Task<int> PushEvent(string[] TabIDs, string Type, string Data, bool DataIsJson, string UserVariable, params string[] Privileges)
        {
            int Result = 0;
 
            try
            {
                StringBuilder Json = new StringBuilder();
 
                Json.Append("{\"type\":\"");
                Json.Append(Type);
                Json.Append("\",\"data\":");
 
                if (DataIsJson)
                    Json.Append(Data);
                else
                {
                    Json.Append('"');
                    Json.Append(JSON.Encode(Data));
                    Json.Append('"');
                }
 
                Json.Append('}');
 
                string s = Json.ToString();
 
                if (TabIDs is null)
                    TabIDs = eventsByTabID.GetKeys();
 
                foreach (string TabID in TabIDs)
                {
                    if (!(TabID is null) && eventsByTabID.TryGetValue(TabID, out TabQueue Queue))
                    {
                        if (!string.IsNullOrEmpty(UserVariable))
                        {
                            if (!Queue.Session.TryGetVariable(UserVariable, out Variable v) ||
                                !(v.ValueObject is IUser User))
                            {
                                continue;
                            }
 
                            if (!(Privileges is null))
                            {
                                bool HasPrivileges = true;
 
                                foreach (string Privilege in Privileges)
                                {
                                    if (!User.HasPrivilege(Privilege))
                                    {
                                        HasPrivileges = false;
                                        break;
                                    }
                                }
 
                                if (!HasPrivileges)
                                    continue;
                            }
                        }
 
                        if (await Queue.SyncObj.TryBeginWrite(10000))
                        {
                            try
                            {
                                if (!(Queue.WebSocket is null))
                                    await Queue.WebSocket.Send(Json.ToString(), 4096);
                                else if (!(Queue.Response is null))
                                {
                                    try
                                    {
                                        await Queue.Response.Write("[" + Json.ToString() + "]");
                                        await Queue.Response.SendResponse();
                                        await Queue.Response.DisposeAsync();
                                        Queue.Response = null;
                                    }
                                    catch (Exception)
                                    {
                                        // Ignore
                                    }
                                }
                                else
                                    Queue.Queue.AddLast(s);
                            }
                            finally
                            {
                                await Queue.SyncObj.EndWrite();
                            }
                        }
 
                        timeoutByTabID.Remove(TabID);
                        Result++;
                    }
                }
            }
            catch (Exception ex)
            {
                Log.Exception(ex);
            }
 
            return Result;
        }
 
    }
}