# Xandikos
# Copyright (C) 2016-2017 Jelmer Vernooĳ <jelmer@jelmer.uk>, et al.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; version 3
# of the License or (at your option) any later version of
# the 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
# MA  02110-1301, USA.

"""Abstract WebDAV server implementation..

This module contains an abstract WebDAV server. All caldav/carddav specific
functionality should live in xandikos.caldav/xandikos.carddav respectively.
"""

# TODO(jelmer): Add authorization support

import asyncio
import collections
import fnmatch
import functools
from logging import getLogger
import os
import posixpath
import urllib.parse
from collections.abc import AsyncIterable, Iterable, Iterator, Sequence
from datetime import datetime
from collections.abc import Callable
from wsgiref.util import request_uri

# Hmm, defusedxml doesn't have XML generation functions? :(
from xml.etree import ElementTree as ET

from defusedxml.ElementTree import fromstring as xmlparse

logger = getLogger("xandikos")

DEFAULT_ENCODING = "utf-8"
COLLECTION_RESOURCE_TYPE = "{DAV:}collection"
PRINCIPAL_RESOURCE_TYPE = "{DAV:}principal"


PropStatus = collections.namedtuple(
    "PropStatus", ["statuscode", "responsedescription", "prop"]
)


class BadRequestError(Exception):
    """Base class for bad request errors."""

    def __init__(self, message) -> None:
        super().__init__(message)
        self.message = message


def nonfatal_bad_request(message, strict=False):
    if strict:
        raise BadRequestError(message)
    logger.debug("Bad request: %s", message)


class NotAcceptableError(Exception):
    """Base class for not acceptable errors."""

    def __init__(self, available_content_types, acceptable_content_types) -> None:
        super().__init__(
            f"Unable to convert from content types {available_content_types!r} to one of {acceptable_content_types!r}"
        )
        self.available_content_types = available_content_types
        self.acceptable_content_types = acceptable_content_types


class UnsupportedMediaType(Exception):
    """Base class for unsupported media type errors."""

    def __init__(self, content_type) -> None:
        super().__init__(f"Unsupported media type: {content_type!r}")
        self.content_type = content_type


class UnauthorizedError(Exception):
    """Base class for unauthorized errors (401)."""

    def __init__(self) -> None:
        super().__init__("Request unauthorized")


class ForbiddenError(Exception):
    """Error raised when access to a resource is forbidden (403).

    This is distinct from UnauthorizedError (401) - ForbiddenError means
    the user is authenticated but not allowed to access the resource.
    """

    def __init__(self, message: str = "Access forbidden") -> None:
        super().__init__(message)
        self.message = message


class Response:
    """Generic wrapper for HTTP-style responses."""

    def __init__(self, status=200, reason="OK", body=None, headers=None) -> None:
        if isinstance(status, str):
            self.status = int(status.split(" ", 1)[0])
            self.reason = status.split(" ", 1)[1]
        else:
            self.status = status
            self.reason = reason
        self.body = body or []
        if isinstance(headers, dict):
            self.headers = list(headers.items())
        elif isinstance(headers, list):
            self.headers = list(headers)
        elif not headers:
            self.headers = []
        else:
            raise TypeError(headers)

    def for_wsgi(self, start_response):
        start_response("%d %s" % (self.status, self.reason), self.headers)
        return self.body

    async def for_aiohttp(self, request):
        from aiohttp import web

        # For bytes or simple cases, use regular Response
        if isinstance(self.body, (bytes, bytearray, memoryview, str)):
            return web.Response(
                status=self.status,
                reason=self.reason,
                headers=self.headers,
                body=self.body,
            )

        # For iterables, use StreamResponse to avoid buffering entire response
        response = web.StreamResponse(
            status=self.status, reason=self.reason, headers=self.headers
        )
        await response.prepare(request)
        for chunk in self.body:
            await response.write(chunk)
        await response.write_eof()
        return response


def pick_content_types(accepted_content_types, available_content_types):
    """Pick best content types for a client.

    Args:
      accepted_content_types: Accept variable (as name, params tuples)

    Raises:
      NotAcceptableError: If there are no overlapping content types
    """
    available_content_types = set(available_content_types)
    acceptable_by_q = {}
    for ct, params in accepted_content_types:
        acceptable_by_q.setdefault(float(params.get("q", "1")), []).append(ct)
    if 0 in acceptable_by_q:
        # Items with q=0 are not acceptable
        for pat in acceptable_by_q[0]:
            available_content_types -= set(fnmatch.filter(available_content_types, pat))
        del acceptable_by_q[0]
    for q, pats in sorted(acceptable_by_q.items(), reverse=True):
        ret = []
        for pat in pats:
            ret.extend(fnmatch.filter(available_content_types, pat))
        if ret:
            return ret
    raise NotAcceptableError(available_content_types, accepted_content_types)


def parse_type(content_type):
    """Parse a content-type style header.

    Args:
      content_type: type to parse
    Returns: Tuple with base name and dict with params
    """
    params = {}
    try:
        (ct, rest) = content_type.split(";", 1)
    except ValueError:
        ct = content_type
    else:
        for param in rest.split(";"):
            (key, val) = param.split("=")
            params[key.strip()] = val.strip()
    return (ct, params)


def parse_accept_header(accept):
    """Parse a HTTP Accept or Accept-Language header.

    Args:
      accept: Accept header contents
    Returns: List of (content_type, params) tuples
    """
    ret = []
    for part in accept.split(","):
        part = part.strip()
        if not part:
            continue
        ret.append(parse_type(part))
    return ret


class PreconditionFailure(Exception):
    """A precondition failed."""

    def __init__(self, precondition, description) -> None:
        self.precondition = precondition
        self.description = description


class InsufficientStorage(Exception):
    """Insufficient storage."""


class ResourceLocked(Exception):
    """Resource locked."""


class ProtectedPropertyError(Exception):
    """Attempt to modify a protected property."""

    def __init__(self, message=None) -> None:
        self.message = message
        super().__init__(message)


def etag_matches(condition, actual_etag):
    """Check if an etag matches an If-Matches condition.

    Args:
      condition: Condition (e.g. '*', '"foo"' or '"foo", "bar"'
      actual_etag: ETag to compare to. None nonexistent
    Returns: bool indicating whether condition matches
    """
    if actual_etag is None and condition:
        return False
    for etag in condition.split(","):
        if etag.strip(" ") == "*":
            return True
        if etag.strip(" ") == actual_etag:
            return True
    return False


class NeedsMultiStatus(Exception):
    """Raised when a response needs multi-status (e.g. for propstat)."""


def propstat_by_status(propstat):
    """Sort a list of propstatus objects by HTTP status.

    Args:
      propstat: List of PropStatus objects:
    Returns: dictionary mapping HTTP status code to list of PropStatus objects
    """
    bystatus = {}
    for propstat in propstat:
        (
            bystatus.setdefault(
                (propstat.statuscode, propstat.responsedescription), []
            ).append(propstat.prop)
        )
    return bystatus


def propstat_as_xml(propstat):
    """Format a list of propstats as XML elements.

    Args:
      propstat: List of PropStatus objects
    Returns: Iterator over {DAV:}propstat elements
    """
    bystatus = propstat_by_status(propstat)
    for (status, rd), props in sorted(bystatus.items()):
        propstat = ET.Element("{DAV:}propstat")
        ET.SubElement(propstat, "{DAV:}status").text = "HTTP/1.1 " + status
        if rd:
            ET.SubElement(propstat, "{DAV:}responsedescription").text = rd
        propresp = ET.SubElement(propstat, "{DAV:}prop")
        for prop in props:
            propresp.append(prop)
        yield propstat


def path_from_environ(environ, name):
    """Return a path from an environ dict.

    Will re-decode using a different encoding as necessary.
    """
    # Re-decode using DEFAULT_ENCODING. PEP-3333 says that
    # everything will be decoded using iso-8859-1.
    # See also https://bugs.python.org/issue16679
    path = environ[name].encode("iso-8859-1").decode(DEFAULT_ENCODING)
    return posixpath.normpath(path)


def split_path_preserving_encoding(request, environ):
    """Split a path into container and item parts, preserving percent-encoded slashes.

    This function uses the raw_path to split the path before decoding, which ensures
    that percent-encoded slashes (%2F) are not incorrectly interpreted as path separators.

    Args:
        request: The request object (must have raw_path attribute)
        environ: The environ dict containing SCRIPT_NAME

    Returns:
        tuple: (decoded_container_path, decoded_item_name)

    See: https://github.com/jelmer/xandikos/issues/384
    """
    script_name = environ.get("SCRIPT_NAME", "")
    raw_path_for_split = request.raw_path
    if raw_path_for_split.startswith(script_name):
        raw_path_for_split = raw_path_for_split[len(script_name) :]

    # Strip URI fragments per RFC 3986 Section 3.5
    # Fragments (e.g., "#ment" in "/path/file#ment") are client-side only and
    # should not be sent to the server. If they are sent, strip them to avoid
    # treating them as part of the resource name.
    if "#" in raw_path_for_split:
        raw_path_for_split = raw_path_for_split.split("#", 1)[0]

    container_path_raw, item_name_raw = posixpath.split(raw_path_for_split.rstrip("/"))
    # Decode the components after splitting
    container_path = urllib.parse.unquote(
        container_path_raw, encoding="utf-8", errors="strict"
    )
    item_name = urllib.parse.unquote(item_name_raw, encoding="utf-8", errors="strict")
    # Ensure container path starts with /
    if not container_path:
        container_path = "/"
    elif not container_path.startswith("/"):
        container_path = "/" + container_path
    return container_path, item_name


class Status:
    """A DAV response that can be used in multi-status."""

    def __init__(
        self,
        href,
        status=None,
        error=None,
        responsedescription=None,
        propstat=None,
    ) -> None:
        self.href = str(href)
        self.status = status
        self.error = error
        self.propstat = propstat
        self.responsedescription = responsedescription

    def __repr__(self) -> str:
        return f"<{type(self).__name__}({self.href!r}, {self.status!r}, {self.responsedescription!r})>"

    def get_single_body(self, encoding):
        if self.propstat and len(propstat_by_status(self.propstat)) > 1:
            raise NeedsMultiStatus()
        if self.propstat:
            [ret] = list(propstat_as_xml(self.propstat))
            body = ET.tostringlist(ret, encoding)
            return body, (f'text/xml; encoding="{encoding}"')
        elif self.error is not None:
            # Return error element as XML body with the status code
            # (not as a 207 Multi-Status response)
            error_element = ET.Element("{DAV:}error")
            error_element.append(self.error)
            if self.responsedescription:
                desc_el = ET.SubElement(error_element, "{DAV:}responsedescription")
                desc_el.text = self.responsedescription
            body = ET.tostringlist(error_element, encoding)
            return body, (f'text/xml; encoding="{encoding}"')
        else:
            body = (
                [self.responsedescription.encode(encoding)]
                if self.responsedescription
                else []
            )
            return body, (f'text/plain; encoding="{encoding}"')

    def aselement(self):
        ret = ET.Element("{DAV:}response")
        ret.append(create_href(self.href))
        if self.propstat:
            for ps in propstat_as_xml(self.propstat):
                ret.append(ps)
        elif self.status:
            ET.SubElement(ret, "{DAV:}status").text = "HTTP/1.1 " + self.status
        # Note the check for "is not None" here. Elements without children
        # evaluate to False.
        if self.error is not None:
            ET.SubElement(ret, "{DAV:}error").append(self.error)
        if self.responsedescription:
            ET.SubElement(
                ret, "{DAV:}responsedescription"
            ).text = self.responsedescription
        return ret


