import asyncio
import ipaddress
import logging
import os
import textwrap
import secrets
from asyncio import Lock
from datetime import datetime, timezone
from hashlib import sha512
from http import HTTPStatus
from pathlib import Path
from typing import Optional, Annotated
from discord.ext.commands import Paginator

import discord
import httpx
from fastapi import FastAPI, HTTPException, Request, status, Depends, Query
from fastapi.security import HTTPBearer, HTTPAuthorizationCredentials as HTTPAuthCreds
from fastapi import WebSocketException as _WSException
from fastapi.responses import HTMLResponse, JSONResponse, RedirectResponse
from starlette.websockets import WebSocket, WebSocketDisconnect
from websockets.exceptions import WebSocketException

from utils import get_or_none, BridgeBind
from utils.db import AccessTokens

SF_ROOT = Path(__file__).parent / "static"
if SF_ROOT.exists() and SF_ROOT.is_dir():
    from fastapi.staticfiles import StaticFiles
else:
    StaticFiles = None

try:
    from config import OAUTH_ID, OAUTH_REDIRECT_URI, OAUTH_SECRET
    BIND_REDIRECT_URI = OAUTH_REDIRECT_URI[:-4] + "bridge/bind/callback"
except ImportError:
    OAUTH_ID = OAUTH_SECRET = OAUTH_REDIRECT_URI = BIND_REDIRECT_URI = None

try:
    from config import WEB_ROOT_PATH
except ImportError:
    WEB_ROOT_PATH = ""

log = logging.getLogger("jimmy.api")

GENERAL = "https://discord.com/channels/994710566612500550/"

OAUTH_ENABLED = OAUTH_ID and OAUTH_SECRET and OAUTH_REDIRECT_URI

app = FastAPI(root_path=WEB_ROOT_PATH)
app.state.bot = None
app.state.states = {}
app.state.binds = {}
app.state.http = httpx.Client()
security = HTTPBearer()

if StaticFiles:
    app.mount("/static", StaticFiles(directory=SF_ROOT), name="static")

try:
    from utils.client import bot

    app.state.bot = bot
except ImportError:
    bot = None
app.state.last_sender = None
app.state.last_sender_ts = datetime.utcnow()
app.state.ws_connected = Lock()


async def is_authenticated(credentials: Annotated[HTTPAuthCreds, Depends(security)]):
    if credentials.credentials != app.state.bot.http.token:
        raise HTTPException(status_code=401, detail="Invalid secret.")


async def get_access_token(code: str, redirect_uri: str = OAUTH_REDIRECT_URI):
    response = app.state.http.post(
        "https://discord.com/api/oauth2/token",
        data={
            "grant_type": "authorization_code",
            "code": code,
            "redirect_uri": redirect_uri,
        },
        headers={"Content-Type": "application/x-www-form-urlencoded"},
        auth=(OAUTH_ID, OAUTH_SECRET)
    )
    response.raise_for_status()
    return response.json()


async def get_authorised_user(access_token: str):
    response = app.state.http.get(
        "https://discord.com/api/users/@me",
        headers={"Authorization": "Bearer " + access_token}
    )
    response.raise_for_status()
    return response.json()


@app.middleware("http")
async def check_bot_instanced(request, call_next):
    if not request.app.state.bot:
        return JSONResponse(status_code=503, content={"message": "Not ready."}, headers={"Retry-After": "10"})
    return await call_next(request)


@app.get("/ping")
def ping():
    bot_started = datetime.now(tz=timezone.utc) - app.state.bot.started_at
    return {
        "ping": "pong",
        "online": app.state.bot.is_ready(),
        "latency": max(round(app.state.bot.latency), 1),
        "uptime": max(round(bot_started.total_seconds(), 2), 1),
    }


