#
# This file is part of pretix (Community Edition).
#
# Copyright (C) 2014-2020 Raphael Michel and contributors
# Copyright (C) 2020-2021 rami.io GmbH and contributors
#
# This program 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 in version 3 of the License.
#
# ADDITIONAL TERMS APPLY: Pursuant to Section 7 of the GNU Affero General Public License, additional terms are
# applicable granting you additional permissions and placing additional restrictions on your usage of this software.
# Please refer to the pretix LICENSE file to obtain the full terms applicable to this work. If you did not receive
# this file, see <https://pretix.eu/about/en/license>.
#
# This program 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 this program.  If not, see
# <https://www.gnu.org/licenses/>.
#
import logging
from collections import defaultdict
from datetime import timedelta
from importlib import import_module
from zoneinfo import ZoneInfo

import celery.exceptions
from celery import states
from celery.result import AsyncResult
from django.conf import settings
from django.contrib import messages
from django.core.exceptions import (
    BadRequest, PermissionDenied, ValidationError,
)
from django.core.files.uploadedfile import UploadedFile
from django.db import transaction
from django.http import HttpResponse, JsonResponse, QueryDict
from django.shortcuts import render
from django.test import RequestFactory
from django.utils import timezone, translation
from django.utils.datastructures import MultiValueDict
from django.utils.timezone import get_current_timezone, now
from django.utils.translation import get_language, gettext as _
from django.views import View
from django.views.generic import FormView
from redis import ResponseError

from pretix.base.models import CachedFile, User
from pretix.base.services.tasks import ProfiledEventTask
from pretix.celery_app import app
from pretix.helpers.http import redirect_to_url

logger = logging.getLogger('pretix.base.tasks')


class AsyncMixin:
    success_url = None
    error_url = None
    known_errortypes = []

    def get_success_url(self, value):
        return self.success_url

    def get_error_url(self):
        return self.error_url

    def get_check_url(self, task_id, ajax):
        return self.request.path + '?async_id=%s' % task_id + ('&ajax=1' if ajax else '')

    def _ajax_response_data(self):
        return {}

    def _return_ajax_result(self, res, timeout=.5):
        ready = res.ready()
        if not ready:
            try:
                res.get(timeout=timeout, propagate=False)
            except celery.exceptions.TimeoutError:
                pass
            except ResponseError:
                # There is a long-standing concurrency issue in either celery or redis-py that hasn't been fixed
                # yet. Instead of crashing, we can ignore it and the client will retry their request and hopefully
                # it is fixed next time.
                logger.warning('Ignored ResponseError in AsyncResult.get()')
            except ConnectionError:
                # Redis probably just restarted, let's just report not ready and retry next time
                data = self._ajax_response_data()
                data.update({
                    'async_id': res.id,
                    'ready': False
                })
                return data

        state, info = res.state, res.info
        data = self._ajax_response_data()
        data.update({
            'async_id': res.id,
            'ready': ready,
            'started': False,
        })
        if ready:
            if state == states.SUCCESS and not isinstance(info, Exception):
                smes = self.get_success_message(info)
                if smes:
                    messages.success(self.request, smes)
                # TODO: Do not store message if the ajax client states that it will not redirect
                # but handle the message itself
                data.update({
                    'redirect': self.get_success_url(info),
                    'success': True,
                    'message': str(self.get_success_message(info))
                })
            else:
                messages.error(self.request, self.get_error_message(info))
                # TODO: Do not store message if the ajax client states that it will not redirect
                # but handle the message itself
                data.update({
                    'redirect': self.get_error_url(),
                    'success': False,
                    'message': str(self.get_error_message(info))
                })
        elif state == 'PROGRESS':
            data.update({
                'started': True,
                'percentage': info.get('value', 0) if isinstance(info, dict) else 0,
                'steps': info.get('steps', []) if isinstance(info, dict) else None,
            })
        elif state == 'STARTED':
            data.update({
                'started': True,
            })
        return data

    def get_result(self, request):
        if not request.GET.get('async_id'):
            raise BadRequest("No async_id given")
        res = AsyncResult(request.GET.get('async_id'))
        if 'ajax' in self.request.GET:
            return JsonResponse(self._return_ajax_result(res, timeout=0.25))
        else:
            if res.ready():
                if res.successful() and not isinstance(res.info, Exception):
                    return self.success(res.info)
                else:
                    return self.error(res.info)
            state, info = res.state, res.info
            return render(request, 'pretixpresale/waiting.html', {
                'started': state in ('PROGRESS', 'STARTED'),
                'percentage': info.get('value', 0) if isinstance(info, dict) else 0,
                'steps': info.get('steps', []) if isinstance(info, dict) else None,
            })

    def success(self, value):
        smes = self.get_success_message(value)
        if smes:
            messages.success(self.request, smes)
        if "ajax" in self.request.POST or "ajax" in self.request.GET:
            return JsonResponse({
                'ready': True,
                'success': True,
                'redirect': self.get_success_url(value),
                'message': str(self.get_success_message(value))
            })
        return redirect_to_url(self.get_success_url(value))

    def error(self, exception):
        if isinstance(exception, PermissionDenied):
            raise exception
        messages.error(self.request, self.get_error_message(exception))
        if "ajax" in self.request.POST or "ajax" in self.request.GET:
            return JsonResponse({
                'ready': True,
                'success': False,
                'redirect': self.get_error_url(),
                'message': str(self.get_error_message(exception))
            })
        return redirect_to_url(self.get_error_url())

    def get_error_message(self, exception):
        if isinstance(exception, dict) and exception['exc_type'] in self.known_errortypes:
            return exception['exc_message']
        elif exception.__class__.__name__ in self.known_errortypes:
            return str(exception)
        else:
            logger.error('Unexpected exception: %r' % exception)
            return _('An unexpected error has occurred, please try again later.')

    def get_success_message(self, value):
        return _('The task has been completed.')


