<?php

/**

 * IXR - The Incutio XML-RPC Library

 *

 * Copyright (c) 2010, Incutio Ltd.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions are met:

 *

 *  - Redistributions of source code must retain the above copyright notice,

 *    this list of conditions and the following disclaimer.

 *  - Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *  - Neither the name of Incutio Ltd. nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS

 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,

 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR

 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY

 * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE

 * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 *

 * @package IXR

 *

 * @copyright  Incutio Ltd 2010 (http://www.incutio.com)

 * @version    1.7.4 7th September 2010

 * @author     Simon Willison

 * @link       http://scripts.incutio.com/xmlrpc/ Site/manual

 * @license    http://www.opensource.org/licenses/bsd-license.php BSD

 */

/**

 * IXR_Value

 *

 * @package IXR

 */

class IXR_Value {

    var $data;

    var $type;

    function IXR_Value($data, $type = false)

    {

        $this->data = $data;

        if (!$type) {

            $type = $this->calculateType();

        }

        $this->type = $type;

        if ($type == 'struct') {

            // Turn all the values in the array in to new IXR_Value objects

            foreach ($this->data as $key => $value) {

                $this->data[$key] = new IXR_Value($value);

            }

        }

        if ($type == 'array') {

            for ($i = 0, $j = count($this->data); $i < $j; $i++) {

                $this->data[$i] = new IXR_Value($this->data[$i]);

            }

        }

    }

    function calculateType()

    {

        if ($this->data === true || $this->data === false) {

            return 'boolean';

        }

        if (is_integer($this->data)) {

            return 'int';

        }

        if (is_double($this->data)) {

            return 'double';

        }

        // Deal with IXR object types base64 and date

        if (is_object($this->data) && is_a($this->data, 'IXR_Date')) {

            return 'date';

        }

        if (is_object($this->data) && is_a($this->data, 'IXR_Base64')) {

            return 'base64';

        }

        // If it is a normal PHP object convert it in to a struct

        if (is_object($this->data)) {

            $this->data = get_object_vars($this->data);

            return 'struct';

        }

        if (!is_array($this->data)) {

            return 'string';

        }

        // We have an array - is it an array or a struct?

        if ($this->isStruct($this->data)) {

            return 'struct';

        } else {

            return 'array';

        }

    }

    function getXml()

    {

        // Return XML for this value

        switch ($this->type) {

            case 'boolean':

                return '<boolean>'.(($this->data) ? '1' : '0').'</boolean>';

                break;

            case 'int':

                return '<int>'.$this->data.'</int>';

                break;

            case 'double':

                return '<double>'.$this->data.'</double>';

                break;

            case 'string':

                return '<string>'.htmlspecialchars($this->data).'</string>';

                break;

            case 'array':

                $return = '<array><data>'."\n";

                foreach ($this->data as $item) {

                    $return .= '  <value>'.$item->getXml()."</value>\n";

                }

                $return .= '</data></array>';

                return $return;

                break;

            case 'struct':

                $return = '<struct>'."\n";

                foreach ($this->data as $name => $value) {

					$name = htmlspecialchars($name);

                    $return .= "  <member><name>$name</name><value>";

                    $return .= $value->getXml()."</value></member>\n";

                }

                $return .= '</struct>';

                return $return;

                break;

            case 'date':

            case 'base64':

                return $this->data->getXml();

                break;

        }

        return false;

    }

    /**

     * Checks whether or not the supplied array is a struct or not

     *

     * @return boolean

     */

    function isStruct($array)

    {

        $expected = 0;

        foreach ($array as $key => $value) {

            if ((string)$key != (string)$expected) {

                return true;

            }

            $expected++;

        }

        return false;

    }

}

/**

 * IXR_MESSAGE

 *

 * @package IXR

 *

 */

class IXR_Message

{

    var $message;

    var $messageType;  // methodCall / methodResponse / fault

    var $faultCode;

    var $faultString;

    var $methodName;

    var $params;

    // Current variable stacks

    var $_arraystructs = array();   // The stack used to keep track of the current array/struct

    var $_arraystructstypes = array(); // Stack keeping track of if things are structs or array

    var $_currentStructName = array();  // A stack as well

    var $_param;

    var $_value;

    var $_currentTag;

    var $_currentTagContents;

    // The XML parser

    var $_parser;

    function IXR_Message($message)

    {

        $this->message =& $message;

    }

    function parse()

    {

        // first remove the XML declaration

        // merged from WP #10698 - this method avoids the RAM usage of preg_replace on very large messages

            return false;

        }

        $this->_parser = xml_parser_create();

        // Set XML parser to take the case of tags in to account