def multistatus(req_fn):
    async def wrapper(self, environ, *args, **kwargs):
        responses = []
        async for resp in req_fn(self, environ, *args, **kwargs):
            responses.append(resp)
        return _send_dav_responses(responses, DEFAULT_ENCODING)

    return wrapper


class Resource:
    """A WebDAV resource."""

    # A list of resource type names (e.g. '{DAV:}collection')
    resource_types: list[str] = []

    # TODO(jelmer): Be consistent in using get/set functions vs properties.
    def set_resource_types(self, resource_types: list[str]) -> None:
        """Set the resource types."""
        raise NotImplementedError(self.set_resource_types)

    def get_displayname(self) -> str:
        """Get the resource display name."""
        raise KeyError

    def set_displayname(self, displayname: str) -> None:
        """Set the resource display name."""
        raise NotImplementedError(self.set_displayname)

    def get_creationdate(self) -> datetime:
        """Get the resource creation date.

        Returns: A datetime object
        """
        raise NotImplementedError(self.get_creationdate)

    def get_supported_locks(self) -> list[tuple[str, str]]:
        """Get the list of supported locks.

        This should return a list of (lockscope, locktype) tuples.
        Known lockscopes are LOCK_SCOPE_EXCLUSIVE, LOCK_SCOPE_SHARED
        Known locktypes are LOCK_TYPE_WRITE
        """
        raise NotImplementedError(self.get_supported_locks)

    def get_active_locks(self) -> list["ActiveLock"]:
        """Return the list of active locks.

        Returns: A list of ActiveLock tuples
        """
        raise NotImplementedError(self.get_active_locks)

    def get_content_type(self) -> str:
        """Get the content type for the resource.

        This is a mime type like text/plain
        """
        raise NotImplementedError(self.get_content_type)

    def get_owner(self) -> str:
        """Get an href identifying the owner of the resource.

        Can be None if owner information is not known.
        """
        raise NotImplementedError(self.get_owner)

    async def get_etag(self) -> str:
        """Get the etag for this resource.

        Contains the ETag header value (from Section 14.19 of [RFC2616]) as it
        would be returned by a GET without accept headers.
        """
        raise NotImplementedError(self.get_etag)

    async def get_body(self) -> Iterable[bytes]:
        """Get resource contents.

        Returns: Iterable over bytestrings.
        """
        raise NotImplementedError(self.get_body)

    async def render(
        self,
        self_url: str,
        accepted_content_types: list[str],
        accepted_languages: list[str],
    ) -> tuple[Iterable[bytes], int, str, str, str | None]:
        """'Render' this resource in the specified content type.

        The default implementation just checks that the
        resource' content type is acceptable and if so returns
        (get_body(), get_content_type(), get_content_language()).

        Args:
          accepted_content_types: List of accepted content types
          accepted_languages: List of accepted languages
        Raises:
          NotAcceptableError: if there is no acceptable content type
        Returns: Tuple with (content_body, content_length, etag, content_type,
                 content_language)
        """
        # TODO(jelmer): Check content_language
        content_types = pick_content_types(
            accepted_content_types, [self.get_content_type()]
        )
        assert content_types == [self.get_content_type()]
        body = await self.get_body()
        try:
            content_language = self.get_content_language()
        except KeyError:
            content_language = None
        return (
            body,
            sum(map(len, body)),
            await self.get_etag(),
            self.get_content_type(),
            content_language,
        )

    async def get_content_length(self) -> int:
        """Get content length.

        Returns: Length of this objects content.
        """
        return sum(map(len, await self.get_body()))

    def get_content_language(self) -> str:
        """Get content language.

        Returns: Language, as used in HTTP Accept-Language
        """
        raise NotImplementedError(self.get_content_language)

    async def set_body(
        self,
        body: Iterable[bytes],
        replace_etag: str | None = None,
        requester: str | None = None,
    ) -> str:
        """Set resource contents.

        Args:
          body: Iterable over bytestrings
          replace_etag: Optional etag of object to replace
          requester: Optional User-Agent or client information
        Returns: New ETag
        """
        raise NotImplementedError(self.set_body)

    def set_comment(self, comment: str) -> None:
        """Set resource comment.

        Args:
          comment: New comment
        """
        raise NotImplementedError(self.set_comment)

    def get_comment(self) -> str:
        """Get resource comment.

        Returns: comment
        """
        raise NotImplementedError(self.get_comment)

    def get_last_modified(self) -> datetime:
        """Get last modified time.

        Returns: Last modified time
        """
        raise NotImplementedError(self.get_last_modified)

    def get_is_executable(self) -> bool:
        """Get executable bit.

        Returns: Boolean indicating executability
        """
        raise NotImplementedError(self.get_is_executable)

    def set_is_executable(self, executable: bool) -> None:
        """Set executable bit.

        Args:
          executable: Boolean indicating executability
        """
        raise NotImplementedError(self.set_is_executable)

    def get_quota_used_bytes(self) -> int:
        """Return bytes consumed by this resource.

        If unknown, this can raise KeyError.

        Returns: an integer
        """
        raise NotImplementedError(self.get_quota_used_bytes)

    def get_quota_available_bytes(self) -> int:
        """Return quota available as bytes.

        This can raise KeyError if there is infinite quota available.
        """
        raise NotImplementedError(self.get_quota_available_bytes)


class Property:
    """Handler for listing, retrieving and updating DAV Properties."""

    # Property name (e.g. '{DAV:}resourcetype')
    name: str

    # Whether to include this property in 'allprop' PROPFIND requests.
    # https://tools.ietf.org/html/rfc4918, section 14.2
    in_allprops: bool = True

    # Resource type this property belongs to. If None, get_value()
    # will always be called.
    resource_type: Sequence[str] | None = None

    # Whether this property is live (i.e set by the server)
    live: bool

    def supported_on(self, resource: Resource) -> bool:
        if self.resource_type is None:
            return True
        if isinstance(self.resource_type, tuple):
            return any(rs in resource.resource_types for rs in self.resource_type)
        if self.resource_type in resource.resource_types:
            return True
        return False

    async def is_set(
        self, href: str, resource: Resource, environ: dict[str, str]
    ) -> bool:
        """Check if this property is set on a resource."""
        if not self.supported_on(resource):
            return False
        try:
            await self.get_value("/", resource, ET.Element(self.name), environ)
        except KeyError:
            return False
        else:
            return True

    async def get_value(
        self,
        href: str,
        resource: Resource,
        el: ET.Element,
        environ: dict[str, str],
    ) -> None:
        """Get property with specified name.

        Args:
          href: Resource href
          resource: Resource for which to retrieve the property
          el: Element to populate
          environ: WSGI environment dict
        Raises:
          KeyError: if this property is not present
        """
        raise KeyError(self.name)

    async def set_value(self, href: str, resource: Resource, el: ET.Element) -> None:
        """Set property.

        Args:
          href: Resource href
          resource: Resource to modify
          el: Element to get new value from (None to remove property)

        Raises:
          NotImplementedError: to indicate this property can not be set
            (i.e. is protected)
        """
        raise NotImplementedError(self.set_value)


class ResourceTypeProperty(Property):
    """Provides {DAV:}resourcetype."""

    name = "{DAV:}resourcetype"

    resource_type = None

    live = True

    async def get_value(self, href, resource, el, environ):
        for rt in resource.resource_types:
            ET.SubElement(el, rt)

    async def set_value(self, href, resource, el):
        if el is None:
            resource.set_resource_types([])
        else:
            resource.set_resource_types([e.tag for e in el])


class DisplayNameProperty(Property):
    """Provides {DAV:}displayname.

    https://tools.ietf.org/html/rfc4918, section 5.2
    """

    name = "{DAV:}displayname"
    resource_type = None

    async def get_value(self, href, resource, el, environ):
        el.text = resource.get_displayname()

    async def set_value(self, href, resource, el):
        if el is None:
            resource.set_displayname(None)
        else:
            resource.set_displayname(el.text)


class GetETagProperty(Property):
    """Provides {DAV:}getetag.

    https://tools.ietf.org/html/rfc4918, section 15.6
    """

    name = "{DAV:}getetag"
    resource_type = None
    live = True

    async def get_value(self, href, resource, el, environ):
        el.text = await resource.get_etag()


ADD_MEMBER_FEATURE = "add-member"


class AddMemberProperty(Property):
    """Provides {DAV:}add-member.

    https://tools.ietf.org/html/rfc5995, section 3.2.1
    """

    name = "{DAV:}add-member"
    resource_type = COLLECTION_RESOURCE_TYPE
    live = True

    async def get_value(self, href, resource, el, environ):
        # Support POST against collection URL
        el.append(create_href(".", href))


class GetLastModifiedProperty(Property):
    """Provides {DAV:}getlastmodified.

    https://tools.ietf.org/html/rfc4918, section 15.7
    """

    name = "{DAV:}getlastmodified"
    resource_type = None
    live = True
    in_allprops = True

    async def get_value(self, href, resource, el, environ):
        # Use rfc1123 date (section 3.3.1 of RFC2616)
        el.text = resource.get_last_modified().strftime("%a, %d %b %Y %H:%M:%S GMT")


def format_datetime(dt: datetime) -> bytes:
    s = "%04d%02d%02dT%02d%02d%02dZ" % (
        dt.year,
        dt.month,
        dt.day,
        dt.hour,
        dt.minute,
        dt.second,
    )
    return s.encode("utf-8")


class CreationDateProperty(Property):
    """Provides {DAV:}creationdate.

    https://tools.ietf.org/html/rfc4918, section 23.2
    """

    name = "{DAV:}creationdate"
    resource_type = None
    live = True

    async def get_value(self, href, resource, el, environ):
        el.text = format_datetime(resource.get_creationdate())


class GetContentLanguageProperty(Property):
    """Provides {DAV:}getcontentlanguage.

    https://tools.ietf.org/html/rfc4918, section 15.3
    """

    name = "{DAV:}getcontentlanguage"
    resource_type = None

    async def get_value(self, href, resource, el, environ):
        el.text = ", ".join(resource.get_content_language())