@app.get("/auth")
async def authenticate(req: Request, code: str = None, state: str = None):
    """Begins Oauth flow (browser only)"""
    if not OAUTH_ENABLED:
        raise HTTPException(501, "OAuth is not enabled.")

    if not (code and state) or state not in app.state.states:
        value = os.urandom(4).hex()
        if value in app.state.states:
            log.warning("Generated a state that already exists. Cleaning up")
            # remove any states older than 5 minutes
            removed = 0
            for _value in list(app.state.states):
                if (datetime.now() - app.state.states[_value]).total_seconds() > 300:
                    del app.state.states[_value]
                    removed += 1
            value = os.urandom(4).hex()
            log.warning(f"Removed {removed} old states.")

        if value in app.state.states:
            log.critical("Generated a state that already exists and could not free any slots.")
            raise HTTPException(
                HTTPStatus.SERVICE_UNAVAILABLE,
                "Could not generate a state token (state container full, potential (D)DOS attack?). "
                "Please try again later.",
                # Saying a suspected DDOS makes sense, there are 4,294,967,296 possible states, the likelyhood of a
                # collision is 1 in 4,294,967,296.
                headers={"Retry-After": "60"},
            )
        app.state.states[value] = datetime.now()
        return RedirectResponse(
            discord.utils.oauth_url(
                OAUTH_ID, redirect_uri=OAUTH_REDIRECT_URI, scopes=("identify", "connections", "guilds", "email")
            )
            + f"&state={value}&prompt=none",
            status_code=HTTPStatus.TEMPORARY_REDIRECT,
            headers={"Cache-Control": "no-store, no-cache"},
        )
    else:
        app.state.states.pop(state)
        # First, we need to do the auth code flow
        data = await get_access_token(code)
        access_token = data["access_token"]

        # Now we can generate a token
        token = sha512(access_token.encode()).hexdigest()

        # Now we can get the user's info
        user = await get_authorised_user(access_token)

        # Now we need to fetch the student from the database
        student = await get_or_none(AccessTokens, user_id=user["id"])
        if not student:
            student = await AccessTokens.objects.create(user_id=user["id"], access_token=access_token)

        # Now send a request to https://ip-api.com/json/{ip}?fields=status,city,zip,lat,lon,isp,query
        _host = ipaddress.ip_address(req.client.host)
        if not any((_host.is_loopback, _host.is_private, _host.is_reserved, _host.is_unspecified)):
            response = app.state.http.get(
                f"http://ip-api.com/json/{req.client.host}?fields=status,city,zip,lat,lon,isp,query,proxy,hosting"
            )
            if response.status_code != 200:
                raise HTTPException(status_code=response.status_code, detail=response.text)
            data = response.json()
            if data["status"] != "success":
                raise HTTPException(
                    status_code=HTTPStatus.INTERNAL_SERVER_ERROR,
                    detail=f"Failed to get IP data for {req.client.host}: {data}.",
                )
        else:
            data = None

        # Now we can update the student entry with this data
        await student.update(ip_info=data, access_token_hash=token)
        document = f"""
<!DOCTYPE html>
<html>
<head>
    <title>Redirecting...</title>
</head>
<body>
    <script>
        window.location.href = "{GENERAL}";
    </script>
    <noscript>
        <meta http-equiv="refresh" content="0; url={GENERAL}" />
    </noscript>
    <p>Redirecting you to the general channel...</p>
    <i><a href='{GENERAL}' rel='noopener'>Click here if you are not redirected.</a></i>
</body>
</html>
"""
        # And set it as a cookie
        response = HTMLResponse(
            document, status_code=200, headers={"Location": GENERAL, "Cache-Control": "max-age=604800"}
        )
        # set the cookie for at most 604800 seconds - expire after that
        response.set_cookie(
            "token",
            token,
            max_age=604800,
            samesite="strict",
            httponly=True,
        )
        return response


@app.post("/bridge", status_code=201, dependencies=[Depends(is_authenticated)])
async def bridge(req: Request):
    now = datetime.utcnow()
    ts_diff = (now - app.state.last_sender_ts).total_seconds()
    body = await req.json()

    room_id = body.get("room")
    if not room_id:
        raise HTTPException(status_code=400, detail="Missing room ID. Required as of 26/02/2024.")
    bind = await get_or_none(BridgeBind, matrix_id=room_id)
    # ^ Binds are only supposed to be used for User binds, however, in this case we can just recycle it.
    if not bind:
        channel_id = 1032974266527907901
    else:
        channel_id = bind.discord_id

    channel = app.state.bot.get_channel(channel_id)  # type: discord.TextChannel | None
    if not channel:
        raise HTTPException(status_code=404, detail="Channel %r does not exist." % channel_id)

    if len(body["message"]) > 4000:
        raise HTTPException(status_code=400, detail="Message too long. 4000 characters maximum.")
    paginator = Paginator(prefix="", suffix="", max_size=1990)
    for line in body["message"].splitlines():
        try:
            paginator.add_line(line)
        except ValueError:
            paginator.add_line(textwrap.shorten(line, width=1980, placeholder="<...>"))
    if len(paginator.pages) > 1:
        msg = None
        if app.state.last_sender != body["sender"] or ts_diff >= 600:
            msg = await channel.send(f"**{body['sender']}**:")
        m = len(paginator.pages)
        for n, page in enumerate(paginator.pages, 1):
            await channel.send(
                f"[{n}/{m}]\n>>> {page}",
                allowed_mentions=discord.AllowedMentions.none(),
                reference=msg,
                silent=True,
                suppress=n != m,
            )
            app.state.last_sender = body["sender"]
    else:
        content = f"**{body['sender']}**:\n>>> {body['message']}"
        if app.state.last_sender == body["sender"] and ts_diff < 600:
            content = f">>> {body['message']}"
        await channel.send(content, allowed_mentions=discord.AllowedMentions.none(), silent=True, suppress=False)
        app.state.last_sender = body["sender"]
    app.state.last_sender_ts = now
    return {"status": "ok", "pages": len(paginator.pages)}


