import asyncio
import logging

import redis.asyncio as redis
from django.conf import settings
from django.core.signing import TimestampSigner
from django.urls import path
from pydantic import ValidationError

from .payloads import (
    JoinRequest,
    JoinResponse,
    ListPeersResponse,
    OperationMessage,
    PeerMessage,
    Request,
    SavedMessage,
)


async def application(scope, receive, send):
    path = scope["path"].lstrip("/")
    for pattern in urlpatterns:
        if matched := pattern.resolve(path):
            await matched.func(scope, receive, send, **matched.kwargs)
            break
    else:
        await send({"type": "websocket.close"})


async def sync(scope, receive, send, **kwargs):
    peer = Peer(kwargs["map_id"])
    peer._send = send
    while True:
        event = await receive()

        if event["type"] == "websocket.connect":
            try:
                await peer.connect()
                await send({"type": "websocket.accept"})
            except ValueError:
                await send({"type": "websocket.close"})

        if event["type"] == "websocket.disconnect":
            await peer.disconnect()
            break

        if event["type"] == "websocket.receive":
            if event["text"] == "ping":
                await send({"type": "websocket.send", "text": "pong"})
            else:
                await peer.receive(event["text"])


class Peer:
    def __init__(self, map_id, username=None):
        self.username = username or ""
        self.map_id = map_id
        self.is_authenticated = False
        self._subscriptions = []

    @property
    def room_key(self):
        return f"umap:{self.map_id}"

    @property
    def peer_key(self):
        return f"user:{self.map_id}:{self.peer_id}"

    async def get_peers(self):
        known = await self.client.hgetall(self.room_key)
        active = await self.client.pubsub_channels(f"user:{self.map_id}:*")
        if not active:
            # Poor man way of deleting stale usernames from the store
            # HEXPIRE command is not in the open source Redis version
            await self.client.delete(self.room_key)
            await self.store_username()
        active = [name.split(b":")[-1] for name in active]
        if self.peer_id.encode() not in active:
            # Our connection may not yet be active
            active.append(self.peer_id.encode())
        return {k: v for k, v in known.items() if k in active}

    async def store_username(self):
        await self.client.hset(self.room_key, self.peer_id, self.username)

    async def listen_to_channel(self, channel_name):
        async def reader(pubsub):
            await pubsub.subscribe(channel_name)
            while True:
                if pubsub.connection is None:
                    # It has been unsubscribed/closed.
                    break
                try:
                    message = await pubsub.get_message(ignore_subscribe_messages=True)
                except Exception as err:
                    logging.debug(err)
                    break
                if message is not None:
                    await self.send(message["data"].decode())
                await asyncio.sleep(0.001)  # Be nice with the server

        async with self.client.pubsub() as pubsub:
            self._subscriptions.append(pubsub)
            asyncio.create_task(reader(pubsub))

    async def listen(self):
        await self.listen_to_channel(self.room_key)
        await self.listen_to_channel(self.peer_key)

    async def connect(self):
        self.client = redis.from_url(settings.REDIS_URL)

    async def disconnect(self):
        if self.is_authenticated:
            await self.client.hdel(self.room_key, self.peer_id)
            for pubsub in self._subscriptions:
                await pubsub.unsubscribe()
                await pubsub.close()
            await self.send_peers_list()
        await self.client.aclose()

    async def send_peers_list(self):
        message = ListPeersResponse(peers=await self.get_peers())
        await self.broadcast(message.model_dump_json())

    async def broadcast(self, message):
        logging.debug("BROADCASTING", message)
        # Send to all channels (including sender!)
        await self.client.publish(self.room_key, message)

    async def send_to(self, peer_id, message):
        logging.debug("SEND TO", peer_id, message)
        # Send to one given channel
        await self.client.publish(f"user:{self.map_id}:{peer_id}", message)

    async def receive(self, text_data):
        if not self.is_authenticated:
            logging.debug("AUTHENTICATING", text_data)
            message = JoinRequest.model_validate_json(text_data)
            signed = TimestampSigner().unsign_object(message.token, max_age=30)
            user, map_id, permissions = signed.values()
            assert str(map_id) == self.map_id
            if "edit" not in permissions:
                return await self.disconnect()
            self.peer_id = message.peer
            self.username = message.username
            logging.debug("AUTHENTICATED", self.peer_id)
            await self.store_username()
            await self.listen()
            response = JoinResponse(peer=self.peer_id, peers=await self.get_peers())
            await self.send(response.model_dump_json())
            await self.send_peers_list()
            self.is_authenticated = True
            return

        try:
            incoming = Request.model_validate_json(text_data)
        except ValidationError as error:
            message = (
                f"An error occurred when receiving the following message: {text_data!r}"
            )
            logging.error(message, error)
        else:
            match incoming.root:
                # Broadcast all operation messages to connected peers
                case OperationMessage():
                    await self.broadcast(text_data)

                # Broadcast the new map state to connected peers
                case SavedMessage():
                    await self.broadcast(text_data)

                # Send peer messages to the proper peer
                case PeerMessage():
                    await self.send_to(incoming.root.recipient, text_data)

    async def send(self, text):
        logging.debug("  FORWARDING TO", self.peer_id, text)
        try:
            await self._send({"type": "websocket.send", "text": text})
        except Exception as err:
            logging.debug("Error sending message:", text)
            logging.debug(err)


urlpatterns = [path("ws/sync/<str:map_id>", name="ws_sync", view=sync)]