class GetContentLengthProperty(Property):
    """Provides {DAV:}getcontentlength.

    https://tools.ietf.org/html/rfc4918, section 15.4
    """

    name = "{DAV:}getcontentlength"
    resource_type = None

    async def get_value(self, href, resource, el, environ):
        el.text = str(await resource.get_content_length())


class GetContentTypeProperty(Property):
    """Provides {DAV:}getcontenttype.

    https://tools.ietf.org/html/rfc4918, section 13.5
    """

    name = "{DAV:}getcontenttype"
    resource_type = None

    async def get_value(self, href, resource, el, environ):
        el.text = resource.get_content_type()


class CurrentUserPrincipalProperty(Property):
    """Provides {DAV:}current-user-principal.

    See https://tools.ietf.org/html/rfc5397
    """

    name = "{DAV:}current-user-principal"
    resource_type = None
    in_allprops = False
    live = True

    def __init__(self, get_current_user_principal) -> None:
        super().__init__()
        self.get_current_user_principal = get_current_user_principal

    async def get_value(self, href, resource, el, environ):
        """Get property with specified name.

        Args:
          name: A property name.
        """
        current_user_principal = self.get_current_user_principal(environ)
        if current_user_principal is None:
            ET.SubElement(el, "{DAV:}unauthenticated")
        else:
            current_user_principal = ensure_trailing_slash(
                current_user_principal.lstrip("/")
            )
            el.append(create_href(current_user_principal, environ["SCRIPT_NAME"]))


class PrincipalURLProperty(Property):
    name = "{DAV:}principal-URL"
    resource_type = "{DAV:}principal"
    in_allprops = True
    live = True

    async def get_value(self, href, resource, el, environ):
        """Get property with specified name.

        Args:
          name: A property name.
        """
        el.append(
            create_href(ensure_trailing_slash(resource.get_principal_url()), href)
        )


class SupportedReportSetProperty(Property):
    name = "{DAV:}supported-report-set"
    resource_type = "{DAV:}collection"
    in_allprops = False
    live = True

    def __init__(self, reporters) -> None:
        self._reporters = reporters

    async def get_value(self, href, resource, el, environ):
        for name, reporter in self._reporters.items():
            if reporter.supported_on(resource):
                bel = ET.SubElement(el, "{DAV:}supported-report")
                rel = ET.SubElement(bel, "{DAV:}report")
                ET.SubElement(rel, name)


class GetCTagProperty(Property):
    """getctag property."""

    name: str
    resource_type = COLLECTION_RESOURCE_TYPE
    in_allprops = False
    live = True

    async def get_value(self, href, resource, el, environ):
        el.text = resource.get_ctag()


class DAVGetCTagProperty(GetCTagProperty):
    """getctag property."""

    name = "{DAV:}getctag"


class AppleGetCTagProperty(GetCTagProperty):
    """getctag property."""

    name = "{http://calendarserver.org/ns/}getctag"


class RefreshRateProperty(Property):
    """refreshrate property.

    (no public documentation, but contains an ical-style frequency indicator)
    """

    name = "{http://calendarserver.org/ns/}refreshrate"
    resource_type = COLLECTION_RESOURCE_TYPE
    in_allprops = False

    async def get_value(self, href, resource, el, environ):
        el.text = resource.get_refreshrate()

    async def set_value(self, href, resource, el):
        if el is None:
            resource.set_refreshrate(None)
        else:
            resource.set_refreshrate(el.text)


LOCK_SCOPE_EXCLUSIVE = "{DAV:}exclusive"
LOCK_SCOPE_SHARED = "{DAV:}shared"
LOCK_TYPE_WRITE = "{DAV:}write"


ActiveLock = collections.namedtuple(
    "ActiveLock",
    [
        "lockscope",
        "locktype",
        "depth",
        "owner",
        "timeout",
        "locktoken",
        "lockroot",
    ],
)


class Collection(Resource):
    """Resource for a WebDAV Collection."""

    resource_types = Resource.resource_types + [COLLECTION_RESOURCE_TYPE]

    def members(self) -> Iterable[tuple[str, Resource]]:
        """List all members.

        Returns: List of (name, Resource) tuples
        """
        raise NotImplementedError(self.members)

    def get_member(self, name: str) -> Resource:
        """Retrieve a member by name.

        Args;
          name: Name of member to retrieve
        Returns:
          A Resource
        """
        raise NotImplementedError(self.get_member)

    def delete_member(
        self,
        name: str,
        etag: str | None = None,
        remote_user: str | None = None,
        requester: str | None = None,
    ) -> None:
        """Delete a member with a specific name.

        Args:
          name: Member name
          etag: Optional required etag
          remote_user: Optional user name of the actor
          requester: Optional User-Agent or client information
        Raises:
          KeyError: when the item doesn't exist
        """
        raise NotImplementedError(self.delete_member)

    async def create_member(
        self,
        name: str,
        contents: Iterable[bytes],
        content_type: str,
        remote_user: str | None = None,
        requester: str | None = None,
    ) -> tuple[str, str]:
        """Create a new member with specified name and contents.

        Args:
          name: Member name (can be None)
          contents: Chunked contents
          content_type: Content type of the member
          remote_user: Optional user name of the actor
          requester: Optional User-Agent or client information
        Returns: (name, etag) for the new member
        """
        raise NotImplementedError(self.create_member)

    async def move_member(
        self,
        name: str,
        destination: "Collection",
        destination_name: str,
        overwrite: bool = True,
        remote_user: str | None = None,
        requester: str | None = None,
    ) -> bool:
        """Move a member from this collection to a different collection.

        This is a default implementation that uses create_member and delete_member.
        Subclasses may override this for more efficient implementations.

        Args:
          name: Source member name in this collection
          destination: Destination collection
          destination_name: Name in destination collection
          overwrite: Whether to overwrite if destination exists
          remote_user: Optional user name of the actor
          requester: Optional User-Agent or client information
        Returns:
          True if an existing resource was overwritten, False if created new
        Raises:
          KeyError: when the source item doesn't exist
          FileExistsError: when destination exists and overwrite is False
        """
        # Get the source member from this collection
        source_member = self.get_member(name)

        # Read content from source
        etag = await source_member.get_etag()
        body_chunks = await source_member.get_body()
        body = b"".join(body_chunks)
        content_type = source_member.get_content_type()

        # Try to create at destination first
        try:
            await destination.create_member(
                destination_name,
                [body],
                content_type,
                remote_user=remote_user,
                requester=requester,
            )
            # Delete source from this collection only after successful creation
            self.delete_member(name, etag, remote_user=remote_user, requester=requester)
            return False  # Created new
        except FileExistsError:
            if not overwrite:
                raise
            # Delete existing and retry
            destination.delete_member(
                destination_name, remote_user=remote_user, requester=requester
            )
            await destination.create_member(
                destination_name,
                [body],
                content_type,
                remote_user=remote_user,
                requester=requester,
            )
            # Delete source from this collection only after successful creation
            self.delete_member(name, etag, remote_user=remote_user, requester=requester)
            return True  # Overwrote existing

    async def copy_member(
        self,
        name: str,
        destination: "Collection",
        destination_name: str,
        overwrite: bool = True,
        remote_user: str | None = None,
        requester: str | None = None,
    ) -> bool:
        """Copy a member from this collection to a different collection.

        This is a default implementation that uses get_member and create_member.
        Subclasses may override this for more efficient implementations.

        Args:
          name: Source member name in this collection
          destination: Destination collection
          destination_name: Name in destination collection
          overwrite: Whether to overwrite if destination exists
          remote_user: Optional user name of the actor
          requester: Optional User-Agent or client information
        Returns:
          True if an existing resource was overwritten, False if created new
        Raises:
          KeyError: when the source item doesn't exist
          FileExistsError: when destination exists and overwrite is False
        """
        # Get the source member from this collection
        source_member = self.get_member(name)

        # Read content from source
        body_chunks = await source_member.get_body()
        body = b"".join(body_chunks)
        content_type = source_member.get_content_type()

        # Try to create at destination
        try:
            await destination.create_member(
                destination_name,
                [body],
                content_type,
                remote_user=remote_user,
                requester=requester,
            )
            return False  # Created new
        except FileExistsError:
            if not overwrite:
                raise
            # Delete existing and retry
            destination.delete_member(
                destination_name, remote_user=remote_user, requester=requester
            )
            await destination.create_member(
                destination_name,
                [body],
                content_type,
                remote_user=remote_user,
                requester=requester,
            )
            return True  # Overwrote existing

    def get_sync_token(self) -> str:
        """Get sync-token for the current state of this collection."""
        raise NotImplementedError(self.get_sync_token)

    def iter_differences_since(
        self, old_token: str, new_token: str
    ) -> Iterator[tuple[str, Resource | None, Resource | None]]:
        """Iterate over differences in this collection.

        Should return an iterator over (name, old resource, new resource)
        tuples. If one of the two didn't exist previously or now, they should
        be None.

        If old_token is None, this should return full contents of the
        collection.

        May raise NotImplementedError if iterating differences is not
        supported.
        """
        raise NotImplementedError(self.iter_differences_since)

    def get_ctag(self) -> str:
        raise NotImplementedError(self.get_ctag)

    def get_headervalue(self) -> str:
        raise NotImplementedError(self.get_headervalue)

    def destroy(self) -> None:
        """Destroy this collection itself."""
        raise NotImplementedError(self.destroy)

    def set_refreshrate(self, value: str | None) -> None:
        """Set the recommended refresh rate for this collection.

        Args:
          value: Refresh rate (None to remove)
        """
        raise NotImplementedError(self.set_refreshrate)

    def get_refreshrate(self) -> str:
        """Get the recommended refresh rate.

        Returns: Recommended refresh rate
        :raise KeyError: if there is no refresh rate set
        """
        raise NotImplementedError(self.get_refreshrate)


class Principal(Resource):
    """Resource for a DAV Principal."""

    resource_Types = Resource.resource_types + [PRINCIPAL_RESOURCE_TYPE]

    def get_principal_url(self) -> str:
        """Return the principal URL for this principal.

        Returns: A URL identifying this principal.
        """
        raise NotImplementedError(self.get_principal_url)

    def get_infit_settings(self) -> str:
        """Return inf-it settings string."""
        raise NotImplementedError(self.get_infit_settings)

    def set_infit_settings(self, settings: str | None) -> None:
        """Set inf-it settings string."""
        raise NotImplementedError(self.get_infit_settings)

    def get_group_membership(self) -> list[str]:
        """Get group membership URLs."""
        raise NotImplementedError(self.get_group_membership)

    def get_calendar_proxy_read_for(self) -> list[str]:
        """List principals for which this one is a read proxy.

        Returns: List of principal hrefs
        """
        raise NotImplementedError(self.get_calendar_proxy_read_for)

    def get_calendar_proxy_write_for(self) -> list[str]:
        """List principals for which this one is a write proxy.

        Returns: List of principal hrefs
        """
        raise NotImplementedError(self.get_calendar_proxy_write_for)

    def get_schedule_inbox_url(self) -> str:
        raise NotImplementedError(self.get_schedule_inbox_url)

    def get_schedule_outbox_url(self) -> str:
        raise NotImplementedError(self.get_schedule_outbox_url)


