<?php

/**
 * Part of the Joomla Framework Http Package
 *
 * @copyright  Copyright (C) 2005 - 2021 Open Source Matters, Inc. All rights reserved.
 * @license    GNU General Public License version 2 or later; see LICENSE
 */

namespace Joomla\Http\Transport;

use Composer\CaBundle\CaBundle;
use Joomla\Http\AbstractTransport;
use Joomla\Http\Exception\InvalidResponseCodeException;
use Joomla\Http\Response;
use Joomla\Uri\UriInterface;
use Laminas\Diactoros\Stream as StreamResponse;

/**
 * HTTP transport class for using cURL.
 *
 * @since  1.0
 */
class Curl extends AbstractTransport
{
    /**
     * Send a request to the server and return a Response object with the response.
     *
     * @param   string        $method     The HTTP method for sending the request.
     * @param   UriInterface  $uri        The URI to the resource to request.
     * @param   mixed         $data       Either an associative array or a string to be sent with the request.
     * @param   array         $headers    An array of request headers to send with the request.
     * @param   integer       $timeout    Read timeout in seconds.
     * @param   string        $userAgent  The optional user agent string to send with the request.
     *
     * @return  Response
     *
     * @since   1.0
     * @throws  \RuntimeException
     */
    public function request($method, UriInterface $uri, $data = null, array $headers = [], $timeout = null, $userAgent = null)
    {
        // Setup the cURL handle.
        $ch = curl_init();

        // Initialize the certificate store
        $this->setCAOptionAndValue($ch);

        $options = [];

        // Set the request method.
        switch (strtoupper($method)) {
            case 'GET':
                $options[\CURLOPT_HTTPGET] = true;

                break;

            case 'POST':
                $options[\CURLOPT_POST] = true;

                break;

            default:
                $options[\CURLOPT_CUSTOMREQUEST] = strtoupper($method);

                break;
        }

        // Don't wait for body when $method is HEAD
        $options[\CURLOPT_NOBODY] = ($method === 'HEAD');

        // Initialize the certificate store
        $options[CURLOPT_CAINFO] = $this->getOption('curl.certpath', CaBundle::getSystemCaRootBundlePath());

        // If data exists let's encode it and make sure our Content-type header is set.
        if (isset($data)) {
            // If the data is a scalar value simply add it to the cURL post fields.
            if (is_scalar($data) || (isset($headers['Content-Type']) && strpos($headers['Content-Type'], 'multipart/form-data') === 0)) {
                $options[\CURLOPT_POSTFIELDS] = $data;
            } else {
                // Otherwise we need to encode the value first.
                $options[\CURLOPT_POSTFIELDS] = http_build_query($data);
            }

            if (!isset($headers['Content-Type'])) {
                $headers['Content-Type'] = 'application/x-www-form-urlencoded; charset=utf-8';
            }

            // Add the relevant headers.
            if (is_scalar($options[\CURLOPT_POSTFIELDS])) {
                $headers['Content-Length'] = \strlen($options[\CURLOPT_POSTFIELDS]);
            }
        }

        // Build the headers string for the request.
        $headerArray = [];

        if (!empty($headers)) {
            foreach ($headers as $key => $value) {
                if (\is_array($value)) {
                    foreach ($value as $header) {
                        $headerArray[] = "$key: $header";
                    }
                } else {
                    $headerArray[] = "$key: $value";
                }
            }

            // Add the headers string into the stream context options array.
            $options[\CURLOPT_HTTPHEADER] = $headerArray;
        }

        // Curl needs the accepted encoding header as option
        if (isset($headers['Accept-Encoding'])) {
            $options[\CURLOPT_ENCODING] = $headers['Accept-Encoding'];
        }

        // If an explicit timeout is given use it.
        if (isset($timeout)) {
            $options[\CURLOPT_TIMEOUT]        = (int) $timeout;
            $options[\CURLOPT_CONNECTTIMEOUT] = (int) $timeout;
        }

        // If an explicit user agent is given use it.
        if (isset($userAgent)) {
            $options[\CURLOPT_USERAGENT] = $userAgent;
        }

        // Set the request URL.
        $options[\CURLOPT_URL] = (string) $uri;

        // We want our headers. :-)
        $options[\CURLOPT_HEADER] = true;

        // Return it... echoing it would be tacky.
        $options[\CURLOPT_RETURNTRANSFER] = true;

        // Override the Expect header to prevent cURL from confusing itself in its own stupidity.
        // Link: http://the-stickman.com/web-development/php-and-curl-disabling-100-continue-header/
        $options[\CURLOPT_HTTPHEADER][] = 'Expect:';

        // Follow redirects if server config allows
        if ($this->redirectsAllowed()) {
            $options[\CURLOPT_FOLLOWLOCATION] = (bool) $this->getOption('follow_location', true);
        }

        // Authentication, if needed
        if ($this->getOption('userauth') && $this->getOption('passwordauth')) {
            $options[\CURLOPT_USERPWD]  = $this->getOption('userauth') . ':' . $this->getOption('passwordauth');
            $options[\CURLOPT_HTTPAUTH] = CURLAUTH_BASIC;
        }

        // Configure protocol version
        if ($protocolVersion = $this->getOption('protocolVersion')) {
            $options[\CURLOPT_HTTP_VERSION] = $this->mapProtocolVersion($protocolVersion);
        }

        // Set any custom transport options
        foreach ($this->getOption('transport.curl', []) as $key => $value) {
            $options[$key] = $value;
        }

        // Set the cURL options.
        curl_setopt_array($ch, $options);

        // Execute the request and close the connection.
        $content = curl_exec($ch);

        // Check if the content is a string. If it is not, it must be an error.
        if (!\is_string($content)) {
            $message = curl_error($ch);

            if (empty($message)) {
                // Error but nothing from cURL? Create our own
                $message = 'No HTTP response received';
            }

            throw new \RuntimeException($message);
        }

        // Get the request information.
        $info = curl_getinfo($ch);

        // Close the connection.
        curl_close($ch);

        return $this->getResponse($content, $info);
    }

