import asyncio
import datetime
import hashlib
import logging
import shelve
import re
import requests
from asyncio import sleep
from os import mkdir
from os.path import isdir, isfile
from threading import RLock

from aiogram import Bot, Dispatcher, executor, types
from aiogram.types import InlineQuery, InputTextMessageContent, InlineKeyboardMarkup, InlineKeyboardButton, InlineQueryResultArticle, ParseMode, reply_keyboard, ContentType
from aiogram.utils import markdown
from aiogram.utils.callback_data import CallbackData
from aiogram.utils.exceptions import MessageIsTooLong
from EDTcalendar import Calendar
from EDTuser import User, KFET_URL
from lang import lang
from ics.parse import ParseError
from requests.exceptions import ConnectionError, InvalidSchema, MissingSchema
from pyzbar.pyzbar import decode
from PIL import Image


if not isdir("logs"):
    mkdir("logs")

logger = logging.getLogger("TelegramEDT")
log_date = datetime.datetime.now(datetime.timezone.utc).astimezone(tz=None).date()
logging.basicConfig(
    filename=f"logs/{log_date}.log",
    format="{%(levelname)s}[%(asctime)s]: %(name)s | %(message)s",
    level=logging.INFO,
)

if not isfile("token.ini"):
    logger.critical("No token specified, impossible to start the bot !")
    exit(1)
API_TOKEN = open("token.ini").readline().replace("\n", "")
ADMIN_ID = 148441652
TIMES = ["", "day", "next", "week", "next week"]

bot = Bot(token=API_TOKEN)
posts_cb = CallbackData("post", "id", "action")
dp = Dispatcher(bot)
dbL = RLock()


def get_now():
    return datetime.datetime.now(datetime.timezone.utc).astimezone(tz=None)


def have_await_cmd(msg: types.Message):
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            return db[str(msg.from_user.id)].await_cmd


def edt_key():
    key = InlineKeyboardMarkup()
    for i, n in enumerate(["Day", "Next", "Week", "Next week"]):
        key.add(InlineKeyboardButton(n, callback_data=posts_cb.new(id=i, action=n.lower())))
    return key


def calendar(time: str, user_id: int):
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            user = db[str(user_id)]
            if not user.resources:
                return lang(user, "edt_err_set")
            elif time not in TIMES:
                return lang(user, "edt_err_choice")
            return str(user.calendar(time))


async def notif():
    while True:
        with dbL:
            with shelve.open("edt", writeback=True) as db:
                for u in db:
                    nt = None
                    kg = None
                    try:
                        nt = db[u].get_notif()
                        kf = db[u].get_kfet()
                    except:
                        pass

                    if nt:
                        await bot.send_message(int(u), lang(db[u], "notif_event")+str(nt), parse_mode=ParseMode.MARKDOWN)
                    if kf is not None:
                        if kf == 1:
                            kf = lang(db[u], "kfet")
                        elif kf == 2:
                            kf = lang(db[u], "kfet_prb")
                        else:
                            kf = lang(db[u], "kfet_err")
                        await bot.send_message(int(u), kf, parse_mode=ParseMode.MARKDOWN)
        await sleep(60)


@dp.inline_handler()
async def inline_edt(inline_query: InlineQuery):
    text = inline_query.query.lower() if inline_query.query.lower() in TIMES else "invalid"
    res = calendar(text, inline_query.from_user.id)
    input_content = InputTextMessageContent(res, parse_mode=ParseMode.MARKDOWN)
    result_id: str = hashlib.md5(res.encode()).hexdigest()
    item = InlineQueryResultArticle(
        id=result_id,
        title=f"Your {text} course",
        input_message_content=input_content,
    )
    await bot.answer_inline_query(inline_query.id, results=[item], cache_time=1)


@dp.message_handler(commands="start")
async def start(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} start")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            if user_id not in db:
                logger.info(f"{message.from_user.username} add to the db")
                if message.from_user.locale and message.from_user.locale.language:
                    lg = message.from_user.locale.language
                else:
                    lg = ""
                db[user_id] = User(int(user_id), lg)
            user = db[user_id]
    key = reply_keyboard.ReplyKeyboardMarkup()
    key.add(reply_keyboard.KeyboardButton("Edt"))
    key.add(reply_keyboard.KeyboardButton("Kfet"))
    key.add(reply_keyboard.KeyboardButton("Setkfet"))
    key.add(reply_keyboard.KeyboardButton("Setedt"))
    key.add(reply_keyboard.KeyboardButton("Notif"))
    await message.reply(lang(user, "welcome"), parse_mode=ParseMode.MARKDOWN, reply_markup=key)