async def get_property_from_name(
    href: str, resource: Resource, properties, name: str, environ
):
    """Get a single property on a resource.

    Args:
      href: Resource href
      resource: Resource object
      properties: Dictionary of properties
      environ: WSGI environ dict
      name: name of property to resolve
    Returns: PropStatus items
    """
    return await get_property_from_element(
        href, resource, properties, environ, ET.Element(name)
    )


async def get_property_from_element(
    href: str,
    resource: Resource,
    properties: dict[str, Property],
    environ,
    requested: ET.Element,
) -> PropStatus:
    """Get a single property on a resource.

    Args:
      href: Resource href
      resource: Resource object
      properties: Dictionary of properties
      environ: WSGI environ dict
      requested: Requested element
    Returns: PropStatus items
    """
    responsedescription = None
    ret = ET.Element(requested.tag)
    try:
        prop = properties[requested.tag]
    except KeyError:
        statuscode = "404 Not Found"
        logger.warning(
            "Client requested unknown property %s on %s (%r)",
            requested.tag,
            href,
            resource.resource_types,
        )
    else:
        try:
            if not prop.supported_on(resource):
                raise KeyError
            if hasattr(prop, "get_value_ext"):
                await prop.get_value_ext(  # type: ignore
                    href, resource, ret, environ, requested
                )
            else:
                await prop.get_value(href, resource, ret, environ)
        except KeyError:
            statuscode = "404 Not Found"
        except NotImplementedError:
            logger.exception(
                "Not implemented while getting %s for %r",
                requested.tag,
                resource,
            )
            statuscode = "501 Not Implemented"
        else:
            statuscode = "200 OK"
    return PropStatus(statuscode, responsedescription, ret)


async def get_properties(
    href: str,
    resource: Resource,
    properties: dict[str, Property],
    environ,
    requested: ET.Element,
) -> AsyncIterable[PropStatus]:
    """Get a set of properties.

    Args:
      href: Resource Href
      resource: Resource object
      properties: Dictionary of properties
      requested: XML {DAV:}prop element with properties to look up
      environ: WSGI environ dict
    Returns: Iterator over PropStatus items
    """
    for propreq in list(requested):
        yield await get_property_from_element(
            href, resource, properties, environ, propreq
        )


async def get_property_names(
    href: str,
    resource: Resource,
    properties: dict[str, Property],
    environ,
    requested: ET.Element,
) -> AsyncIterable[PropStatus]:
    """Get a set of property names.

    Args:
      href: Resource Href
      resource: Resource object
      properties: Dictionary of properties
      environ: WSGI environ dict
      requested: XML {DAV:}prop element with properties to look up
    Returns: Iterator over PropStatus items
    """
    for name, prop in properties.items():
        if await prop.is_set(href, resource, environ):
            yield PropStatus("200 OK", None, ET.Element(name))


async def get_all_properties(
    href: str, resource: Resource, properties: dict[str, Property], environ
) -> AsyncIterable[PropStatus]:
    """Get all properties.

    Args:
      href: Resource Href
      resource: Resource object
      properties: Dictionary of properties
      requested: XML {DAV:}prop element with properties to look up
      environ: WSGI environ dict
    Returns: Iterator over PropStatus items
    """
    for name in properties:
        ps = await get_property_from_name(href, resource, properties, name, environ)
        if ps.statuscode == "200 OK":
            yield ps


def ensure_trailing_slash(href: str) -> str:
    """Ensure that a href has a trailing slash.

    Useful for collection hrefs, e.g. when used with urljoin.

    Args:
      href: href to possibly add slash to
    Returns: href with trailing slash
    """
    if href.endswith("/"):
        return href
    return href + "/"


async def traverse_resource(
    base_resource: Resource,
    base_href: str,
    depth: str,
    members: Callable[[Collection], Iterable[tuple[str, Resource]]] | None = None,
    check_access: Callable[[str], bool] | None = None,
) -> AsyncIterable[tuple[str, Resource]]:
    """Traverse a resource.

    Args:
      base_resource: Resource to traverse from
      base_href: href for base resource
      depth: Depth ("0", "1", "infinity")
      members: Function to use to get members of each
        collection.
      check_access: Optional callback to check if a path is accessible.
        Should return True if accessible, False otherwise.
        If None, all resources are accessible.
    Returns: Iterator over (URL, Resource) tuples
    """
    if members is None:

        def members_fn(c):
            return c.members()

    else:
        members_fn = members
    todo = collections.deque([(base_href, base_resource, depth)])
    while todo:
        (href, resource, depth) = todo.popleft()
        if COLLECTION_RESOURCE_TYPE in resource.resource_types:
            # caldavzap/carddavmate require this
            # https://tools.ietf.org/html/rfc4918#section-5.2
            # mentions that a trailing slash *SHOULD* be added for
            # collections.
            href = ensure_trailing_slash(href)

        # Check authorization for this resource
        if check_access is not None and not check_access(href):
            # Skip this resource and don't descend into it
            continue

        yield (href, resource)
        if depth == "0":
            continue
        elif depth == "1":
            nextdepth = "0"
        elif depth == "infinity":
            nextdepth = "infinity"
        else:
            raise AssertionError(f"invalid depth {depth!r}")
        if COLLECTION_RESOURCE_TYPE in resource.resource_types:
            for child_name, child_resource in members_fn(resource):
                child_href = urllib.parse.urljoin(href, child_name)
                todo.append((child_href, child_resource, nextdepth))


class Reporter:
    """Implementation for DAV REPORT requests."""

    name: str

    resource_type: str | tuple | None = None

    def supported_on(self, resource: Resource) -> bool:
        """Check if this reporter is available for the specified resource.

        Args:
          resource: Resource to check for
        Returns: boolean indicating whether this reporter is available
        """
        if self.resource_type is None:
            return True
        if isinstance(self.resource_type, tuple):
            return any(rs in resource.resource_types for rs in self.resource_type)
        return self.resource_type in resource.resource_types

    async def report(
        self,
        environ: dict[str, str],
        request_body: ET.Element,
        resources_by_hrefs: Callable[[Iterable[str]], Iterable[tuple[str, Resource]]],
        properties: dict[str, Property],
        href: str,
        resource: Resource,
        depth: str,
        strict: bool,
    ) -> Status:
        """Send a report.

        Args:
          environ: wsgi environ
          request_body: XML Element for request body
          resources_by_hrefs: Function for retrieving resource by HREF
          properties: Dictionary mapping names to DAVProperty instances
          href: Base resource href
          resource: Resource to start from
          depth: Depth ("0", "1", ...)
          strict:
        Returns: a response
        """
        raise NotImplementedError(self.report)


def create_href(href: str, base_href: str | None = None) -> ET.Element:
    parsed_url = urllib.parse.urlparse(href)
    if "//" in parsed_url.path:
        logger.warning("invalidly formatted href: %s", href)
    et = ET.Element("{DAV:}href")
    if base_href is not None:
        href = urllib.parse.urljoin(ensure_trailing_slash(base_href), href)
    et.text = urllib.parse.quote(href)
    return et


def read_href_element(et: ET.Element) -> str | None:
    if et.text is None:
        return None
    el = urllib.parse.unquote(et.text)
    parsed_url = urllib.parse.urlsplit(el)
    # TODO(jelmer): Check that the hostname matches the local hostname?
    return parsed_url.path


class ExpandPropertyReporter(Reporter):
    """A expand-property reporter.

    See https://tools.ietf.org/html/rfc3253, section 3.8
    """

    name = "{DAV:}expand-property"

    async def _populate(
        self,
        prop_list: ET.Element,
        resources_by_hrefs: Callable[[Iterable[str]], list[tuple[str, Resource]]],
        properties: dict[str, Property],
        href: str,
        resource: Resource,
        environ,
        strict,
    ) -> AsyncIterable[Status]:
        """Expand properties for a resource.

        Args:
          prop_list: DAV:property elements to retrieve and expand
          resources_by_hrefs: Resolve resource by HREF
          properties: Available properties
          href: href for current resource
          resource: current resource
          environ: WSGI environ dict
        Returns: Status object
        """
        ret = []
        for prop in prop_list:
            prop_name = prop.get("name")
            if prop_name is None:
                nonfatal_bad_request(f"Tag {prop.tag} without name attribute", strict)
                continue
            propstat = await get_property_from_name(
                href, resource, properties, prop_name, environ
            )
            new_prop = ET.Element(propstat.prop.tag)
            child_hrefs = filter(
                None,
                [
                    read_href_element(prop_child)
                    for prop_child in propstat.prop
                    if prop_child.tag == "{DAV:}href"
                ],
            )
            child_resources = resources_by_hrefs(child_hrefs)
            for prop_child in propstat.prop:
                if prop_child.tag != "{DAV:}href":
                    new_prop.append(prop_child)
                else:
                    child_href = read_href_element(prop_child)
                    if child_href is None:
                        nonfatal_bad_request(
                            f"Tag {prop_child.tag} without valid href", strict
                        )
                        continue
                    child_resource = dict(child_resources).get(child_href)
                    if child_resource is None:
                        # Keep unresolved href so client can see what was referenced
                        new_prop.append(prop_child)
                    else:
                        async for response in self._populate(
                            prop,
                            resources_by_hrefs,
                            properties,
                            child_href,
                            child_resource,
                            environ,
                            strict,
                        ):
                            new_prop.append(response.aselement())
            propstat = PropStatus(
                propstat.statuscode,
                propstat.responsedescription,
                prop=new_prop,
            )
            ret.append(propstat)
        yield Status(href, "200 OK", propstat=ret)

    @multistatus
    async def report(
        self,
        environ,
        request_body,
        resources_by_hrefs,
        properties,
        href,
        resource,
        depth,
        strict,
    ):
        async for resp in self._populate(
            request_body,
            resources_by_hrefs,
            properties,
            href,
            resource,
            environ,
            strict,
        ):
            yield resp


class SupportedLockProperty(Property):
    """supportedlock property.

    See rfc4918, section 15.10.
    """

    name = "{DAV:}supportedlock"
    resource_type = None
    live = True

    async def get_value(self, href, resource, el, environ):
        for lockscope, locktype in resource.get_supported_locks():
            entry = ET.SubElement(el, "{DAV:}lockentry")
            scope_el = ET.SubElement(entry, "{DAV:}lockscope")
            ET.SubElement(scope_el, lockscope)
            type_el = ET.SubElement(entry, "{DAV:}locktype")
            ET.SubElement(type_el, locktype)