class AsyncAction(AsyncMixin):
    task = None

    def do(self, *args, **kwargs):
        if not isinstance(self.task, app.Task):
            raise TypeError('Method has no task attached')

        try:
            res = self.task.apply_async(args=args, kwargs=kwargs)
        except ConnectionError:
            # Task very likely not yet sent, due to redis restarting etc. Let's try once again
            res = self.task.apply_async(args=args, kwargs=kwargs)

        if 'ajax' in self.request.GET or 'ajax' in self.request.POST:
            data = self._return_ajax_result(res)
            data['check_url'] = self.get_check_url(res.id, True)
            return JsonResponse(data)
        else:
            if res.ready():
                if res.successful() and not isinstance(res.info, Exception):
                    return self.success(res.info)
                else:
                    return self.error(res.info)
            return redirect_to_url(self.get_check_url(res.id, False))

    def get(self, request, *args, **kwargs):
        if 'async_id' in request.GET and settings.HAS_CELERY:
            if not request.GET.get('async_id'):
                raise BadRequest("No async_id given")
            return self.get_result(request)
        return self.http_method_not_allowed(request)


class AsyncFormView(AsyncMixin, FormView):
    """
    FormView variant in which instead of ``form_valid``, an ``async_form_valid``
    is executed in a celery task. Note that this places some severe limitations
    on the form and the view, e.g. neither ``get_form*`` nor the form itself
    may depend on the request object unless specifically supported by this class.
    Also, all form keyword arguments except ``instance`` need to be serializable.
    """
    known_errortypes = ['ValidationError']
    expected_exceptions = (ValidationError,)
    task_base = ProfiledEventTask
    atomic_execute = False

    def async_set_progress(self, percentage):
        if not self._task_self.request.called_directly:
            self._task_self.update_state(
                state='PROGRESS',
                meta={'value': percentage}
            )

    def __init_subclass__(cls):
        class StoredUploadedFile(UploadedFile):
            pass

        def async_execute(self, *, request_path, query_string, form_kwargs, locale, tz, url_kwargs=None, url_args=None,
                          organizer=None, event=None, user=None, session_key=None):
            view_instance = cls()
            form_kwargs['data'] = QueryDict(form_kwargs['data'])

            if form_kwargs['files']:
                for k, l in form_kwargs['files'].items():
                    uploadedfiles = []
                    for cfid in l:
                        cf = CachedFile.objects.get(pk=cfid)
                        uploadedfiles.append(StoredUploadedFile(
                            file=cf.file,
                            name=cf.filename,
                            content_type=cf.type,
                            size=cf.file.size,
                            charset=None,
                            content_type_extra=None,
                        ))

                    form_kwargs['files'][k] = uploadedfiles
                form_kwargs['files'] = MultiValueDict(form_kwargs['files'])

            req = RequestFactory().post(
                request_path + '?' + query_string,
                data=form_kwargs['data'].urlencode(),
                content_type='application/x-www-form-urlencoded'
            )
            if form_kwargs['files']:
                req._load_post_and_files()
                req._files = form_kwargs['files']
            view_instance.request = req
            view_instance.kwargs = url_kwargs
            view_instance.args = url_args
            if event:
                view_instance.request.event = event
                view_instance.request.organizer = event.organizer
            elif organizer:
                view_instance.request.organizer = organizer
            if user:
                view_instance.request.user = User.objects.get(pk=user) if isinstance(user, int) else user
            if session_key:
                engine = import_module(settings.SESSION_ENGINE)
                self.SessionStore = engine.SessionStore
                view_instance.request.session = self.SessionStore(session_key)

            task_self = self
            view_instance._task_self = task_self

            with translation.override(locale), timezone.override(ZoneInfo(tz)):
                form_class = view_instance.get_form_class()
                if form_kwargs.get('instance'):
                    form_kwargs['instance'] = cls.model.objects.get(pk=form_kwargs['instance'])

                form_kwargs = view_instance.get_async_form_kwargs(form_kwargs, organizer, event)
                form = form_class(**form_kwargs)
                form.is_valid()
                return view_instance.async_form_valid(self, form)

        if cls.atomic_execute:
            async_execute = transaction.atomic(async_execute)

        cls.async_execute = app.task(
            base=cls.task_base,
            bind=True,
            name=cls.__module__ + '.' + cls.__name__ + '.async_execute',
            throws=cls.expected_exceptions
        )(async_execute)

    def async_form_valid(self, task, form):
        pass

    def get_async_form_kwargs(self, form_kwargs, organizer=None, event=None):
        return form_kwargs

    def get(self, request, *args, **kwargs):
        if 'async_id' in request.GET and settings.HAS_CELERY:
            return self.get_result(request)
        return super().get(request, *args, **kwargs)

    def form_valid(self, form):
        files = defaultdict(list)
        if self.request.FILES:
            for k, v in self.request.FILES.items():
                cf = CachedFile.objects.create(
                    expires=now() + timedelta(hours=2),
                    date=now(),
                    web_download=False,
                    filename=v.name,
                    type=v.content_type,
                )
                cf.file.save('uploaded_file.dat', v)
                files[k].append(str(cf.pk))

        form_kwargs = {
            k: v for k, v in self.get_form_kwargs().items()
        }
        if form_kwargs.get('instance'):
            if form_kwargs['instance'].pk:
                form_kwargs['instance'] = form_kwargs['instance'].pk
            else:
                form_kwargs['instance'] = None
        form_kwargs.setdefault('data', QueryDict())
        form_kwargs['data'] = form_kwargs['data'].urlencode()
        form_kwargs['files'] = files
        form_kwargs['initial'] = {}
        form_kwargs.pop('event', None)
        kwargs = {
            'request_path': self.request.path,
            'query_string': self.request.GET.urlencode(),
            'form_kwargs': form_kwargs,
            'url_args': self.args,
            'url_kwargs': self.kwargs,
            'locale': get_language(),
            'tz': str(get_current_timezone()),
        }
        if hasattr(self.request, 'organizer'):
            kwargs['organizer'] = self.request.organizer.pk
        if self.request.user.is_authenticated:
            kwargs['user'] = self.request.user.pk
        if hasattr(self.request, 'event'):
            kwargs['event'] = self.request.event.pk
        if hasattr(self.request, 'session'):
            kwargs['session_key'] = self.request.session.session_key

        try:
            res = type(self).async_execute.apply_async(kwargs=kwargs)
        except ConnectionError:
            # Task very likely not yet sent, due to redis restarting etc. Let's try once again
            res = type(self).async_execute.apply_async(kwargs=kwargs)

        if 'ajax' in self.request.GET or 'ajax' in self.request.POST:
            data = self._return_ajax_result(res)
            data['check_url'] = self.get_check_url(res.id, True)
            return JsonResponse(data)
        else:
            if res.ready():
                if res.successful() and not isinstance(res.info, Exception):
                    return self.success(res.info)
                else:
                    return self.error(res.info)
            return redirect_to_url(self.get_check_url(res.id, False))


