Proyectos de Subversion Moodle

<?php

namespace Aws\S3\Parser;

use Aws\CommandInterface;
use Aws\ResultInterface;
use Psr\Http\Message\ResponseInterface;

/**
 * A custom mutator for a GetBucketLocation request, which
 * extract the bucket location value and injects it into the
 * result as the `LocationConstraint` field.
 *
 * @internal
 */
final class GetBucketLocationResultMutator implements S3ResultMutator
{
    /**
     * @inheritDoc
     */
    public function __invoke(
        ResultInterface $result,
        CommandInterface $command,
        ResponseInterface $response
    ): ResultInterface
    {
        if ($command->getName() !== 'GetBucketLocation') {
            return $result;
        }

        static $location = 'us-east-1';
        static $pattern = '/>(.+?)<\/LocationConstraint>/';
        if (preg_match($pattern, $response->getBody(), $matches)) {
            $location = $matches[1] === 'EU' ? 'eu-west-1' : $matches[1];
        }

        $result['LocationConstraint'] = $location;
        $response->getBody()->rewind();

        return $result;
    }
}