class LockDiscoveryProperty(Property):
    """lockdiscovery property.

    See rfc4918, section 15.8
    """

    name = "{DAV:}lockdiscovery"
    resource_type = None
    live = True

    async def get_value(self, href, resource, el, environ):
        for activelock in resource.get_active_locks():
            entry = ET.SubElement(el, "{DAV:}activelock")
            type_el = ET.SubElement(entry, "{DAV:}locktype")
            ET.SubElement(type_el, activelock.locktype)
            scope_el = ET.SubElement(entry, "{DAV:}lockscope")
            ET.SubElement(scope_el, activelock.lockscope)
            ET.SubElement(entry, "{DAV:}depth").text = str(activelock.depth)
            if activelock.owner:
                ET.SubElement(entry, "{DAV:}owner").text = activelock.owner
            if activelock.timeout:
                ET.SubElement(entry, "{DAV:}timeout").text = activelock.timeout
            if activelock.locktoken:
                locktoken_el = ET.SubElement(entry, "{DAV:}locktoken")
                locktoken_el.append(create_href(activelock.locktoken))
            if activelock.lockroot:
                lockroot_el = ET.SubElement(entry, "{DAV:}lockroot")
                lockroot_el.append(create_href(activelock.lockroot))


class CommentProperty(Property):
    """comment property.

    See RFC3253, section 3.1.1
    """

    name = "{DAV:}comment"
    live = False
    in_allprops = False

    async def get_value(self, href, resource, el, environ):
        el.text = resource.get_comment()

    async def set_value(self, href, resource, el):
        if el is None:
            resource.set_comment(None)
        else:
            resource.set_comment(el.text)


class Backend:
    """WebDAV backend."""

    def create_collection(self, relpath):
        """Create a collection with the specified relpath.

        Args:
          relpath: Collection path
        """
        raise NotImplementedError(self.create_collection)

    def get_resource(self, relpath: str) -> Resource | None:
        raise NotImplementedError(self.get_resource)

    def get_resources(self, relpaths) -> Iterator[tuple[str, Resource | None]]:
        for relpath in relpaths:
            yield relpath, self.get_resource(relpath)

    async def copy_collection(
        self, source_path: str, dest_path: str, overwrite: bool = True
    ) -> bool:
        """Copy a collection recursively.

        Args:
          source_path: Source collection path
          dest_path: Destination collection path
          overwrite: Whether to overwrite if destination exists
        Returns:
          True if an existing collection was overwritten, False if created new
        Raises:
          KeyError: when the source collection doesn't exist
          FileExistsError: when destination exists and overwrite is False
        """
        raise NotImplementedError(self.copy_collection)

    async def move_collection(
        self, source_path: str, dest_path: str, overwrite: bool = True
    ) -> bool:
        """Move a collection recursively.

        Args:
          source_path: Source collection path
          dest_path: Destination collection path
          overwrite: Whether to overwrite if destination exists
        Returns:
          True if an existing collection was overwritten, False if created new
        Raises:
          KeyError: when the source collection doesn't exist
          FileExistsError: when destination exists and overwrite is False
        """
        raise NotImplementedError(self.move_collection)


def href_to_path(environ, href) -> str | None:
    script_name = environ["SCRIPT_NAME"].rstrip("/")
    if not href or not href.startswith(script_name):
        return None
    else:
        path = href[len(script_name) :]
        if not path.startswith("/"):
            path = "/" + path
        return path


def _get_resources_by_hrefs(
    backend, environ, hrefs, check_access=None
) -> Iterator[tuple[str, Resource | None]]:
    """Retrieve multiple resources by href.

    Args:
      backend: backend from which to retrieve resources
      environ: Environment dictionary
      hrefs: List of hrefs to resolve
      check_access: Optional callback to check access for each path.
                   Should raise ForbiddenError if access is denied.
    Returns: iterator over (href, resource) tuples
    """
    paths: dict[str, str] = {}
    for href in hrefs:
        path = href_to_path(environ, href)
        if path is not None:
            # Check authorization for each path if callback provided
            if check_access is not None:
                try:
                    check_access(environ, path, "REPORT")
                except ForbiddenError:
                    # If access denied, treat as if resource doesn't exist
                    yield (href, None)
                    continue
            paths[path] = href
        else:
            yield (href, None)

    for relpath, resource in backend.get_resources(paths):
        href = paths[relpath]
        yield (href, resource)


def _send_xml_response(status, et, out_encoding):
    body_type = f'text/xml; charset="{out_encoding}"'
    if os.environ.get("XANDIKOS_DUMP_DAV_XML"):
        print("OUT: " + ET.tostring(et).decode("utf-8"))
    body = ET.tostringlist(et, encoding=out_encoding)
    return Response(
        status=status,
        body=body,
        headers={
            "Content-Type": body_type,
            "Content-Length": str(sum(map(len, body))),
        },
    )


def _send_dav_responses(responses, out_encoding):
    if isinstance(responses, Status):
        try:
            (body, body_type) = responses.get_single_body(out_encoding)
        except NeedsMultiStatus:
            responses = [responses]
        else:
            return Response(
                status=responses.status,
                headers={
                    "Content-Type": body_type,
                    "Content-Length": str(sum(map(len, body))),
                },
                body=body,
            )
    ret = ET.Element("{DAV:}multistatus")
    for response in responses:
        ret.append(response.aselement())
    return _send_xml_response("207 Multi-Status", ret, out_encoding)


def _send_simple_dav_error(request, statuscode, error, description):
    status = Status(
        request.url, statuscode, error=error, responsedescription=description
    )
    return _send_dav_responses(status, DEFAULT_ENCODING)


def _send_not_found(request):
    body = [b"Path " + request.path.encode(DEFAULT_ENCODING) + b" not found."]
    return Response(body=body, status=404, reason="Not Found")


def _send_method_not_allowed(allowed_methods):
    return Response(
        status=405,
        reason="Method Not Allowed",
        headers={"Allow": ", ".join(allowed_methods)},
    )


async def apply_modify_prop(el, href, resource, properties):
    """Apply property set/remove operations.

    Returns:
      el: set element to apply.
      href: Resource href
      resource: Resource to apply property modifications on
      properties: Known properties
    Returns: PropStatus objects
    """
    if el.tag not in ("{DAV:}set", "{DAV:}remove"):
        # callers should check tag
        raise AssertionError
    try:
        [requested] = el
    except IndexError as exc:
        raise BadRequestError(
            "Received more than one element in {DAV:}set element."
        ) from exc
    if requested.tag != "{DAV:}prop":
        raise BadRequestError("Expected prop tag, got " + requested.tag)
    for propel in requested:
        try:
            handler = properties[propel.tag]
        except KeyError:
            logger.warning(
                "client attempted to modify unknown property %r on %r",
                propel.tag,
                href,
            )
            # RFC 4918 Section 9.2: Return 403 for properties that cannot be set
            # Dead properties are not supported, so return 403 Forbidden
            yield PropStatus("403 Forbidden", None, ET.Element(propel.tag))
        else:
            if el.tag == "{DAV:}remove":
                newval = None
            elif el.tag == "{DAV:}set":
                newval = propel
            else:
                raise AssertionError
            if not handler.supported_on(resource):
                # RFC 4918 Section 9.2: Return 403 for properties not supported on this resource
                statuscode = "403 Forbidden"
            else:
                try:
                    await handler.set_value(href, resource, newval)
                except ProtectedPropertyError:
                    # Protected property - cannot be modified
                    # RFC 4918: {DAV:}cannot-modify-protected-property
                    statuscode = "403 Forbidden"
                except NotImplementedError:
                    # For backwards compatibility - treat as protected property
                    # RFC 4918: {DAV:}cannot-modify-protected-property
                    statuscode = "403 Forbidden"
                else:
                    statuscode = "200 OK"
            yield PropStatus(statuscode, None, ET.Element(propel.tag))


async def _readBody(request):
    """Read request body in streaming fashion.

    Reads the body in chunks to support efficient handling of large files
    and chunked transfer encoding without buffering everything in memory.

    Returns: Iterable of bytes chunks
    """
    # Read in 64KB chunks for efficient streaming
    CHUNK_SIZE = 65536
    chunks = []
    while True:
        chunk = await request.content.read(CHUNK_SIZE)
        if not chunk:
            break
        chunks.append(chunk)
    return chunks


async def _readXmlBody(request, expected_tag: str | None = None, strict: bool = True):
    content_type = request.content_type
    base_content_type, params = parse_type(content_type)
    if strict and base_content_type not in ("text/xml", "application/xml"):
        raise UnsupportedMediaType(content_type)
    body = b"".join(await _readBody(request))
    if os.environ.get("XANDIKOS_DUMP_DAV_XML"):
        print("IN: " + body.decode("utf-8"))
    try:
        et = xmlparse(body)
    except ET.ParseError as exc:
        raise BadRequestError("Unable to parse body.") from exc
    if expected_tag is not None and et.tag != expected_tag:
        raise BadRequestError(f"Expected {expected_tag} tag, got {et.tag}")
    return et


class Method:
    @property
    def name(self):
        return type(self).__name__.upper()[:-6]

    async def handle(self, request, environ, app):
        raise NotImplementedError(self.handle)

    async def allow(self, request, environ, app):
        """Is this method allowed considering the specified request?"""
        return True


class DeleteMethod(Method):
    async def handle(self, request, environ, app):
        unused_href, path, r = app._get_resource_from_environ(request, environ)
        if r is None:
            return _send_not_found(request)
        container_path, item_name = split_path_preserving_encoding(request, environ)
        pr = app.backend.get_resource(container_path)
        if pr is None:
            return _send_not_found(request)
        current_etag = await r.get_etag()
        if_match = request.headers.get("If-Match", None)
        if if_match is not None and not etag_matches(if_match, current_etag):
            return Response(status=412, reason="Precondition Failed")
        pr.delete_member(
            item_name,
            current_etag,
            remote_user=environ.get("REMOTE_USER"),
            requester=request.headers.get("User-Agent"),
        )
        return Response(status=204, reason="No Content")


class PostMethod(Method):
    async def allow(self, request, environ, app):
        """POST is only allowed on collections (for RFC5995 add-member)."""
        unused_href, path, r = app._get_resource_from_environ(request, environ)
        if r is None:
            return False
        return COLLECTION_RESOURCE_TYPE in r.resource_types

    async def handle(self, request, environ, app):
        # see RFC5995
        new_contents = await _readBody(request)
        unused_href, path, r = app._get_resource_from_environ(request, environ)
        if r is None:
            return _send_not_found(request)
        if COLLECTION_RESOURCE_TYPE not in r.resource_types:
            return _send_method_not_allowed(
                await app._get_allowed_methods(request, environ)
            )
        content_type, params = parse_type(request.content_type)
        try:
            (name, etag) = await r.create_member(
                None,
                new_contents,
                content_type,
                remote_user=environ.get("REMOTE_USER"),
                requester=request.headers.get("User-Agent"),
            )
        except PreconditionFailure as e:
            return _send_simple_dav_error(
                request,
                "412 Precondition Failed",
                error=ET.Element(e.precondition),
                description=e.description,
            )
        except InsufficientStorage:
            return Response(status=507, reason="Insufficient Storage")
        except ResourceLocked:
            return Response(status=423, reason="Resource Locked")
        href = environ["SCRIPT_NAME"] + urllib.parse.urljoin(
            ensure_trailing_slash(path), urllib.parse.quote(name)
        )
        return Response(headers={"Location": href})


