<?php

/*
 * This file is part of the BeSimpleSoapClient.
 *
 * (c) Christian Kerl <christian-kerl@web.de>
 * (c) Francis Besset <francis.besset@gmail.com>
 *
 * This source file is subject to the MIT license that is bundled
 * with this source code in the file LICENSE.
 */

namespace BeSimple\SoapClient;

/**
 * Extended SoapClient that uses a a cURL wrapper for all underlying HTTP
 * requests in order to use proper authentication for all requests. This also
 * adds NTLM support. A custom WSDL downloader resolves remote xsd:includes and
 * allows caching of all remote referenced items.
 *
 * @author Andreas Schamberger <mail@andreass.net>
 */
class SoapClient extends \SoapClient
{
    /**
     * Last request headers.
     *
     * @var string
     */
    private $lastRequestHeaders = '';

    /**
     * Last request.
     *
     * @var string
     */
    private $lastRequest = '';

    /**
     * Last response headers.
     *
     * @var string
     */
    private $lastResponseHeaders = '';

    /**
     * Last response.
     *
     * @var string
     */
    private $lastResponse = '';

    /**
     * Copy of the parent class' options array
     *
     * @var array(string=>mixed)
     */
    protected $options = array();

    /**
     * Path to WSDL (cache) file.
     *
     * @var string
     */
    private $wsdlFile = null;

    /**
     * Extended constructor that saves the options as the parent class'
     * property is private.
     *
     * @param string $wsdl
     * @param array(string=>mixed) $options
     */
    public function __construct($wsdl, array $options = array(), TypeConverterCollection $converters = null)
    {
        // we want the exceptions option to be set
        $options['exceptions'] = true;
        // we want to make sure we have the soap version to rely on it later
        if (!isset($options['soap_version'])) {
            $options['soap_version'] = SOAP_1_1;
        }
        // we want to make sure we have the features option
        if (!isset($options['features'])) {
            $options['features'] = 0;
        }
        // set default option to resolve xsd includes
        if (!isset($options['resolve_xsd_includes'])) {
            $options['resolve_xsd_includes'] = true;
        }
        // add type converters from TypeConverterCollection
        if (!is_null($converters)) {
            $convertersTypemap = $converters->getTypemap();
            if (isset($options['typemap'])) {
                $options['typemap'] = array_merge($options['typemap'], $convertersTypemap);
            } else {
                $options['typemap'] = $convertersTypemap;
            }
        }
        // store local copy as ext/soap's property is private
        $this->options = $options;
        // disable obsolete trace option for native SoapClient as we need to do our own tracing anyways
        $options['trace'] = false;
        // disable WSDL caching as we handle WSDL caching for remote URLs ourself
        $options['cache_wsdl'] = WSDL_CACHE_NONE;
        // load WSDL and run parent constructor
        // can't be loaded later as we need it already in the parent constructor
        $this->wsdlFile = $this->loadWsdl($wsdl);
        parent::__construct($this->wsdlFile, $options);
    }

    /**
     * Perform HTTP request with cURL.
     *
     * @param string $request
     * @param string $location
     * @param string $action
     * @return string
     */
    private function __doHttpRequest($request, $location, $action)
    {
        // $request is if unmodified from SoapClient not a php string type!
        $request = (string)$request;
        if ($this->options['soap_version'] == SOAP_1_2) {
            $headers = array(
                'Content-Type: application/soap+xml; charset=utf-8',
           );
        } else {
            $headers = array(
                'Content-Type: text/xml; charset=utf-8',
           );
        }
        // add SOAPAction header
        $headers[] = 'SOAPAction: "' . $action . '"';
        // new curl object for request
        $curl = new Curl($this->options);
        // execute request
        $responseSuccessfull = $curl->exec($location, $request, $headers);
        // tracing enabled: store last request header and body
        if (isset($this->options['trace']) && $this->options['trace'] === true) {
            $this->lastRequestHeaders = $curl->getRequestHeaders();
            $this->lastRequest = $request;
        }
        // in case of an error while making the http request throw a soapFault
        if ($responseSuccessfull === false) {
            // get error message from curl
            $faultstring = $curl->getErrorMessage();
            // destruct curl object
            unset($curl);
            throw new \SoapFault('HTTP', $faultstring);
        }
        // tracing enabled: store last response header and body
        if (isset($this->options['trace']) && $this->options['trace'] === true) {
            $this->lastResponseHeaders = $curl->getResponseHeaders();
            $this->lastResponse = $curl->getResponseBody();
        }
        $response = $curl->getResponseBody();
        // check if we do have a proper soap status code (if not soapfault)
//        // TODO
//        $responseStatusCode = $curl->getResponseStatusCode();
//        if ($responseStatusCode >= 400) {
//            $isError = 0;
//            $response = trim($response);
//            if (strlen($response) == 0) {
//                $isError = 1;
//            } else {
//                $contentType = $curl->getResponseContentType();
//                if ($contentType != 'application/soap+xml'
//                    && $contentType != 'application/soap+xml') {
//                    if (strncmp($response , "<?xml", 5)) {
//                        $isError = 1;
//                    }
//                }
//            }
//            if ($isError == 1) {
//                throw new \SoapFault('HTTP', $curl->getResponseStatusMessage());
//            }
//        } elseif ($responseStatusCode != 200 && $responseStatusCode != 202) {
//            $dom = new \DOMDocument('1.0');
//            $dom->loadXML($response);
//            if ($dom->getElementsByTagNameNS($dom->documentElement->namespaceURI, 'Fault')->length == 0) {
//                throw new \SoapFault('HTTP', 'HTTP response status must be 200 or 202');
//            }
//        }
        // destruct curl object
        unset($curl);
        return $response;
    }

   /**
     * Custom request method to be able to modify the SOAP messages.
     *
     * @param string $request
     * @param string $location
     * @param string $action
     * @param int $version
     * @param int $one_way 0|1
     * @return string
     */
    public function __doRequest($request, $location, $action, $version, $one_way = 0)
    {
        // http request
        $response = $this->__doHttpRequest($request, $location, $action);
        // return SOAP response to ext/soap
        return $response;
    }

    /**
     * Get last request HTTP headers.
     *
     * @return string
     */
    public function __getLastRequestHeaders()
    {
        return $this->lastRequestHeaders;
    }

    /**
     * Get last request HTTP body.
     *
     * @return string
     */
    public function __getLastRequest()
    {
        return $this->lastRequest;
    }

    /**
     * Get last response HTTP headers.
     *
     * @return string
     */
    public function __getLastResponseHeaders()
    {
        return $this->lastResponseHeaders;
    }

    /**
     * Get last response HTTP body.
     *
     * @return string
     */
    public function __getLastResponse()
    {
        return $this->lastResponse;
    }

    /**
     * Downloads WSDL files with cURL. Uses all SoapClient options for
     * authentication. Uses the WSDL_CACHE_* constants and the 'soap.wsdl_*'
     * ini settings. Does only file caching as SoapClient only supports a file
     * name parameter.
     *
     * @param string $wsdl
     * @return string
     */
    private function loadWsdl($wsdl)
    {
        $wsdlDownloader = new WsdlDownloader($this->options);
        try {
            $cacheFileName = $wsdlDownloader->download($wsdl);
        } catch (\RuntimeException $e) {
            throw new \SoapFault('WSDL', "SOAP-ERROR: Parsing WSDL: Couldn't load from '" . $wsdl . "' : failed to load external entity \"" . $wsdl . "\"");
        }
        return $cacheFileName;
    }
}