        xml_parser_set_option($this->_parser, XML_OPTION_CASE_FOLDING, false);

        // Set XML parser callback functions

        xml_set_object($this->_parser, $this);

        xml_set_element_handler($this->_parser, 'tag_open', 'tag_close');

        xml_set_character_data_handler($this->_parser, 'cdata');

        $chunk_size = 262144; // 256Kb, parse in chunks to avoid the RAM usage on very large messages

        $final = false;

        do {

            if (strlen($this->message) <= $chunk_size) {

                $final = true;

            }

            $part = substr($this->message, 0, $chunk_size);

            $this->message = substr($this->message, $chunk_size);

            if (!xml_parse($this->_parser, $part, $final)) {

                return false;

            }

            if ($final) {

                break;

            }

        } while (true);

        xml_parser_free($this->_parser);

        // Grab the error messages, if any

        if ($this->messageType == 'fault') {

            $this->faultCode = $this->params[0]['faultCode'];

            $this->faultString = $this->params[0]['faultString'];

        }

        return true;

    }

    function tag_open($parser, $tag, $attr)

    {

        $this->_currentTagContents = '';

        $this->currentTag = $tag;

        switch($tag) {

            case 'methodCall':

            case 'methodResponse':

            case 'fault':

                $this->messageType = $tag;

                break;

                /* Deal with stacks of arrays and structs */

            case 'data':    // data is to all intents and puposes more interesting than array

                $this->_arraystructstypes[] = 'array';

                $this->_arraystructs[] = array();

                break;

            case 'struct':

                $this->_arraystructstypes[] = 'struct';

                $this->_arraystructs[] = array();

                break;

        }

    }

    function cdata($parser, $cdata)

    {

        $this->_currentTagContents .= $cdata;

    }

    function tag_close($parser, $tag)

    {

        $valueFlag = false;

        switch($tag) {

            case 'int':

            case 'i4':

                $value = (int)trim($this->_currentTagContents);

                $valueFlag = true;

                break;

            case 'double':

                $value = (double)trim($this->_currentTagContents);

                $valueFlag = true;

                break;

            case 'string':

                $value = (string)trim($this->_currentTagContents);

                $valueFlag = true;

                break;

            case 'dateTime.iso8601':

                $value = new IXR_Date(trim($this->_currentTagContents));

                $valueFlag = true;

                break;

            case 'value':

                // "If no type is indicated, the type is string."

                if (trim($this->_currentTagContents) != '') {

                    $value = (string)$this->_currentTagContents;

                    $valueFlag = true;

                }

                break;

            case 'boolean':

                $value = (boolean)trim($this->_currentTagContents);

                $valueFlag = true;

                break;

            case 'base64':

                $value = base64_decode($this->_currentTagContents);

                $valueFlag = true;

                break;

                /* Deal with stacks of arrays and structs */

            case 'data':

            case 'struct':

                $value = array_pop($this->_arraystructs);

                array_pop($this->_arraystructstypes);

                $valueFlag = true;

                break;

            case 'member':

                array_pop($this->_currentStructName);

                break;

            case 'name':

                $this->_currentStructName[] = trim($this->_currentTagContents);

                break;

            case 'methodName':

                $this->methodName = trim($this->_currentTagContents);

                break;

        }

        if ($valueFlag) {

            if (count($this->_arraystructs) > 0) {

                // Add value to struct or array

                if ($this->_arraystructstypes[count($this->_arraystructstypes)-1] == 'struct') {

                    // Add to struct

                    $this->_arraystructs[count($this->_arraystructs)-1][$this->_currentStructName[count($this->_currentStructName)-1]] = $value;

                } else {

                    // Add to array

                    $this->_arraystructs[count($this->_arraystructs)-1][] = $value;

                }

            } else {

                $this->params[] = $value;

            }

        }

        $this->_currentTagContents = '';

    }

}

/**

 * IXR_Server

 *

 * @package IXR

 */

class IXR_Server

{

    var $data;

    var $callbacks = array();

    var $message;

    var $capabilities;

    function IXR_Server($callbacks = false, $data = false, $wait = false)

    {

        $this->setCapabilities();

        if ($callbacks) {

            $this->callbacks = $callbacks;

        }

        $this->setCallbacks();

        if (!$wait) {

            $this->serve($data);

        }

    }

    function serve($data = false)

    {

        if (!$data) {

            if (isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] !== 'POST') {

                die('XML-RPC server accepts POST requests only.');

            }

            global $HTTP_RAW_POST_DATA;

            if (empty($HTTP_RAW_POST_DATA)) {

                // workaround for a bug in PHP 5.2.2 - http://bugs.php.net/bug.php?id=41293