class PutMethod(Method):
    async def handle(self, request, environ, app):
        new_contents = await _readBody(request)
        unused_href, path, r = app._get_resource_from_environ(request, environ)
        if r is not None:
            current_etag = await r.get_etag()
        else:
            current_etag = None
        if_match = request.headers.get("If-Match", None)
        if if_match is not None and not etag_matches(if_match, current_etag):
            return Response(status="412 Precondition Failed")
        if_none_match = request.headers.get("If-None-Match", None)
        if if_none_match and etag_matches(if_none_match, current_etag):
            return Response(status="412 Precondition Failed")
        if r is not None:
            # Item already exists; update it
            try:
                new_etag = await r.set_body(
                    new_contents,
                    current_etag,
                    remote_user=environ.get("REMOTE_USER"),
                    requester=request.headers.get("User-Agent"),
                )
            except ResourceLocked:
                return Response(status=423, reason="Resource Locked")
            except PreconditionFailure as e:
                return _send_simple_dav_error(
                    request,
                    "412 Precondition Failed",
                    error=ET.Element(e.precondition),
                    description=e.description,
                )
            except NotImplementedError:
                return _send_method_not_allowed(
                    await app._get_allowed_methods(request, environ)
                )
            else:
                return Response(status="204 No Content", headers=[("ETag", new_etag)])
        content_type = request.content_type
        container_path, name = split_path_preserving_encoding(request, environ)
        r = app.backend.get_resource(container_path)
        if r is None:
            # RFC 4918 Section 9.7.1: Return 409 Conflict when intermediate collection is missing
            return Response(status=409, reason="Conflict")
        if COLLECTION_RESOURCE_TYPE not in r.resource_types:
            return _send_method_not_allowed(
                await app._get_allowed_methods(request, environ)
            )
        try:
            (new_name, new_etag) = await r.create_member(
                name,
                new_contents,
                content_type,
                remote_user=environ.get("REMOTE_USER"),
                requester=request.headers.get("User-Agent"),
            )
        except PreconditionFailure as e:
            return _send_simple_dav_error(
                request,
                "412 Precondition Failed",
                error=ET.Element(e.precondition),
                description=e.description,
            )
        except InsufficientStorage:
            return Response(status=507, reason="Insufficient Storage")
        except ResourceLocked:
            return Response(status=423, reason="Resource Locked")
        return Response(status=201, reason="Created", headers=[("ETag", new_etag)])


class MoveMethod(Method):
    async def handle(self, request, environ, app):
        # See RFC 4918, section 9.9

        # Get source resource
        unused_href, source_path, source_resource = app._get_resource_from_environ(
            request, environ
        )
        if source_resource is None:
            return _send_not_found(request)

        # Get Destination header
        destination_header = request.headers.get("Destination")
        if not destination_header:
            return Response(
                status=400,
                reason="Bad Request",
                body=[b"Destination header required for MOVE"],
            )

        # Parse destination URL
        parsed_dest = urllib.parse.urlparse(destination_header)

        # Check if destination is on same server
        request_host = request.headers.get("Host", "")
        dest_host = parsed_dest.netloc or request_host

        if dest_host != request_host:
            return Response(
                status=502,
                reason="Bad Gateway",
                body=[b"Cross-server MOVE not supported"],
            )

        # Extract destination path
        dest_path = parsed_dest.path
        if not dest_path:
            return Response(
                status=400, reason="Bad Request", body=[b"Invalid Destination header"]
            )

        # Remove any script name prefix from destination path
        script_name = environ.get("SCRIPT_NAME", "")
        if script_name and dest_path.startswith(script_name):
            dest_path = dest_path[len(script_name) :]

        # Ensure destination path starts with /
        if not dest_path.startswith("/"):
            dest_path = "/" + dest_path

        # Check authorization for the destination path
        app.check_access(environ, dest_path, request.method)

        # Check if source and destination are the same
        if source_path == dest_path:
            return Response(
                status=403,
                reason="Forbidden",
                body=[b"Source and destination cannot be the same"],
            )

        # Check if source is a collection
        is_collection = COLLECTION_RESOURCE_TYPE in source_resource.resource_types

        # For collections, Depth must be infinity (RFC 4918 9.9.2)
        if is_collection:
            depth = request.headers.get("Depth", "infinity")
            if depth != "infinity":
                return Response(
                    status=400,
                    reason="Bad Request",
                    body=[b"Depth must be infinity for MOVE on collection"],
                )
            # Handle Overwrite header
            overwrite_header = request.headers.get("Overwrite", "T")
            overwrite = overwrite_header.upper() != "F"

            try:
                # Use the backend's move_collection method
                did_overwrite = await app.backend.move_collection(
                    source_path, dest_path, overwrite
                )
                # RFC 4918 Section 9.9.1: Return 204 when overwriting, 201 when creating new
                if did_overwrite:
                    return Response(status=204, reason="No Content")
                else:
                    return Response(status=201, reason="Created")
            except NotImplementedError:
                return Response(
                    status=501,
                    reason="Not Implemented",
                    body=[b"MOVE for collections not implemented"],
                )
            except KeyError:
                return _send_not_found(request)
            except FileExistsError:
                return Response(
                    status=412,
                    reason="Precondition Failed",
                    body=[b"Destination exists and Overwrite is False"],
                )
            except PreconditionFailure as e:
                return _send_simple_dav_error(
                    request,
                    "412 Precondition Failed",
                    error=ET.Element(e.precondition),
                    description=e.description,
                )
            except ResourceLocked:
                return Response(status=423, reason="Locked")
            except InsufficientStorage:
                return Response(status=507, reason="Insufficient Storage")
            except PermissionError:
                return Response(status=403, reason="Forbidden")

        # Get parent containers
        source_container_path, source_name = split_path_preserving_encoding(
            request, environ
        )
        source_container = app.backend.get_resource(source_container_path)
        if source_container is None:
            return _send_not_found(request)

        dest_container_path, dest_name = posixpath.split(dest_path.rstrip("/"))
        if not dest_container_path:
            dest_container_path = "/"
        dest_container = app.backend.get_resource(dest_container_path)
        if dest_container is None:
            return Response(
                status=409,
                reason="Conflict",
                body=[b"Destination container does not exist"],
            )

        # Check if destination container is a collection
        if COLLECTION_RESOURCE_TYPE not in dest_container.resource_types:
            return Response(
                status=409,
                reason="Conflict",
                body=[b"Destination container is not a collection"],
            )

        # Handle Overwrite header
        overwrite_header = request.headers.get("Overwrite", "T")
        overwrite = overwrite_header.upper() != "F"

        try:
            # Use the move_member method
            did_overwrite = await source_container.move_member(
                source_name,
                dest_container,
                dest_name,
                overwrite,
                remote_user=environ.get("REMOTE_USER"),
                requester=request.headers.get("User-Agent"),
            )

            # RFC 4918 Section 9.9.1: Return 204 when overwriting, 201 when creating new
            if did_overwrite:
                return Response(status=204, reason="No Content")
            else:
                return Response(status=201, reason="Created")

        except KeyError:
            return _send_not_found(request)
        except FileExistsError:
            return Response(
                status=412,
                reason="Precondition Failed",
                body=[b"Destination exists and Overwrite is False"],
            )
        except PreconditionFailure as e:
            return _send_simple_dav_error(
                request,
                "412 Precondition Failed",
                error=ET.Element(e.precondition),
                description=e.description,
            )
        except ResourceLocked:
            return Response(status=423, reason="Locked")
        except InsufficientStorage:
            return Response(status=507, reason="Insufficient Storage")
        except PermissionError:
            return Response(status=403, reason="Forbidden")