@dp.message_handler(commands="help")
async def help_cmd(message: types.Message):
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do help command")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            user = db[str(message.from_user.id)]
    await message.reply(lang(user, "help"), parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(lambda msg: msg.text.lower() == "edt")
async def edt_cmd(message: types.Message):
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do edt")
    await message.reply(calendar("day", message.from_user.id), parse_mode=ParseMode.MARKDOWN, reply_markup=edt_key())


@dp.callback_query_handler(posts_cb.filter(action=["day", "next", "week", "next week"]))
async def edt_query(query: types.CallbackQuery, callback_data: dict):
    await query.message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{query.message.from_user.username} do edt query")
    await query.message.reply(calendar(callback_data["action"], query.from_user.id), parse_mode=ParseMode.MARKDOWN, reply_markup=edt_key())


@dp.message_handler(lambda msg: msg.text.lower() == "kfet")
async def kfet(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do kfet")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            if not 9 < get_now().hour < 14 or not get_now().isoweekday() < 6:
                msg = lang(db[user_id], "kfet_close")
            else:
                msg = lang(db[user_id], "kfet_list")
                cmds = requests.get(KFET_URL).json()
                if cmds:
                    for c in cmds:
                        msg += markdown.code(c) + " " if cmds[c]["statut"] == "ok" else ""
    await message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(lambda msg: msg.text.lower() == "setkfet")
async def kfet_set(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do setkfet")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            if not 9 < get_now().hour < 14 or not get_now().isoweekday() < 5:
                msg = lang(db[user_id], "kfet_close")
            else:
                db[user_id].await_cmd = "setkfet"
                msg = lang(db[user_id], "kfet_set_await")

    await message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(lambda msg: msg.text.lower() == "setedt")
async def edt_await(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do setedt")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            db[user_id].await_cmd = "setedt"
            await message.reply(lang(db[user_id], "setedt_wait"), parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(commands="getedt")
async def edt_geturl(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do getedt command")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            if db[user_id].resources:
                await message.reply(db[user_id].resources)
            else:
                await message.reply(lang(db[user_id], "getedt_err"))


@dp.message_handler(lambda msg: msg.text.lower() == "notif")
async def notif_cmd(message: types.Message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do notif")
    key = InlineKeyboardMarkup()
    for i, n in enumerate(["Toggle", "Time", "Cooldown"]):
        key.add(InlineKeyboardButton(n, callback_data=posts_cb.new(id=i, action=n.lower())))
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            msg = lang(db[user_id], "notif_info").format(db[user_id].nt, db[user_id].nt_time, db[user_id].nt_cooldown)
    await message.reply(msg, parse_mode=ParseMode.MARKDOWN, reply_markup=key)


@dp.callback_query_handler(posts_cb.filter(action=["toggle", "time", "cooldown"]))
async def notif_query(query: types.CallbackQuery, callback_data: dict):
    user_id = str(query.from_user.id)
    await query.message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{query.message.from_user.username} do notif query")
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            if callback_data["action"] == "toggle":
                if db[user_id].nt:
                    res = False
                else:
                    res = True

                db[user_id].nt = res
                msg = lang(db[user_id], "notif_set").format(res)

            elif callback_data["action"] in ["time", "cooldown"]:
                db[user_id].await_cmd = callback_data["action"]
                msg = lang(db[user_id], "notif_await")

    await query.message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(lambda msg: have_await_cmd(msg), content_types=[ContentType.TEXT, ContentType.PHOTO])
async def await_cmd(message: types.message):
    user_id = str(message.from_user.id)
    await message.chat.do(types.ChatActions.TYPING)
    msg = None
    with dbL:
        with shelve.open("edt", writeback=True) as db:
            logger.info(f"{message.from_user.username} do awaited commande: {db[user_id].await_cmd}")
            if db[user_id].await_cmd == "setedt":
                url = str()
                if message.photo:
                    file_path = await bot.get_file(message.photo[0].file_id)
                    file_url = f"https://api.telegram.org/file/bot{API_TOKEN}/{file_path['file_path']}"
                    qr = decode(Image.open(requests.get(file_url, stream=True).raw))
                    if qr:
                        url = str(qr[0].data)
                elif message.text:
                    msg_url = re.findall(
                        "http[s]?://(?:[a-zA-Z]|[0-9]|[$-_@.&+]|[!*\(\),]|(?:%[0-9a-fA-F][0-9a-fA-F]))+", message.text)
                    if msg_url:
                        url = msg_url[0]

                if url:
                    resources = url[url.find("resources") + 10:][:4]
                elif message.text:
                    resources = message.text

                try:
                    Calendar("", int(resources))
                except (ParseError, ConnectionError, InvalidSchema, MissingSchema, ValueError, UnboundLocalError):
                    msg = lang(db[user_id], "setedt_err_res")
                else:
                    db[user_id].resources = int(resources)
                    msg = lang(db[user_id], "setedt")

            elif db[user_id].await_cmd == "setkfet":
                try:
                    int(message.text)
                except ValueError:
                    msg = lang(db[user_id], "err_num")
                else:
                    db[user_id].kfet = int(message.text)
                    msg = lang(db[user_id], "kfet_set")

            elif db[user_id].await_cmd in ["time", "cooldown"]:
                try:
                    value = int(message.text)
                except ValueError:
                    msg = lang(db[user_id], "err_num")
                else:
                    if db[user_id].await_cmd == "time":
                        db[user_id].nt_time = value
                    else:
                        db[user_id].nt_cooldown = value

                    msg = lang(db[user_id], "notif_time_cooldown").format(db[user_id].await_cmd[6:], value)

            if db[user_id].await_cmd:
                db[user_id].await_cmd = str()

    if msg:
        await message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(commands="getid")
async def get_id(message: types.Message):
    await message.chat.do(types.ChatActions.TYPING)
    logger.info(f"{message.from_user.username} do getid command")
    await message.reply(message.from_user.id)


@dp.message_handler(commands="getlogs")
async def get_logs(message: types.Message):
    logger.info(f"{message.from_user.username} do getlog command")
    if message.from_user.id == ADMIN_ID:
        try:
            int(message.text[9:])
        except ValueError:
            await message.chat.do(types.ChatActions.UPLOAD_DOCUMENT)
            await message.reply_document(types.InputFile(f"logs/{log_date}.log"), caption=f"The {log_date} logs")
        else:
            await message.chat.do(types.ChatActions.TYPING)
            logs = (open(f"logs/{log_date}.log", "r").readlines())[-int(message.text[9:]):]
            log = str()
            for i in logs:
                log += i
            msg = markdown.text(
                markdown.italic("logs:"),
                markdown.code(log),
                sep="\n"
            )
            try:
                await message.reply(msg, parse_mode=ParseMode.MARKDOWN)
            except MessageIsTooLong:
                await message.reply(markdown.bold("Too much logs ! ❌"))


@dp.message_handler(commands="getdb")
async def get_db(message: types.Message):
    logger.info(f"{message.from_user.username} do getdb command")
    if message.from_user.id == ADMIN_ID:
        with dbL:
            with shelve.open("edt") as db:
                msg = markdown.text(
                    markdown.italic("db:"),
                    markdown.code(dict(db)),
                    sep="\n"
                )
        await message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.message_handler(commands="eval")
async def eval_cmd(message: types.Message):
    logger.info(f"{message.from_user.username} do eval command")
    if message.from_user.id == ADMIN_ID:
        msg = markdown.text(
            markdown.italic("eval:"),
            markdown.code(eval(message.text[6:])),
            sep="\n"
        )
        await message.reply(msg, parse_mode=ParseMode.MARKDOWN)


@dp.errors_handler()
async def errors(*args, **partial_data):
    msg = markdown.text(
        markdown.bold("⚠️ An error occurred:"),
        markdown.code(args),
        markdown.code(partial_data),
        sep="\n"
    )
    await bot.send_message(ADMIN_ID, msg, parse_mode=ParseMode.MARKDOWN)


if __name__ == '__main__':
    loop = asyncio.get_event_loop()
    loop.create_task(notif())
    loop.create_task(executor.start_polling(dp, skip_updates=True))
    loop.run_forever()