@app.websocket("/bridge/recv")
async def bridge_recv(ws: WebSocket, secret: str = Query(None)):
    await ws.accept()
    log.info("Websocket %s:%s accepted.", ws.client.host, ws.client.port)
    if secret != app.state.bot.http.token:
        log.warning("Closing websocket %r, invalid secret.", ws.client.host)
        raise _WSException(code=1008, reason="Invalid Secret")
    if app.state.ws_connected.locked():
        log.warning("Closing websocket %r, already connected." % ws)
        raise _WSException(code=1008, reason="Already connected.")
    queue: asyncio.Queue = app.state.bot.bridge_queue

    async with app.state.ws_connected:
        while True:
            try:
                await ws.send_json({"status": "ping"})
            except (WebSocketDisconnect, WebSocketException):
                log.info("Websocket %r disconnected.", ws)
                break

            try:
                data = await asyncio.wait_for(queue.get(), timeout=5)
            except asyncio.TimeoutError:
                continue

            try:
                await ws.send_json(data)
                log.debug("Sent data %r to websocket %r.", data, ws)
            except (WebSocketDisconnect, WebSocketException):
                log.info("Websocket %r disconnected." % ws)
                break
            finally:
                queue.task_done()


@app.get("/bridge/bind/new", dependencies=[Depends(is_authenticated)])
async def bridge_bind_new(mx_id: str):
    """Begins a new bind session."""
    existing: Optional[BridgeBind] = await get_or_none(BridgeBind, matrix_id=mx_id)
    if existing:
        raise HTTPException(409, "Target already bound")

    if not OAUTH_ENABLED:
        raise HTTPException(status.HTTP_503_SERVICE_UNAVAILABLE)

    token = secrets.token_urlsafe()
    app.state.binds[token] = mx_id
    url = discord.utils.oauth_url(
        OAUTH_ID,
        redirect_uri=BIND_REDIRECT_URI,
        scopes=("identify",)
    ) + f"&state={token}&prompt=none"
    return {
        "status": "pending",
        "url": url,
    }


@app.get("/bridge/bind/callback", include_in_schema=False)
async def bridge_bind_callback(code: str, state: str):
    """Finishes the bind."""
    # Getting an entire access token seems like a waste, but oh well. Only need to do this once.
    mx_id = app.state.binds.pop(state, None)
    if not mx_id:
        raise HTTPException(status_code=400, detail="Invalid state")
    data = await get_access_token(code, redirect_uri=BIND_REDIRECT_URI)
    access_token = data["access_token"]
    user = await get_authorised_user(access_token,)
    user_id = int(user["id"])
    await BridgeBind.objects.create(matrix_id=mx_id, discord_id=user_id)
    return JSONResponse({"success": True, "matrix": mx_id, "discord": user_id}, 201)


@app.post("/bridge/bind/_create", include_in_schema=False, dependencies=[Depends(is_authenticated)])
async def bridge_bind_create_nonuser(
    req: Request
):
    body = await req.json()
    if "mx_id" not in body or "discord_id" not in body:
        raise HTTPException(400, "Missing fields")
    mx_id = body["mx_id"]
    discord_id = body["discord_id"]
    webhook = body.get("webhook")
    existing: Optional[BridgeBind] = await get_or_none(BridgeBind, matrix_id=mx_id)
    if existing:
        raise HTTPException(409, "Target already bound")
    await BridgeBind.objects.create(matrix_id=mx_id, discord_id=discord_id, webhook=webhook)
    return JSONResponse({"status": "ok"}, 201)


@app.delete("/bridge/bind/{mx_id}")
async def bridge_bind_delete(mx_id: str, code: str = None, state: str = None):
    """Unbinds a matrix account."""
    existing: Optional[BridgeBind] = await get_or_none(BridgeBind, matrix_id=mx_id)
    if not existing:
        raise HTTPException(404, "Not found")

    if not (code and state) or state not in app.state.binds:
        token = secrets.token_urlsafe()
        app.state.binds[token] = mx_id
        url = discord.utils.oauth_url(
            OAUTH_ID,
            redirect_uri=BIND_REDIRECT_URI,
            scopes=("identify",)
        ) + f"&state={token}&prompt=none"
        return JSONResponse({"status": "pending", "url": url})
    else:
        access_token = await get_access_token(code, redirect_uri=BIND_REDIRECT_URI)
        user = await get_authorised_user(access_token)
        if existing.discord_id != int(user["id"]):
            raise HTTPException(403, "Invalid user")
        real_mx_id = app.state.binds.pop(state, None)
        if real_mx_id != mx_id:
            raise HTTPException(400, "Invalid state")
        await existing.delete()
        return JSONResponse({"status": "ok"}, 200)


@app.get("/bridge/bind/{mx_id}", dependencies=[Depends(is_authenticated)])
async def bridge_bind_fetch(mx_id: str):
    """Fetch the discord account associated with a matrix account."""
    existing: Optional[BridgeBind] = await get_or_none(BridgeBind, matrix_id=mx_id)
    if not existing:
        raise HTTPException(404, "Not found")
    payload = {"discord": existing.discord_id, "matrix": mx_id}
    if existing.webhook:
        payload["webhook"] = existing.webhook
    return JSONResponse(payload, 200)