class CopyMethod(Method):
    async def handle(self, request, environ, app):
        # See RFC 4918, section 9.8

        # Get source resource
        unused_href, source_path, source_resource = app._get_resource_from_environ(
            request, environ
        )
        if source_resource is None:
            return _send_not_found(request)

        # Get Destination header
        destination_header = request.headers.get("Destination")
        if not destination_header:
            return Response(
                status=400,
                reason="Bad Request",
                body=[b"Destination header required for COPY"],
            )

        # Parse destination URL
        parsed_dest = urllib.parse.urlparse(destination_header)

        # Check if destination is on same server
        request_host = request.headers.get("Host", "")
        dest_host = parsed_dest.netloc or request_host

        if dest_host != request_host:
            return Response(
                status=502,
                reason="Bad Gateway",
                body=[b"Cross-server COPY not supported"],
            )

        # Extract destination path
        dest_path = parsed_dest.path
        if not dest_path:
            return Response(
                status=400, reason="Bad Request", body=[b"Invalid Destination header"]
            )

        # Remove any script name prefix from destination path
        script_name = environ.get("SCRIPT_NAME", "")
        if script_name and dest_path.startswith(script_name):
            dest_path = dest_path[len(script_name) :]

        # Ensure destination path starts with /
        if not dest_path.startswith("/"):
            dest_path = "/" + dest_path

        # Check authorization for the destination path
        app.check_access(environ, dest_path, request.method)

        # Check if source and destination are the same
        if source_path == dest_path:
            return Response(
                status=403,
                reason="Forbidden",
                body=[b"Source and destination cannot be the same"],
            )

        # Check if source is a collection
        is_collection = COLLECTION_RESOURCE_TYPE in source_resource.resource_types

        # For collections, handle different depth values (RFC 4918 9.8.3)
        if is_collection:
            depth = request.headers.get("Depth", "infinity")
            if depth not in ("0", "infinity"):
                return Response(
                    status=400,
                    reason="Bad Request",
                    body=[b"Depth must be 0 or infinity for COPY on collection"],
                )

            # Handle Overwrite header
            overwrite_header = request.headers.get("Overwrite", "T")
            overwrite = overwrite_header.upper() != "F"

            try:
                if depth == "0":
                    # Shallow copy: create empty collection at destination
                    dest_container_path, dest_name = posixpath.split(
                        dest_path.rstrip("/")
                    )
                    if not dest_container_path:
                        dest_container_path = "/"
                    dest_container = app.backend.get_resource(dest_container_path)
                    if dest_container is None:
                        return Response(
                            status=409,
                            reason="Conflict",
                            body=[b"Destination container does not exist"],
                        )

                    # Check if destination exists
                    if app.backend.get_resource(dest_path) is not None:
                        if not overwrite:
                            return Response(
                                status=412,
                                reason="Precondition Failed",
                                body=[b"Destination exists and Overwrite is False"],
                            )
                        # Delete existing collection before creating
                        # TODO: This should be atomic
                        dest_container.delete_member(
                            dest_name,
                            remote_user=environ.get("REMOTE_USER"),
                            requester=request.headers.get("User-Agent"),
                        )
                        app.backend.create_collection(dest_path)
                        # RFC 4918 Section 9.8.5: Return 204 when overwriting
                        return Response(status=204, reason="No Content")
                    else:
                        # Create empty collection
                        app.backend.create_collection(dest_path)
                        return Response(status=201, reason="Created")
                else:
                    # Deep copy: use the backend's copy_collection method
                    did_overwrite = await app.backend.copy_collection(
                        source_path, dest_path, overwrite
                    )
                    # RFC 4918 Section 9.8.5: Return 204 when overwriting, 201 when creating new
                    if did_overwrite:
                        return Response(status=204, reason="No Content")
                    else:
                        return Response(status=201, reason="Created")

            except NotImplementedError:
                return Response(
                    status=501,
                    reason="Not Implemented",
                    body=[b"COPY for collections not implemented"],
                )
            except KeyError:
                return _send_not_found(request)
            except FileExistsError:
                return Response(
                    status=412,
                    reason="Precondition Failed",
                    body=[b"Destination exists and Overwrite is False"],
                )
            except PreconditionFailure as e:
                return _send_simple_dav_error(
                    request,
                    "412 Precondition Failed",
                    error=ET.Element(e.precondition),
                    description=e.description,
                )
            except ResourceLocked:
                return Response(status=423, reason="Locked")
            except InsufficientStorage:
                return Response(status=507, reason="Insufficient Storage")
            except PermissionError:
                return Response(status=403, reason="Forbidden")

        # Get parent containers
        source_container_path, source_name = split_path_preserving_encoding(
            request, environ
        )
        source_container = app.backend.get_resource(source_container_path)
        if source_container is None:
            return _send_not_found(request)

        dest_container_path, dest_name = posixpath.split(dest_path.rstrip("/"))
        if not dest_container_path:
            dest_container_path = "/"
        dest_container = app.backend.get_resource(dest_container_path)
        if dest_container is None:
            return Response(
                status=409,
                reason="Conflict",
                body=[b"Destination container does not exist"],
            )

        # Check if destination container is a collection
        if COLLECTION_RESOURCE_TYPE not in dest_container.resource_types:
            return Response(
                status=409,
                reason="Conflict",
                body=[b"Destination container is not a collection"],
            )

        # Handle Overwrite header
        overwrite_header = request.headers.get("Overwrite", "T")
        overwrite = overwrite_header.upper() != "F"

        try:
            # Use the copy_member method
            did_overwrite = await source_container.copy_member(
                source_name,
                dest_container,
                dest_name,
                overwrite,
                remote_user=environ.get("REMOTE_USER"),
                requester=request.headers.get("User-Agent"),
            )

            # RFC 4918 Section 9.8.5: Return 204 when overwriting, 201 when creating new
            if did_overwrite:
                return Response(status=204, reason="No Content")
            else:
                return Response(status=201, reason="Created")

        except KeyError:
            return _send_not_found(request)
        except FileExistsError:
            return Response(
                status=412,
                reason="Precondition Failed",
                body=[b"Destination exists and Overwrite is False"],
            )
        except PreconditionFailure as e:
            return _send_simple_dav_error(
                request,
                "412 Precondition Failed",
                error=ET.Element(e.precondition),
                description=e.description,
            )
        except ResourceLocked:
            return Response(status=423, reason="Locked")
        except InsufficientStorage:
            return Response(status=507, reason="Insufficient Storage")
        except PermissionError:
            return Response(status=403, reason="Forbidden")


class ReportMethod(Method):
    async def handle(self, request, environ, app):
        # See https://tools.ietf.org/html/rfc3253, section 3.6
        base_href, unused_path, r = app._get_resource_from_environ(request, environ)
        if r is None:
            return _send_not_found(request)
        depth = request.headers.get("Depth", "0")
        et = await _readXmlBody(request, None, strict=app.strict)
        try:
            reporter = app.reporters[et.tag]
        except KeyError:
            logger.warning("Client requested unknown REPORT %s", et.tag)
            return _send_simple_dav_error(
                request,
                "403 Forbidden",
                error=ET.Element("{DAV:}supported-report"),
                description=f"Unknown report {et.tag}.",
            )
        if not reporter.supported_on(r):
            return _send_simple_dav_error(
                request,
                "403 Forbidden",
                error=ET.Element("{DAV:}supported-report"),
                description=f"Report {et.tag} not supported on resource.",
            )
        try:
            return await reporter.report(
                environ,
                et,
                functools.partial(
                    _get_resources_by_hrefs,
                    app.backend,
                    environ,
                    check_access=app.check_access,
                ),
                app.properties,
                base_href,
                r,
                depth,
                app.strict,
            )
        except PreconditionFailure as e:
            return _send_simple_dav_error(
                request,
                "412 Precondition Failed",
                error=ET.Element(e.precondition),
                description=e.description,
            )


class PropfindMethod(Method):
    @multistatus
    async def handle(self, request, environ, app):
        base_href, unused_path, base_resource = app._get_resource_from_environ(
            request, environ
        )
        if base_resource is None:
            yield Status(request.url, "404 Not Found")
            return
        # Default depth is infinity, per RFC2518
        depth = request.headers.get("Depth", "infinity")
        if not request.can_read_body:
            requested = None
        else:
            et = await _readXmlBody(request, "{DAV:}propfind", strict=app.strict)
            try:
                [requested] = et
            except ValueError as exc:
                raise BadRequestError(
                    "Received more than one element in propfind."
                ) from exc

        # Create access check callback for filtering traversed resources
        def check_resource_access(href: str) -> bool:
            """Check if the current user can access the given href."""
            # Convert href to path for authorization check
            path = href_to_path(environ, href)
            if path is None:
                return False
            try:
                app.check_access(environ, path, "PROPFIND")
                return True
            except ForbiddenError:
                return False

        async for href, resource in traverse_resource(
            base_resource, base_href, depth, check_access=check_resource_access
        ):
            propstat = []
            if requested is None or requested.tag == "{DAV:}allprop":
                propstat = get_all_properties(href, resource, app.properties, environ)
            elif requested.tag == "{DAV:}prop":
                propstat = get_properties(
                    href, resource, app.properties, environ, requested
                )
            elif requested.tag == "{DAV:}propname":
                propstat = get_property_names(
                    href, resource, app.properties, environ, requested
                )
            else:
                nonfatal_bad_request(
                    "Expected prop/allprop/propname tag, got " + requested.tag,
                    app.strict,
                )
                continue
            yield Status(href, "200 OK", propstat=[s async for s in propstat])
        # By my reading of the WebDAV RFC, it should be legal to return
        # '200 OK' here if Depth=0, but the RFC is not super clear and
        # some clients don't seem to like it and prefer a 207 instead.


class ProppatchMethod(Method):
    @multistatus
    async def handle(self, request, environ, app):
        href, unused_path, resource = app._get_resource_from_environ(request, environ)
        if resource is None:
            yield Status(request.url, "404 Not Found")
            return
        et = await _readXmlBody(request, "{DAV:}propertyupdate", strict=app.strict)
        propstat = []
        for el in et:
            if el.tag not in ("{DAV:}set", "{DAV:}remove"):
                nonfatal_bad_request(
                    f"Unknown tag {el.tag} in propertyupdate", app.strict
                )
                continue
            propstat.extend(
                [
                    ps
                    async for ps in apply_modify_prop(
                        el, href, resource, app.properties
                    )
                ]
            )
        yield Status(request.url, propstat=propstat)


class MkcolMethod(Method):
    async def handle(self, request, environ, app):
        content_type = request.content_type
        base_content_type, params = parse_type(content_type)
        if base_content_type not in (
            "text/plain",
            "text/xml",
            "application/xml",
            None,
            "application/octet-stream",
        ):
            raise UnsupportedMediaType(base_content_type)
        href, path, resource = app._get_resource_from_environ(request, environ)
        if resource is not None:
            return _send_method_not_allowed(
                await app._get_allowed_methods(request, environ)
            )
        try:
            resource = app.backend.create_collection(path)
        except FileNotFoundError:
            return Response(status=409, reason="Conflict")
        if base_content_type in ("text/xml", "application/xml"):
            # Extended MKCOL (RFC5689)
            et = await _readXmlBody(request, "{DAV:}mkcol", strict=app.strict)
            propstat = []
            for el in et:
                if el.tag != "{DAV:}set":
                    nonfatal_bad_request(f"Unknown tag {el.tag} in mkcol", app.strict)
                    continue
                propstat.extend(
                    [
                        ps
                        async for ps in apply_modify_prop(
                            el, href, resource, app.properties
                        )
                    ]
                )
            ret = ET.Element("{DAV:}mkcol-response")
            for propstat_el in propstat_as_xml(propstat):
                ret.append(propstat_el)
            return _send_xml_response("201 Created", ret, DEFAULT_ENCODING)
        else:
            return Response(status=201, reason="Created")


class OptionsMethod(Method):
    async def handle(self, request, environ, app):
        headers = []
        if request.raw_path != "*":
            unused_href, unused_path, r = app._get_resource_from_environ(
                request, environ
            )
            if r is None:
                return _send_not_found(request)
            dav_features = app._get_dav_features(r)
            headers.append(("DAV", ", ".join(dav_features)))
            allowed_methods = await app._get_allowed_methods(request, environ)
            headers.append(("Allow", ", ".join(allowed_methods)))

        # RFC7231 requires that if there is no response body,
        # Content-Length: 0 must be sent. This implies that there is
        # content (albeit empty), and thus a 204 is not a valid reply.
        # Thunderbird also fails if a 204 is sent rather than a 200.
        return Response(
            status=200,
            reason="OK",
            headers=headers + [("Content-Length", "0")],
        )


class HeadMethod(Method):
    async def handle(self, request, environ, app):
        return await _do_get(request, environ, app, send_body=False)


class GetMethod(Method):
    async def handle(self, request, environ, app):
        return await _do_get(request, environ, app, send_body=True)