class AsyncPostView(AsyncMixin, View):
    """
    View variant in which instead of ``post``, an ``async_post`` is executed in a celery task.
    Note that this places some severe limitations on the form and the view, e.g. ``async_post`` may not
    depend on the request object unless specifically supported by this class. File upload is currently also
    not supported.
    """
    known_errortypes = ['ValidationError', 'PermissionDenied']
    expected_exceptions = (ValidationError, PermissionDenied)
    task_base = ProfiledEventTask

    def async_set_progress(self, percentage):
        if not self._task_self.request.called_directly:
            self._task_self.update_state(
                state='PROGRESS',
                meta={'value': percentage}
            )

    def __init_subclass__(cls):
        def async_execute(self, *, request_path, url_args, url_kwargs, query_string, post_data, locale, tz,
                          organizer=None, event=None, user=None, session_key=None):
            view_instance = cls()
            req = RequestFactory().post(
                request_path + '?' + query_string,
                data=post_data,
                content_type='application/x-www-form-urlencoded'
            )
            view_instance.request = req
            view_instance.kwargs = url_kwargs
            view_instance.args = url_args
            if event:
                view_instance.request.event = event
                view_instance.request.organizer = event.organizer
            elif organizer:
                view_instance.request.organizer = organizer
            if user:
                view_instance.request.user = User.objects.get(pk=user) if isinstance(user, int) else user
            if session_key:
                engine = import_module(settings.SESSION_ENGINE)
                self.SessionStore = engine.SessionStore
                view_instance.request.session = self.SessionStore(session_key)

            task_self = self
            view_instance._task_self = task_self

            with translation.override(locale), timezone.override(ZoneInfo(tz)):
                return view_instance.async_post(view_instance.request, *url_args, **url_kwargs)

        cls.async_execute = app.task(
            base=cls.task_base,
            bind=True,
            name=cls.__module__ + '.' + cls.__name__ + '.async_execute',
            throws=cls.expected_exceptions
        )(async_execute)

    def async_post(self, request, *args, **kwargs):
        pass

    def get(self, request, *args, **kwargs):
        if 'async_id' in request.GET and settings.HAS_CELERY:
            return self.get_result(request)
        return HttpResponse(status=405)

    def post(self, request, *args, **kwargs):
        if request.FILES:
            raise TypeError('File upload currently not supported in AsyncPostView')
        kwargs = {
            'request_path': self.request.path,
            'query_string': self.request.GET.urlencode(),
            'post_data': self.request.POST.urlencode(),
            'locale': get_language(),
            'url_args': args,
            'url_kwargs': kwargs,
            'tz': str(get_current_timezone()),
        }
        if hasattr(self.request, 'organizer'):
            kwargs['organizer'] = self.request.organizer.pk
        if self.request.user.is_authenticated:
            kwargs['user'] = self.request.user.pk
        if hasattr(self.request, 'event'):
            kwargs['event'] = self.request.event.pk
        if hasattr(self.request, 'session'):
            kwargs['session_key'] = self.request.session.session_key

        try:
            res = type(self).async_execute.apply_async(kwargs=kwargs)
        except ConnectionError:
            # Task very likely not yet sent, due to redis restarting etc. Let's try once again
            res = type(self).async_execute.apply_async(kwargs=kwargs)

        if 'ajax' in self.request.GET or 'ajax' in self.request.POST:
            data = self._return_ajax_result(res)
            data['check_url'] = self.get_check_url(res.id, True)
            return JsonResponse(data)
        else:
            if res.ready():
                if res.successful() and not isinstance(res.info, Exception):
                    return self.success(res.info)
                else:
                    return self.error(res.info)
            return redirect_to_url(self.get_check_url(res.id, False))