#    Copyright (C) 2017-2018  Alban Gruin
#
#    celcatsanitizer is free software: you can redistribute it and/or modify
#    it under the terms of the GNU Affero General Public License as published
#    by the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    celcatsanitizer is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU Affero General Public License for more details.
#
#    You should have received a copy of the GNU Affero General Public License
#    along with celcatsanitizer.  If not, see <http://www.gnu.org/licenses/>.

from importlib import import_module

import datetime
import traceback

from django.conf import settings
from django.core.management.base import BaseCommand
from django.db import transaction
from django.db.models import Min

from ...models import Course, Source
from ...utils import get_week, tz_now

DEFAULT_PARSER = "edt.management.parsers.ups2017"


def delete_courses_in_week(source, year, week, today):
    start, end = get_week(year, week)
    Course.objects.filter(begin__gte=max(start, today), begin__lt=end,
                          source=source).delete()


@transaction.atomic
def process_timetable_week(source, force, parser, year=None, week=None):
    if year is not None and week is not None:
        begin, end = get_week(year, week)

    # Si on force la mise à jour, on définit de moment
    # de la mise à jour au début de la semaine
    if force and year is not None and week is not None:
        today = begin
    elif force:
        # Si la mise à jour est faite sur tout l’emploi du temps,
        # alors la date de début est indéfinie.
        today = None
    else:
        today = tz_now()

    # On récupère la mise à jour la plus ancienne dans les cours de
    # l’emploi du temps
    last_update_date = Course.objects.filter(source=source)

    if today is not None:
        # Cette date concerne les éléments commençant à partir
        # d’aujourd’hui si la valeur n’est pas nulle.
        last_update_date = last_update_date.filter(begin__gte=today)

    if year is not None and week is not None:
        # Si jamais on traite une semaine spécifique, on limite les
        # cours sélectionnés à ceux qui commencent entre le début du
        # traitement et la fin de la semaine
        last_update_date = last_update_date.filter(begin__lt=end)

    last_update_date = last_update_date.aggregate(
        Min("last_update"))["last_update__min"]

    # Date de mise à jour de Celcat, utilisée à des fins de statistiques
    new_update_date = parser.get_update_date()

    # On ne fait pas la mise à jour si jamais la dernière date de MàJ
    # est plus récente que celle indiquée par Celcat.  Attention, le
    # champ last_update de la classe Course représente l’heure à
    # laquelle le cours a été inséré dans la base de données, et non
    # pas la date indiquée par Celcat.
    if not force and last_update_date is not None and \
       new_update_date is not None and last_update_date >= new_update_date:
        return

    # Pas de traitement si il n’y a pas de semaine dans l’emploi du temps
    if len(parser.weeks.values()):
        if year is not None and week is not None:
            # On efface la semaine à partir de maintenant si jamais
            # on demande le traitement d’une seule semaine
            delete_courses_in_week(source, year, week, today)
        else:
            # Sinon, on efface tous les cours à partir de maintenant.
            # Précisément, on prend la plus grande valeur entre la
            # première semaine présente dans Celcat et maintenant.
            delete_from = min(parser.weeks.values())
            if not force:
                # Si jamais on force la MàJ, on efface tout à partir de la
                # première semaine
                delete_from = max(delete_from, today)

            Course.objects.filter(
                source=source, begin__gte=delete_from).delete()

        # Tous les cours commençant sur la période traitée
        # sont parsés, puis enregistrés dans la base de données.
        for course in parser.get_events(today, year, week):
            course.save()

    # On renseigne la date de mise à jour de Celcat, à des fins de statistiques
    source.last_update_date = new_update_date
    source.save()


def process_timetable(source, force, parser_cls, year=None, weeks=None):
    parser = parser_cls(source)
    parser.get_source()
    parser.get_weeks()

    if year is not None and weeks is not None:
        for week in weeks:
            process_timetable_week(source, force, parser, year, week)
    else:
        process_timetable_week(source, force, parser)


class Command(BaseCommand):
    help = "Fetches registered celcat timetables"

    def add_arguments(self, parser):
        parser.add_argument("--all", const=True, default=False,
                            action="store_const")
        parser.add_argument("--force", const=True, default=False,
                            action="store_const")
        parser.add_argument("--week", type=int, choices=range(1, 54),
                            nargs="+")
        parser.add_argument("--year", type=int, nargs=1)

    def __get_parser(self):
        parser_module = getattr(settings, "CS_PARSER", DEFAULT_PARSER)
        return getattr(import_module(parser_module), "Parser")

    def handle(self, *args, **options):
        year = None
        errcount = 0
        parser = self.__get_parser()

        if options["all"]:
            weeks = None
        elif options["week"] is None:
            _, week, day = tz_now().isocalendar()
            if day >= 6:
                year, week, _ = (tz_now() + datetime.timedelta(weeks=1)) \
                                                            .isocalendar()
            weeks = [week]
        else:
            weeks = options["week"]

        if not options["all"]:
            if options["year"] is None and year is None:
                year = tz_now().year
            elif year is None:
                year = options["year"][0]

        for source in Source.objects.all():
            self.stdout.write("Processing {0}".format(
                source.formatted_timetables))

            try:
                process_timetable(source, options["force"], parser,
                                  year, weeks)
            except KeyboardInterrupt:
                break
            except Exception:
                self.stderr.write(
                    self.style.ERROR("Failed to process {0}:".format(
                        source.formatted_timetables))
                )
                self.stderr.write(self.style.ERROR(traceback.format_exc()))
                errcount += 1

        if errcount == 0:
            self.stdout.write(self.style.SUCCESS("Done."))
        else:
            self.stdout.write(self.style.ERROR("Done with {0} errors.".format(
                errcount)))