async def _do_get(request, environ, app, send_body):
    unused_href, unused_path, r = app._get_resource_from_environ(request, environ)
    if r is None:
        return _send_not_found(request)
    accept_content_types = parse_accept_header(request.headers.get("Accept", "*/*"))
    accept_content_languages = parse_accept_header(
        request.headers.get("Accept-Languages", "*")
    )

    (
        body,
        content_length,
        current_etag,
        content_type,
        content_languages,
    ) = await r.render(str(request.url), accept_content_types, accept_content_languages)

    if_none_match = request.headers.get("If-None-Match", None)
    if (
        if_none_match
        and current_etag is not None
        and etag_matches(if_none_match, current_etag)
    ):
        return Response(status="304 Not Modified")
    headers = [
        ("Content-Length", str(content_length)),
    ]
    if current_etag is not None:
        headers.append(("ETag", current_etag))
    if content_type is not None:
        headers.append(("Content-Type", content_type))
    try:
        last_modified = r.get_last_modified()
    except KeyError:
        # Resource does not have a last modified time
        pass
    else:
        headers.append(("Last-Modified", last_modified))
    if content_languages is not None:
        headers.append(("Content-Language", ", ".join(content_languages)))
    if send_body:
        return Response(body=body, status=200, reason="OK", headers=headers)
    else:
        return Response(status=200, reason="OK", headers=headers)


class _StreamWrapper:
    """Wrapper for synchronous WSGI input stream."""

    def __init__(self, stream) -> None:
        self._stream = stream

    async def read(self, size=None):
        if size is None:
            return self._stream.read()
        else:
            return self._stream.read(size)


class _ChunkedStreamWrapper:
    """Streaming decoder for chunked transfer encoding."""

    def __init__(self, stream) -> None:
        self._stream = stream
        self._finished = False
        self._current_chunk_remaining = 0

    def _read_exact(self, n):
        """Read exactly n bytes from the stream."""
        data = self._stream.read(n)
        if len(data) != n:
            raise ValueError(f"Expected {n} bytes, got {len(data)}")
        return data

    def _read_line(self):
        """Read a line from the stream (until CRLF)."""
        line = b""
        while True:
            char = self._stream.read(1)
            if not char:
                raise ValueError("Unexpected end of stream while reading chunk")
            line += char
            if line.endswith(b"\r\n"):
                return line[:-2]  # Remove CRLF

    async def read(self, size=None):
        """Read data, decoding chunks as needed."""
        if self._finished:
            return b""

        result = b""

        while True:
            # If current chunk is exhausted, read next chunk header
            if self._current_chunk_remaining == 0:
                # Read chunk size line
                chunk_size_line = self._read_line()
                if not chunk_size_line:
                    raise ValueError("Empty chunk size line")

                # Parse chunk size (ignore chunk extensions after ';')
                chunk_size_str = chunk_size_line.split(b";")[0].strip()
                try:
                    chunk_size = int(chunk_size_str, 16)
                except ValueError as e:
                    raise ValueError(f"Invalid chunk size: {chunk_size_str!r}") from e

                # If chunk size is 0, we've reached the last chunk
                if chunk_size == 0:
                    # Read trailer headers (if any) until empty line
                    while True:
                        trailer_line = self._read_line()
                        if not trailer_line:
                            break
                    self._finished = True
                    return result

                self._current_chunk_remaining = chunk_size

            # Read from current chunk
            if size is None:
                # Read entire remaining chunk
                chunk_data = self._read_exact(self._current_chunk_remaining)
                result += chunk_data
                self._current_chunk_remaining = 0
                # Read trailing CRLF after chunk data
                self._read_exact(2)
                # Continue to next chunk
            else:
                # Read up to size bytes total
                needed = size - len(result)
                to_read = min(needed, self._current_chunk_remaining)
                chunk_data = self._read_exact(to_read)
                result += chunk_data
                self._current_chunk_remaining -= to_read

                # If we finished this chunk, read trailing CRLF
                if self._current_chunk_remaining == 0:
                    self._read_exact(2)

                # If we have enough data, return it
                if len(result) >= size:
                    return result


class WSGIRequest:
    """Request object for wsgi requests (with environ)."""

    def __init__(self, environ) -> None:
        self._environ = environ
        self.method = environ["REQUEST_METHOD"]
        self.raw_path = environ["SCRIPT_NAME"] + environ["PATH_INFO"]
        self.path = environ["SCRIPT_NAME"] + path_from_environ(environ, "PATH_INFO")
        self.content_type = environ.get("CONTENT_TYPE", "application/octet-stream")
        try:
            self.content_length: int | None = int(environ["CONTENT_LENGTH"])
        except (KeyError, ValueError):
            self.content_length = None
        from multidict import CIMultiDict

        self.headers = CIMultiDict(
            [
                (k[5:].replace("_", "-"), v)
                for k, v in environ.items()
                if k.startswith("HTTP_")
            ]
        )
        self.url = request_uri(environ)

        # Check if request uses chunked transfer encoding
        transfer_encoding = environ.get("HTTP_TRANSFER_ENCODING", "").lower()
        is_chunked = "chunked" in transfer_encoding

        self.content: _StreamWrapper | _ChunkedStreamWrapper
        if is_chunked:
            self.content = _ChunkedStreamWrapper(self._environ["wsgi.input"])
            # For chunked requests, content_length is unknown until decoded
            # We'll keep it as None to indicate streaming/chunked mode
        else:
            self.content = _StreamWrapper(self._environ["wsgi.input"])
        # Decode the path_info to match aiohttp behavior
        # This ensures consistent handling of percent-encoded paths
        decoded_path_info = urllib.parse.unquote(
            environ["PATH_INFO"], encoding="utf-8", errors="strict"
        )
        self.match_info = {"path_info": decoded_path_info}

    @property
    def can_read_body(self):
        transfer_encoding = self._environ.get("HTTP_TRANSFER_ENCODING", "").lower()
        return (
            "CONTENT_TYPE" in self._environ
            or self._environ.get("CONTENT_LENGTH") != "0"
            or "chunked" in transfer_encoding
        )

    async def read(self):
        return self._environ["wsgi.input"].read()


class WebDAVApp:
    """A wsgi App that provides a WebDAV server.

    A concrete implementation should provide an implementation of the
    lookup_resource function that can map a path to a Resource object
    (returning None for nonexistent objects).
    """

    def __init__(self, backend, strict=True) -> None:
        self.backend = backend
        self.properties: dict[str, type[Property]] = {}
        self.reporters: dict[str, type[Reporter]] = {}
        self.methods: dict[str, type[Method]] = {}
        self.strict = strict
        self.register_methods(
            [
                DeleteMethod(),
                PostMethod(),
                PutMethod(),
                MoveMethod(),
                CopyMethod(),
                ReportMethod(),
                PropfindMethod(),
                ProppatchMethod(),
                MkcolMethod(),
                OptionsMethod(),
                GetMethod(),
                HeadMethod(),
            ]
        )

    def _get_resource_from_environ(self, request, environ):
        path_info = request.match_info["path_info"]
        if not path_info.startswith("/"):
            path_info = "/" + path_info
        r = self.backend.get_resource(path_info)
        return (request.path, path_info, r)

    def register_properties(self, properties):
        for p in properties:
            self.properties[p.name] = p

    def register_reporters(self, reporters):
        for r in reporters:
            self.reporters[r.name] = r

    def register_methods(self, methods):
        for m in methods:
            self.methods[m.name] = m

    def _get_dav_features(self, resource):
        # TODO(jelmer): Support access-control
        return [
            "1",
            "2",
            "3",
            "calendar-access",
            "calendar-auto-scheduling",
            "addressbook",
            "extended-mkcol",
            "add-member",
            "sync-collection",
            "quota",
        ]

    async def _get_allowed_methods(self, request, environ):
        """List of supported methods on this endpoint."""
        ret = []
        for name in sorted(self.methods.keys()):
            if await self.methods[name].allow(request, environ, self):
                ret.append(name)
        return ret

    def check_access(self, environ: dict, path: str, method: str) -> None:
        """Check if the current user has access to perform the operation.

        This method can be overridden by subclasses to implement
        custom authorization logic.

        Args:
            environ: The WSGI/aiohttp environment dict
            path: The resource path being accessed
            method: The HTTP method being used (GET, PUT, DELETE, etc.)

        Raises:
            ForbiddenError: If access is denied
            UnauthorizedError: If authentication is required but missing
        """
        # Default implementation allows all access
        pass

    async def _handle_request(self, request, environ, start_response=None):
        # Handle remote user authentication
        remote_user = None
        if hasattr(request, "headers"):
            # aiohttp request
            remote_user = request.headers.get("X-Remote-User")

        if "ORIGINAL_ENVIRON" in environ:
            # WSGI request
            remote_user = environ["ORIGINAL_ENVIRON"].get("HTTP_X_REMOTE_USER")

        if remote_user and hasattr(self.backend, "set_principal"):
            environ["REMOTE_USER"] = remote_user
            self.backend.set_principal(remote_user)

        # Get the path for authorization check
        path_info = request.match_info.get("path_info", "/")
        if not path_info.startswith("/"):
            path_info = "/" + path_info

        # Check authorization before processing the request
        self.check_access(environ, path_info, request.method)

        try:
            do = self.methods[request.method]
        except KeyError:
            return _send_method_not_allowed(
                await self._get_allowed_methods(request, environ)
            )
        try:
            return await do.handle(request, environ, self)
        except BadRequestError as e:
            logger.debug("Bad request: %s", e.message)
            return Response(
                status="400 Bad Request",
                body=[e.message.encode(DEFAULT_ENCODING)],
            )
        except NotAcceptableError as e:
            return Response(
                status="406 Not Acceptable",
                body=[str(e).encode(DEFAULT_ENCODING)],
            )
        except UnsupportedMediaType as e:
            return Response(
                status="415 Unsupported Media Type",
                body=[
                    f"Unsupported media type {e.content_type!r}".encode(
                        DEFAULT_ENCODING
                    )
                ],
            )
        except UnauthorizedError:
            return Response(
                status="401 Unauthorized",
                body=[("Please login.".encode(DEFAULT_ENCODING))],
            )
        except ForbiddenError as e:
            return Response(
                status="403 Forbidden",
                body=[e.message.encode(DEFAULT_ENCODING)],
            )

    def handle_wsgi_request(self, environ, start_response):
        if "SCRIPT_NAME" not in environ:
            logger.debug('SCRIPT_NAME not set; assuming "".')
            environ["SCRIPT_NAME"] = ""
        request = WSGIRequest(environ)
        environ = {"SCRIPT_NAME": environ["SCRIPT_NAME"], "ORIGINAL_ENVIRON": environ}
        try:
            loop = asyncio.get_event_loop()
        except RuntimeError:
            loop = asyncio.new_event_loop()
            asyncio.set_event_loop(loop)
        response = loop.run_until_complete(
            self._handle_request(request, environ, start_response)
        )
        return (
            response.for_wsgi(start_response)
            if isinstance(response, Response)
            else response
        )

    async def aiohttp_handler(self, request, route_prefix="/"):
        environ = {"SCRIPT_NAME": route_prefix}
        response = await self._handle_request(request, environ)
        return await response.for_aiohttp(request)

    # Backwards compatibility
    __call__ = handle_wsgi_request