    /**
     * Configure the cURL resources with the appropriate root certificates.
     *
     * @param   \CurlHandle  $ch  The cURL resource you want to configure the certificates on.
     *
     * @return  void
     *
     * @since   1.3.2
     */
    protected function setCAOptionAndValue($ch)
    {
        if ($certpath = $this->getOption('curl.certpath')) {
            // Option is passed to a .PEM file.
            curl_setopt($ch, \CURLOPT_CAINFO, $certpath);

            return;
        }

        $caPathOrFile = CaBundle::getSystemCaRootBundlePath();

        if (is_dir($caPathOrFile) || (is_link($caPathOrFile) && is_dir(readlink($caPathOrFile)))) {
            curl_setopt($ch, \CURLOPT_CAPATH, $caPathOrFile);

            return;
        }

        curl_setopt($ch, \CURLOPT_CAINFO, $caPathOrFile);
    }

    /**
     * Method to get a response object from a server response.
     *
     * @param   string  $content  The complete server response, including headers
     *                            as a string if the response has no errors.
     * @param   array   $info     The cURL request information.
     *
     * @return  Response
     *
     * @since   1.0
     * @throws  InvalidResponseCodeException
     */
    protected function getResponse($content, $info)
    {
        // Try to get header size
        if (isset($info['header_size'])) {
            $headerString = trim(substr($content, 0, $info['header_size']));
            $headerArray  = explode("\r\n\r\n", $headerString);

            // Get the last set of response headers as an array.
            $headers = explode("\r\n", array_pop($headerArray));

            // Set the body for the response.
            $body = substr($content, $info['header_size']);
        } else {
            // Fallback and try to guess header count by redirect count
            // Get the number of redirects that occurred.
            $redirects = $info['redirect_count'] ?? 0;

            /*
             * Split the response into headers and body. If cURL encountered redirects, the headers for the redirected requests will
             * also be included. So we split the response into header + body + the number of redirects and only use the last two
             * sections which should be the last set of headers and the actual body.
             */
            $response = explode("\r\n\r\n", $content, 2 + $redirects);

            // Set the body for the response.
            $body = array_pop($response);

            // Get the last set of response headers as an array.
            $headers = explode("\r\n", array_pop($response));
        }

        // Get the response code from the first offset of the response headers.
        preg_match('/[0-9]{3}/', array_shift($headers), $matches);

        $code = \count($matches) ? $matches[0] : null;

        if (!is_numeric($code)) {
            // No valid response code was detected.
            throw new InvalidResponseCodeException('No HTTP response code found.');
        }

        $statusCode      = (int) $code;
        $verifiedHeaders = $this->processHeaders($headers);

        $streamInterface = new StreamResponse('php://memory', 'rw');
        $streamInterface->write($body);

        return new Response($streamInterface, $statusCode, $verifiedHeaders);
    }

    /**
     * Method to check if HTTP transport cURL is available for use
     *
     * @return  boolean  True if available, else false
     *
     * @since   1.0
     */
    public static function isSupported()
    {
        return \function_exists('curl_version') && curl_version();
    }

    /**
     * Get the cURL constant for a HTTP protocol version
     *
     * @param   string  $version  The HTTP protocol version to use
     *
     * @return  integer
     *
     * @since   1.3.1
     */
    private function mapProtocolVersion(string $version): int
    {
        switch ($version) {
            case '1.0':
                return \CURL_HTTP_VERSION_1_0;

            case '1.1':
                return \CURL_HTTP_VERSION_1_1;

            case '2.0':
            case '2':
                if (\defined('CURL_HTTP_VERSION_2')) {
                    return \CURL_HTTP_VERSION_2;
                }
        }

        return \CURL_HTTP_VERSION_NONE;
    }

    /**
     * Check if redirects are allowed
     *
     * @return  boolean
     *
     * @since   1.2.1
     */
    private function redirectsAllowed(): bool
    {
        return true;
    }
}
