summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl 'vollmerk' Vollmer <vollmer@ampache.org>2009-11-19 06:17:55 +0000
committerKarl 'vollmerk' Vollmer <vollmer@ampache.org>2009-11-19 06:17:55 +0000
commitd10f33bcd06aef5cb6b42926c1a495019fbab1cf (patch)
tree5bcc82e260e21a4d017af6123308c51c9ec7ad94
parente4ca74f2b0daeb181212a93be3bd3efe664c3cf0 (diff)
downloadampache-d10f33bcd06aef5cb6b42926c1a495019fbab1cf.tar.gz
ampache-d10f33bcd06aef5cb6b42926c1a495019fbab1cf.tar.bz2
ampache-d10f33bcd06aef5cb6b42926c1a495019fbab1cf.zip
Remove XML-RPC functions and start prep for use of new API for ampache catalog syncs
Diffstat
-rw-r--r--lib/init.php2
-rw-r--r--lib/xmlrpc.php215
-rw-r--r--modules/pearxmlrpc/Dump.php187
-rw-r--r--modules/pearxmlrpc/rpc.php2150
-rw-r--r--modules/pearxmlrpc/server.php720
-rw-r--r--server/xmlrpc.server.php59
-rw-r--r--templates/show_add_catalog.inc.php8
7 files changed, 6 insertions, 3335 deletions
diff --git a/lib/init.php b/lib/init.php
index 918a44ac..b9f0220f 100644
--- a/lib/init.php
+++ b/lib/init.php
@@ -133,11 +133,9 @@ require_once $prefix . '/lib/ui.lib.php';
require_once $prefix . '/lib/gettext.php';
require_once $prefix . '/lib/batch.lib.php';
require_once $prefix . '/lib/themes.php';
-require_once $prefix . '/lib/xmlrpc.php';
require_once $prefix . '/lib/class/localplay.abstract.php';
require_once $prefix . '/lib/class/database_object.abstract.php';
require_once $prefix . '/lib/class/media.interface.php';
-require_once $prefix . '/modules/pearxmlrpc/rpc.php';
require_once $prefix . '/modules/getid3/getid3.php';
require_once $prefix . '/modules/nusoap/nusoap.php';
require_once $prefix . '/modules/phpmailer/class.phpmailer.php';
diff --git a/lib/xmlrpc.php b/lib/xmlrpc.php
deleted file mode 100644
index ffbf5bdf..00000000
--- a/lib/xmlrpc.php
+++ /dev/null
@@ -1,215 +0,0 @@
-<?php
-/*
-
- Copyright (c) Ampache.org
- All rights reserved.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License v2
- as published by the Free Software Foundation.
-
- 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-
-/**
- * XML-RPC Library
- * If you want an honest answer NFC. Copy and paste baby!
- * @package XMLRPC
- * @catagory Server
- * @author Karl Vollmer
- * @copyright Ampache.org 2001 - 2006
- */
-
-/**
- * remote_catalog_query
- * this is the initial contact and response to a xmlrpc request from another ampache server
- * this returns a list of catalog names
- * @package XMLRPC
- * @catagory Server
- */
-function remote_catalog_query($m) {
-
-
- $var = $m->getParam(0);
- $key = $var->scalarval();
-
- /* Verify the KEY */
- if (!remote_key_verify($key,$_SERVER['REMOTE_ADDR'],'5')) {
- return new xmlrpcresp(0,'503','Key/IP Mis-match Access Denied');
- }
-
- $result = array();
-
- // we only want to send the local entries
- $sql = "SELECT name,COUNT(song.id) FROM catalog " .
- "LEFT JOIN song ON catalog.id = song.catalog " .
- "WHERE catalog_type='local' GROUP BY catalog.id";
- $db_results = Dba::read($sql);
-
- while ( $i = Dba::fetch_row($db_result) ) {
- $result[] = $i;
- }
-
- set_time_limit(0);
- $encoded_array = php_xmlrpc_encode($result);
-
- debug_event('xmlrpc-server',"Encoded Catalogs: " . count($result),'3');
-
- return new xmlrpcresp($encoded_array);
-
-} // remote_server_query
-
-/**
- * remote_song_query
- * return all local songs and their information it pulls all local catalogs, then all enabled songs
- * then it strings togeather their information sepearted by :: and then base64 encodes it before sending it along
- * @package XMLRPC
- * @catagory Server
- * @todo Add catalog level access control
- * @todo fix for the smallint(1) change of song.status
- * @todo serialize the information rather than cheat with the ::
- */
-function remote_song_query($params) {
-
- $var = $params->getParam(0);
- $key = $var->scalarval();
-
- /* Verify the KEY */
- if (!remote_key_verify($key,$_SERVER['REMOTE_ADDR'],'5')) {
- return new xmlrpcresp(0,'503','Key/IP Mis-match Access Denied');
- }
-
- $start = $params->params['1']->me['int'];
- $step = $params->params['2']->me['int'];
-
-
- // Get me a list of all local catalogs
- $sql = "SELECT catalog.id FROM catalog WHERE catalog_type='local'";
- $db_results = Dba::read($sql);
-
- $results = array();
-
- $sql = "SELECT song.id FROM song WHERE song.enabled='1' AND (";
-
- // Get the catalogs and build the query!
- while ($r = Dba::fetch_object($db_results)) {
- $sql .= " song.catalog='$r->id' OR";
- } // build query
-
- $sql = rtrim($sql,"OR");
-
- $sql .= ") LIMIT $start,$step";
-
- $db_results = Dba::read($sql);
-
- // Recurse through the songs and build a results
- // array that is base64_encoded
- while ($r = Dba::fetch_object($db_results)) {
-
- $song = new Song($r->id);
- $song->fill_ext_info();
- $song->album = $song->get_album_name();
- $song->artist = $song->get_artist_name();
- $song->genre = $song->get_genre_name();
-
- // Format the output
- $output = '';
- $output = $song->artist . "::" . $song->album . "::" . $song->title . "::" . $song->comment .
- "::" . $song->year . "::" . $song->bitrate . "::" . $song->rate . "::" . $song->mode .
- "::" . $song->size . "::" . $song->time . "::" . $song->track . "::" . $song->genre . "::" . $r->id;
- $output = base64_encode($output);
- $results[] = $output;
-
- // Prevent Timeout
- set_time_limit(0);
-
- } // while songs
-
- set_time_limit(0);
- $encoded_array = php_xmlrpc_encode($results);
-
- debug_event('xmlrpc-server',"Encoded Song Query Results ($start,$step):" . count($results),'3');
-
- return new xmlrpcresp($encoded_array);
-
-} // remote_song_query
-
-/**
- * remote_session_verify
- * This checks the session on THIS server and returns a true false
- * The problem with this funcion is that we don't have the key from
- * the other server... this needs to be fixed potential security flaw
- * Other server still needs read xml-rpc permissions, but no key
- * @package XMLRPC
- * @catagory Server
- */
-function remote_session_verify($params) {
-
- /* We may need to do this correctly.. :S */
- $var = $params->getParam(0);
- $sid = $var->scalarval();
-
- if (session_exists($sid)) {
- $data = true;
- }
- else {
- $data = false;
- }
-
- $encoded_data = php_xmlrpc_encode($data);
-
- debug_event('xmlrpc-server',"Encoded Session Verify: $data Recieved: $sid",'3');
-
- return new xmlrpcresp($encoded_data);
-
-} // remote_session_verify
-
-/**
- * remote_server_denied
- * Access Denied Sucka!
- * @package XMLRPC
- * @catagory Server
- */
-function remote_server_denied() {
-
- $result = array();
-
- $result['access_denied'] = "Access Denied: Sorry, but " . $_SERVER['REMOTE_ADDR'] . " does not have access to " .
- "this server's catalog. Please make sure that you have been added to this server's access list.\n";
-
- $encoded_array = php_xmlrpc_encode($result);
-
- debug_event('xmlrpc-server',"Access Denied: " . $_SERVER['REMOTE_ADDR'],'3');
-
- return new xmlrpcresp($encoded_array);
-
-} // remote_server_denied
-
-/**
- * remote_key_verify
- * This does a ACCESS control check against
- * the incomming xml-rpc request. it takes the
- * passed key and makes sure the IP+KEY+LEVEL
- * matches in the local ACL
- */
-function remote_key_verify($key,$ip,$level) {
-
- $access = new Access();
- if ($access->check('xml-rpc',$ip,'',$level,$key)) {
- return true;
- }
-
- return false;
-
-} // remote_key_verify
-
-
-?>
diff --git a/modules/pearxmlrpc/Dump.php b/modules/pearxmlrpc/Dump.php
deleted file mode 100644
index 97c30e27..00000000
--- a/modules/pearxmlrpc/Dump.php
+++ /dev/null
@@ -1,187 +0,0 @@
-<?php
-
-/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
-
-/**
- * Function and class to dump XML_RPC_Value objects in a nice way
- *
- * Should be helpful as a normal var_dump(..) displays all internals which
- * doesn't really give you an overview due to too much information.
- *
- * @category Web Services
- * @package XML_RPC
- * @author Christian Weiske <cweiske@php.net>
- * @version CVS: $Id: Dump.php,v 1.7 2005/01/24 03:47:55 danielc Exp $
- * @link http://pear.php.net/package/XML_RPC
- */
-
-
-/**
- * Pull in the XML_RPC class
- */
-require_once 'XML/RPC.php';
-
-
-/**
- * Generates the dump of the XML_RPC_Value and echoes it
- *
- * @param object $value the XML_RPC_Value object to dump
- *
- * @return void
- */
-function XML_RPC_Dump($value)
-{
- $dumper = new XML_RPC_Dump();
- echo $dumper->generateDump($value);
-}
-
-
-/**
- * Class which generates a dump of a XML_RPC_Value object
- *
- * @category Web Services
- * @package XML_RPC
- * @author Christian Weiske <cweiske@php.net>
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Dump
-{
- /**
- * The indentation array cache
- * @var array
- */
- var $arIndent = array();
-
- /**
- * The spaces used for indenting the XML
- * @var string
- */
- var $strBaseIndent = ' ';
-
- /**
- * Returns the dump in XML format without printing it out
- *
- * @param object $value the XML_RPC_Value object to dump
- * @param int $nLevel the level of indentation
- *
- * @return string the dump
- */
- function generateDump($value, $nLevel = 0)
- {
- if (!is_object($value) && get_class($value) != 'xml_rpc_value') {
- require_once 'PEAR.php';
- PEAR::raiseError('Tried to dump non-XML_RPC_Value variable' . "\r\n",
- 0, PEAR_ERROR_PRINT);
- if (is_object($value)) {
- $strType = get_class($value);
- } else {
- $strType = gettype($value);
- }
- return $this->getIndent($nLevel) . 'NOT A XML_RPC_Value: '
- . $strType . "\r\n";
- }
-
- switch ($value->kindOf()) {
- case 'struct':
- $ret = $this->genStruct($value, $nLevel);
- break;
- case 'array':
- $ret = $this->genArray($value, $nLevel);
- break;
- case 'scalar':
- $ret = $this->genScalar($value->scalarval(), $nLevel);
- break;
- default:
- require_once 'PEAR.php';
- PEAR::raiseError('Illegal type "' . $value->kindOf()
- . '" in XML_RPC_Value' . "\r\n", 0,
- PEAR_ERROR_PRINT);
- }
-
- return $ret;
- }
-
- /**
- * Returns the scalar value dump
- *
- * @param object $value the scalar XML_RPC_Value object to dump
- * @param int $nLevel the level of indentation
- *
- * @return string Dumped version of the scalar value
- */
- function genScalar($value, $nLevel)
- {
- if (gettype($value) == 'object') {
- $strClass = ' ' . get_class($value);
- } else {
- $strClass = '';
- }
- return $this->getIndent($nLevel) . gettype($value) . $strClass
- . ' ' . $value . "\r\n";
- }
-
- /**
- * Returns the dump of a struct
- *
- * @param object $value the struct XML_RPC_Value object to dump
- * @param int $nLevel the level of indentation
- *
- * @return string Dumped version of the scalar value
- */
- function genStruct($value, $nLevel)
- {
- $value->structreset();
- $strOutput = $this->getIndent($nLevel) . 'struct' . "\r\n";
- while (list($key, $keyval) = $value->structeach()) {
- $strOutput .= $this->getIndent($nLevel + 1) . $key . "\r\n";
- $strOutput .= $this->generateDump($keyval, $nLevel + 2);
- }
- return $strOutput;
- }
-
- /**
- * Returns the dump of an array
- *
- * @param object $value the array XML_RPC_Value object to dump
- * @param int $nLevel the level of indentation
- *
- * @return string Dumped version of the scalar value
- */
- function genArray($value, $nLevel)
- {
- $nSize = $value->arraysize();
- $strOutput = $this->getIndent($nLevel) . 'array' . "\r\n";
- for($nA = 0; $nA < $nSize; $nA++) {
- $strOutput .= $this->getIndent($nLevel + 1) . $nA . "\r\n";
- $strOutput .= $this->generateDump($value->arraymem($nA),
- $nLevel + 2);
- }
- return $strOutput;
- }
-
- /**
- * Returns the indent for a specific level and caches it for faster use
- *
- * @param int $nLevel the level
- *
- * @return string the indented string
- */
- function getIndent($nLevel)
- {
- if (!isset($this->arIndent[$nLevel])) {
- $this->arIndent[$nLevel] = str_repeat($this->strBaseIndent, $nLevel);
- }
- return $this->arIndent[$nLevel];
- }
-}
-
-/*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * c-hanging-comment-ender-p: nil
- * End:
- */
-
-?>
diff --git a/modules/pearxmlrpc/rpc.php b/modules/pearxmlrpc/rpc.php
deleted file mode 100644
index d484b025..00000000
--- a/modules/pearxmlrpc/rpc.php
+++ /dev/null
@@ -1,2150 +0,0 @@
-<?php
-
-/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
-
-/**
- * PHP implementation of the XML-RPC protocol
- *
- * This is a PEAR-ified version of Useful inc's XML-RPC for PHP.
- * It has support for HTTP transport, proxies and authentication.
- *
- * PHP versions 4 and 5
- *
- * LICENSE: License is granted to use or modify this software
- * ("XML-RPC for PHP") for commercial or non-commercial use provided the
- * copyright of the author is preserved in any distributed or derivative work.
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESSED 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 AUTHOR 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.
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version CVS: $Id: RPC.php,v 1.101 2006/10/28 16:42:34 danielc Exp $
- * @link http://pear.php.net/package/XML_RPC
- */
-
-
-if (!function_exists('xml_parser_create')) {
- include_once 'PEAR.php';
- PEAR::loadExtension('xml');
-}
-
-/**#@+
- * Error constants
- */
-/**
- * Parameter values don't match parameter types
- */
-define('XML_RPC_ERROR_INVALID_TYPE', 101);
-/**
- * Parameter declared to be numeric but the values are not
- */
-define('XML_RPC_ERROR_NON_NUMERIC_FOUND', 102);
-/**
- * Communication error
- */
-define('XML_RPC_ERROR_CONNECTION_FAILED', 103);
-/**
- * The array or struct has already been started
- */
-define('XML_RPC_ERROR_ALREADY_INITIALIZED', 104);
-/**
- * Incorrect parameters submitted
- */
-define('XML_RPC_ERROR_INCORRECT_PARAMS', 105);
-/**
- * Programming error by developer
- */
-define('XML_RPC_ERROR_PROGRAMMING', 106);
-/**#@-*/
-
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_I4']
- */
-$GLOBALS['XML_RPC_I4'] = 'i4';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Int']
- */
-$GLOBALS['XML_RPC_Int'] = 'int';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Boolean']
- */
-$GLOBALS['XML_RPC_Boolean'] = 'boolean';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Double']
- */
-$GLOBALS['XML_RPC_Double'] = 'double';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_String']
- */
-$GLOBALS['XML_RPC_String'] = 'string';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_DateTime']
- */
-$GLOBALS['XML_RPC_DateTime'] = 'dateTime.iso8601';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Base64']
- */
-$GLOBALS['XML_RPC_Base64'] = 'base64';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Array']
- */
-$GLOBALS['XML_RPC_Array'] = 'array';
-
-/**
- * Data types
- * @global string $GLOBALS['XML_RPC_Struct']
- */
-$GLOBALS['XML_RPC_Struct'] = 'struct';
-
-
-/**
- * Data type meta-types
- * @global array $GLOBALS['XML_RPC_Types']
- */
-$GLOBALS['XML_RPC_Types'] = array(
- $GLOBALS['XML_RPC_I4'] => 1,
- $GLOBALS['XML_RPC_Int'] => 1,
- $GLOBALS['XML_RPC_Boolean'] => 1,
- $GLOBALS['XML_RPC_String'] => 1,
- $GLOBALS['XML_RPC_Double'] => 1,
- $GLOBALS['XML_RPC_DateTime'] => 1,
- $GLOBALS['XML_RPC_Base64'] => 1,
- $GLOBALS['XML_RPC_Array'] => 2,
- $GLOBALS['XML_RPC_Struct'] => 3,
-);
-
-
-/**
- * Error message numbers
- * @global array $GLOBALS['XML_RPC_err']
- */
-$GLOBALS['XML_RPC_err'] = array(
- 'unknown_method' => 1,
- 'invalid_return' => 2,
- 'incorrect_params' => 3,
- 'introspect_unknown' => 4,
- 'http_error' => 5,
- 'not_response_object' => 6,
- 'invalid_request' => 7,
-);
-
-/**
- * Error message strings
- * @global array $GLOBALS['XML_RPC_str']
- */
-$GLOBALS['XML_RPC_str'] = array(
- 'unknown_method' => 'Unknown method',
- 'invalid_return' => 'Invalid return payload: enable debugging to examine incoming payload',
- 'incorrect_params' => 'Incorrect parameters passed to method',
- 'introspect_unknown' => 'Can\'t introspect: method unknown',
- 'http_error' => 'Didn\'t receive 200 OK from remote server.',
- 'not_response_object' => 'The requested method didn\'t return an XML_RPC_Response object.',
- 'invalid_request' => 'Invalid request payload',
-);
-
-
-/**
- * Default XML encoding (ISO-8859-1, UTF-8 or US-ASCII)
- * @global string $GLOBALS['XML_RPC_defencoding']
- */
-$GLOBALS['XML_RPC_defencoding'] = 'UTF-8';
-
-/**
- * User error codes start at 800
- * @global int $GLOBALS['XML_RPC_erruser']
- */
-$GLOBALS['XML_RPC_erruser'] = 800;
-
-/**
- * XML parse error codes start at 100
- * @global int $GLOBALS['XML_RPC_errxml']
- */
-$GLOBALS['XML_RPC_errxml'] = 100;
-
-
-/**
- * Compose backslashes for escaping regexp
- * @global string $GLOBALS['XML_RPC_backslash']
- */
-$GLOBALS['XML_RPC_backslash'] = chr(92) . chr(92);
-
-
-/**#@+
- * Which functions to use, depending on whether mbstring is enabled or not.
- */
-if (function_exists('mb_ereg')) {
- /** @global string $GLOBALS['XML_RPC_func_ereg'] */
- $GLOBALS['XML_RPC_func_ereg'] = 'mb_eregi';
- /** @global string $GLOBALS['XML_RPC_func_ereg_replace'] */
- $GLOBALS['XML_RPC_func_ereg_replace'] = 'mb_eregi_replace';
- /** @global string $GLOBALS['XML_RPC_func_split'] */
- $GLOBALS['XML_RPC_func_split'] = 'mb_split';
-} else {
- /** @ignore */
- $GLOBALS['XML_RPC_func_ereg'] = 'preg_match';
- /** @ignore */
- $GLOBALS['XML_RPC_func_ereg_replace'] = 'preg_replace';
- /** @ignore */
- $GLOBALS['XML_RPC_func_split'] = 'preg_split';
-}
-/**#@-*/
-
-
-/**
- * Should we automatically base64 encode strings that contain characters
- * which can cause PHP's SAX-based XML parser to break?
- * @global boolean $GLOBALS['XML_RPC_auto_base64']
- */
-$GLOBALS['XML_RPC_auto_base64'] = false;
-
-
-/**
- * Valid parents of XML elements
- * @global array $GLOBALS['XML_RPC_valid_parents']
- */
-$GLOBALS['XML_RPC_valid_parents'] = array(
- 'BOOLEAN' => array('VALUE'),
- 'I4' => array('VALUE'),
- 'INT' => array('VALUE'),
- 'STRING' => array('VALUE'),
- 'DOUBLE' => array('VALUE'),
- 'DATETIME.ISO8601' => array('VALUE'),
- 'BASE64' => array('VALUE'),
- 'ARRAY' => array('VALUE'),
- 'STRUCT' => array('VALUE'),
- 'PARAM' => array('PARAMS'),
- 'METHODNAME' => array('METHODCALL'),
- 'PARAMS' => array('METHODCALL', 'METHODRESPONSE'),
- 'MEMBER' => array('STRUCT'),
- 'NAME' => array('MEMBER'),
- 'DATA' => array('ARRAY'),
- 'FAULT' => array('METHODRESPONSE'),
- 'VALUE' => array('MEMBER', 'DATA', 'PARAM', 'FAULT'),
-);
-
-
-/**
- * Stores state during parsing
- *
- * quick explanation of components:
- * + ac = accumulates values
- * + qt = decides if quotes are needed for evaluation
- * + cm = denotes struct or array (comma needed)
- * + isf = indicates a fault
- * + lv = indicates "looking for a value": implements the logic
- * to allow values with no types to be strings
- * + params = stores parameters in method calls
- * + method = stores method name
- *
- * @global array $GLOBALS['XML_RPC_xh']
- */
-$GLOBALS['XML_RPC_xh'] = array();
-
-
-/**
- * Start element handler for the XML parser
- *
- * @return void
- */
-function XML_RPC_se($parser_resource, $name, $attrs)
-{
- global $XML_RPC_xh, $XML_RPC_valid_parents;
-
- $parser = (int) $parser_resource;
-
- // if invalid xmlrpc already detected, skip all processing
- if ($XML_RPC_xh[$parser]['isf'] >= 2) {
- return;
- }
-
- // check for correct element nesting
- // top level element can only be of 2 types
- if (count($XML_RPC_xh[$parser]['stack']) == 0) {
- if ($name != 'METHODRESPONSE' && $name != 'METHODCALL') {
- $XML_RPC_xh[$parser]['isf'] = 2;
- $XML_RPC_xh[$parser]['isf_reason'] = 'missing top level xmlrpc element';
- return;
- }
- } else {
- // not top level element: see if parent is OK
- if (!in_array($XML_RPC_xh[$parser]['stack'][0], $XML_RPC_valid_parents[$name])) {
- if (function_exists('mb_ereg')) {
- $name = $GLOBALS['XML_RPC_func_ereg_replace']('[^a-zA-Z0-9._-]', '', $name);
- } else {
- $name = $GLOBALS['XML_RPC_func_ereg_replace']('/[^a-zA-Z0-9._-]/', '', $name);
- }
- $XML_RPC_xh[$parser]['isf'] = 2;
- $XML_RPC_xh[$parser]['isf_reason'] = "xmlrpc element $name cannot be child of {$XML_RPC_xh[$parser]['stack'][0]}";
- return;
- }
- }
-
- switch ($name) {
- case 'STRUCT':
- $XML_RPC_xh[$parser]['cm']++;
-
- // turn quoting off
- $XML_RPC_xh[$parser]['qt'] = 0;
-
- $cur_val = array();
- $cur_val['value'] = array();
- $cur_val['members'] = 1;
- array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
- break;
-
- case 'ARRAY':
- $XML_RPC_xh[$parser]['cm']++;
-
- // turn quoting off
- $XML_RPC_xh[$parser]['qt'] = 0;
-
- $cur_val = array();
- $cur_val['value'] = array();
- $cur_val['members'] = 0;
- array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
- break;
-
- case 'NAME':
- $XML_RPC_xh[$parser]['ac'] = '';
- break;
-
- case 'FAULT':
- $XML_RPC_xh[$parser]['isf'] = 1;
- break;
-
- case 'PARAM':
- $XML_RPC_xh[$parser]['valuestack'] = array();
- break;
-
- case 'VALUE':
- $XML_RPC_xh[$parser]['lv'] = 1;
- $XML_RPC_xh[$parser]['vt'] = $GLOBALS['XML_RPC_String'];
- $XML_RPC_xh[$parser]['ac'] = '';
- $XML_RPC_xh[$parser]['qt'] = 0;
- // look for a value: if this is still 1 by the
- // time we reach the first data segment then the type is string
- // by implication and we need to add in a quote
- break;
-
- case 'I4':
- case 'INT':
- case 'STRING':
- case 'BOOLEAN':
- case 'DOUBLE':
- case 'DATETIME.ISO8601':
- case 'BASE64':
- $XML_RPC_xh[$parser]['ac'] = ''; // reset the accumulator
-
- if ($name == 'DATETIME.ISO8601' || $name == 'STRING') {
- $XML_RPC_xh[$parser]['qt'] = 1;
-
- if ($name == 'DATETIME.ISO8601') {
- $XML_RPC_xh[$parser]['vt'] = $GLOBALS['XML_RPC_DateTime'];
- }
-
- } elseif ($name == 'BASE64') {
- $XML_RPC_xh[$parser]['qt'] = 2;
- } else {
- // No quoting is required here -- but
- // at the end of the element we must check
- // for data format errors.
- $XML_RPC_xh[$parser]['qt'] = 0;
- }
- break;
-
- case 'MEMBER':
- $XML_RPC_xh[$parser]['ac'] = '';
- break;
-
- case 'DATA':
- case 'METHODCALL':
- case 'METHODNAME':
- case 'METHODRESPONSE':
- case 'PARAMS':
- // valid elements that add little to processing
- break;
- }
-
-
- // Save current element to stack
- array_unshift($XML_RPC_xh[$parser]['stack'], $name);
-
- if ($name != 'VALUE') {
- $XML_RPC_xh[$parser]['lv'] = 0;
- }
-}
-
-/**
- * End element handler for the XML parser
- *
- * @return void
- */
-function XML_RPC_ee($parser_resource, $name)
-{
- global $XML_RPC_xh;
-
- $parser = (int) $parser_resource;
-
- if ($XML_RPC_xh[$parser]['isf'] >= 2) {
- return;
- }
-
- // push this element from stack
- // NB: if XML validates, correct opening/closing is guaranteed and
- // we do not have to check for $name == $curr_elem.
- // we also checked for proper nesting at start of elements...
- $curr_elem = array_shift($XML_RPC_xh[$parser]['stack']);
-
- switch ($name) {
- case 'STRUCT':
- case 'ARRAY':
- $cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
- $XML_RPC_xh[$parser]['value'] = $cur_val['value'];
- $XML_RPC_xh[$parser]['vt'] = strtolower($name);
- $XML_RPC_xh[$parser]['cm']--;
- break;
-
- case 'NAME':
- $XML_RPC_xh[$parser]['valuestack'][0]['name'] = $XML_RPC_xh[$parser]['ac'];
- break;
-
- case 'BOOLEAN':
- // special case here: we translate boolean 1 or 0 into PHP
- // constants true or false
- if ($XML_RPC_xh[$parser]['ac'] == '1') {
- $XML_RPC_xh[$parser]['ac'] = 'true';
- } else {
- $XML_RPC_xh[$parser]['ac'] = 'false';
- }
-
- $XML_RPC_xh[$parser]['vt'] = strtolower($name);
- // Drop through intentionally.
-
- case 'I4':
- case 'INT':
- case 'STRING':
- case 'DOUBLE':
- case 'DATETIME.ISO8601':
- case 'BASE64':
- if ($XML_RPC_xh[$parser]['qt'] == 1) {
- // we use double quotes rather than single so backslashification works OK
- $XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
- } elseif ($XML_RPC_xh[$parser]['qt'] == 2) {
- $XML_RPC_xh[$parser]['value'] = base64_decode($XML_RPC_xh[$parser]['ac']);
- } elseif ($name == 'BOOLEAN') {
- $XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
- } else {
- // we have an I4, INT or a DOUBLE
- // we must check that only 0123456789-.<space> are characters here
- if (function_exists('mb_ereg')) {
- if (!$GLOBALS['XML_RPC_func_ereg']("^[+-]?[0123456789 \t\.]+$", $XML_RPC_xh[$parser]['ac'])) {
- XML_RPC_Base::raiseError('Non-numeric value received in INT or DOUBLE',
- XML_RPC_ERROR_NON_NUMERIC_FOUND);
- $XML_RPC_xh[$parser]['value'] = XML_RPC_ERROR_NON_NUMERIC_FOUND;
- } else {
- // it's ok, add it on
- $XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
- }
- } else {
- if (!$GLOBALS['XML_RPC_func_ereg']("/^[+-]?[0123456789 \t\.]+$/", $XML_RPC_xh[$parser]['ac'])) {
- XML_RPC_Base::raiseError('Non-numeric value received in INT or DOUBLE',
- XML_RPC_ERROR_NON_NUMERIC_FOUND);
- $XML_RPC_xh[$parser]['value'] = XML_RPC_ERROR_NON_NUMERIC_FOUND;
- } else {
- // it's ok, add it on
- $XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
- }
- }
- }
-
- $XML_RPC_xh[$parser]['ac'] = '';
- $XML_RPC_xh[$parser]['qt'] = 0;
- $XML_RPC_xh[$parser]['lv'] = 3; // indicate we've found a value
- break;
-
- case 'VALUE':
- if ($XML_RPC_xh[$parser]['vt'] == $GLOBALS['XML_RPC_String']) {
- if (strlen($XML_RPC_xh[$parser]['ac']) > 0) {
- $XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
- } elseif ($XML_RPC_xh[$parser]['lv'] == 1) {
- // The <value> element was empty.
- $XML_RPC_xh[$parser]['value'] = '';
- }
- }
-
- $temp = new XML_RPC_Value($XML_RPC_xh[$parser]['value'], $XML_RPC_xh[$parser]['vt']);
-
- $cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
- if (is_array($cur_val)) {
- if ($cur_val['members']==0) {
- $cur_val['value'][] = $temp;
- } else {
- $XML_RPC_xh[$parser]['value'] = $temp;
- }
- array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
- } else {
- $XML_RPC_xh[$parser]['value'] = $temp;
- }
- break;
-
- case 'MEMBER':
- $XML_RPC_xh[$parser]['ac'] = '';
- $XML_RPC_xh[$parser]['qt'] = 0;
-
- $cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
- if (is_array($cur_val)) {
- if ($cur_val['members']==1) {
- $cur_val['value'][$cur_val['name']] = $XML_RPC_xh[$parser]['value'];
- }
- array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
- }
- break;
-
- case 'DATA':
- $XML_RPC_xh[$parser]['ac'] = '';
- $XML_RPC_xh[$parser]['qt'] = 0;
- break;
-
- case 'PARAM':
- $XML_RPC_xh[$parser]['params'][] = $XML_RPC_xh[$parser]['value'];
- break;
-
- case 'METHODNAME':
- case 'RPCMETHODNAME':
- if (function_exists('mb_ereg')) {
- $XML_RPC_xh[$parser]['method'] = $GLOBALS['XML_RPC_func_ereg_replace']("^[\n\r\t ]+", '',
- $XML_RPC_xh[$parser]['ac']);
- } else {
- $XML_RPC_xh[$parser]['method'] = $GLOBALS['XML_RPC_func_ereg_replace']("/^[\n\r\t ]+/", '',
- $XML_RPC_xh[$parser]['ac']);
- }
- break;
- }
-
- // if it's a valid type name, set the type
- if (isset($GLOBALS['XML_RPC_Types'][strtolower($name)])) {
- $XML_RPC_xh[$parser]['vt'] = strtolower($name);
- }
-}
-
-/**
- * Character data handler for the XML parser
- *
- * @return void
- */
-function XML_RPC_cd($parser_resource, $data)
-{
- global $XML_RPC_xh, $XML_RPC_backslash;
-
- $parser = (int) $parser_resource;
-
- if ($XML_RPC_xh[$parser]['lv'] != 3) {
- // "lookforvalue==3" means that we've found an entire value
- // and should discard any further character data
-
- if ($XML_RPC_xh[$parser]['lv'] == 1) {
- // if we've found text and we're just in a <value> then
- // turn quoting on, as this will be a string
- $XML_RPC_xh[$parser]['qt'] = 1;
- // and say we've found a value
- $XML_RPC_xh[$parser]['lv'] = 2;
- }
-
- // replace characters that eval would
- // do special things with
- if (!isset($XML_RPC_xh[$parser]['ac'])) {
- $XML_RPC_xh[$parser]['ac'] = '';
- }
- $XML_RPC_xh[$parser]['ac'] .= $data;
- }
-}
-
-/**
- * The common methods and properties for all of the XML_RPC classes
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Base {
-
- /**
- * PEAR Error handling
- *
- * @return object PEAR_Error object
- */
- function raiseError($msg, $code)
- {
- debug_event(rpc.php::raise_Error, 'XML_RPC: ' . $msg . ' ' . $code, '1');
- }
-
- /**
- * Tell whether something is a PEAR_Error object
- *
- * @param mixed $value the item to check
- *
- * @return bool whether $value is a PEAR_Error object or not
- *
- * @access public
- */
- function isError($value)
- {
- return is_a($value, 'PEAR_Error');
- }
-}
-
-/**
- * The methods and properties for submitting XML RPC requests
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Client extends XML_RPC_Base {
-
- /**
- * The path and name of the RPC server script you want the request to go to
- * @var string
- */
- var $path = '';
-
- /**
- * The name of the remote server to connect to
- * @var string
- */
- var $server = '';
-
- /**
- * The protocol to use in contacting the remote server
- * @var string
- */
- var $protocol = 'http://';
-
- /**
- * The port for connecting to the remote server
- *
- * The default is 80 for http:// connections
- * and 443 for https:// and ssl:// connections.
- *
- * @var integer
- */
- var $port = 80;
-
- /**
- * A user name for accessing the RPC server
- * @var string
- * @see XML_RPC_Client::setCredentials()
- */
- var $username = '';
-
- /**
- * A password for accessing the RPC server
- * @var string
- * @see XML_RPC_Client::setCredentials()
- */
- var $password = '';
-
- /**
- * The name of the proxy server to use, if any
- * @var string
- */
- var $proxy = '';
-
- /**
- * The protocol to use in contacting the proxy server, if any
- * @var string
- */
- var $proxy_protocol = 'http://';
-
- /**
- * The port for connecting to the proxy server
- *
- * The default is 8080 for http:// connections
- * and 443 for https:// and ssl:// connections.
- *
- * @var integer
- */
- var $proxy_port = 8080;
-
- /**
- * A user name for accessing the proxy server
- * @var string
- */
- var $proxy_user = '';
-
- /**
- * A password for accessing the proxy server
- * @var string
- */
- var $proxy_pass = '';
-
- /**
- * The error number, if any
- * @var integer
- */
- var $errno = 0;
-
- /**
- * The error message, if any
- * @var string
- */
- var $errstr = '';
-
- /**
- * The current debug mode (1 = on, 0 = off)
- * @var integer
- */
- var $debug = 0;
-
- /**
- * The HTTP headers for the current request.
- * @var string
- */
- var $headers = '';
-
-
- /**
- * Sets the object's properties
- *
- * @param string $path the path and name of the RPC server script
- * you want the request to go to
- * @param string $server the URL of the remote server to connect to.
- * If this parameter doesn't specify a
- * protocol and $port is 443, ssl:// is
- * assumed.
- * @param integer $port a port for connecting to the remote server.
- * Defaults to 80 for http:// connections and
- * 443 for https:// and ssl:// connections.
- * @param string $proxy the URL of the proxy server to use, if any.
- * If this parameter doesn't specify a
- * protocol and $port is 443, ssl:// is
- * assumed.
- * @param integer $proxy_port a port for connecting to the remote server.
- * Defaults to 8080 for http:// connections and
- * 443 for https:// and ssl:// connections.
- * @param string $proxy_user a user name for accessing the proxy server
- * @param string $proxy_pass a password for accessing the proxy server
- *
- * @return void
- */
- function XML_RPC_Client($path, $server, $port = 0,
- $proxy = '', $proxy_port = 0,
- $proxy_user = '', $proxy_pass = '')
- {
- $this->path = $path;
- $this->proxy_user = $proxy_user;
- $this->proxy_pass = $proxy_pass;
-
- if (function_exists('mb_ereg')) {
- $GLOBALS['XML_RPC_func_ereg']('^(http://|https://|ssl://)?(.*)$', $server, $match);
- } else {
- $GLOBALS['XML_RPC_func_ereg']('/^(http:\/\/|https:\/\/|ssl:\/\/)?(.*)$/', $server, $match);
- }
- if ($match[1] == '') {
- if ($port == 443) {
- $this->server = $match[2];
- $this->protocol = 'ssl://';
- $this->port = 443;
- } else {
- $this->server = $match[2];
- if ($port) {
- $this->port = $port;
- }
- }
- } elseif ($match[1] == 'http://') {
- $this->server = $match[2];
- if ($port) {
- $this->port = $port;
- }
- } else {
- $this->server = $match[2];
- $this->protocol = 'ssl://';
- if ($port) {
- $this->port = $port;
- } else {
- $this->port = 443;
- }
- }
-
- if ($proxy) {
- if (function_exists('mb_ereg')) {
- $GLOBALS['XML_RPC_func_ereg']('^(http://|https://|ssl://)?(.*)$', $proxy, $match);
- } else {
- $GLOBALS['XML_RPC_func_ereg']('/^(http:\/\/|https:\/\/|ssl:\/\/)?(.*)$/', $proxy, $match);
- }
- if ($match[1] == '') {
- if ($proxy_port == 443) {
- $this->proxy = $match[2];
- $this->proxy_protocol = 'ssl://';
- $this->proxy_port = 443;
- } else {
- $this->proxy = $match[2];
- if ($proxy_port) {
- $this->proxy_port = $proxy_port;
- }
- }
- } elseif ($match[1] == 'http://') {
- $this->proxy = $match[2];
- if ($proxy_port) {
- $this->proxy_port = $proxy_port;
- }
- } else {
- $this->proxy = $match[2];
- $this->proxy_protocol = 'ssl://';
- if ($proxy_port) {
- $this->proxy_port = $proxy_port;
- } else {
- $this->proxy_port = 443;
- }
- }
- }
- }
-
- /**
- * Change the current debug mode
- *
- * @param int $in where 1 = on, 0 = off
- *
- * @return void
- */
- function setDebug($in)
- {
- if ($in) {
- $this->debug = 1;
- } else {
- $this->debug = 0;
- }
- }
-
- /**
- * Sets whether strings that contain characters which may cause PHP's
- * SAX-based XML parser to break should be automatically base64 encoded
- *
- * This is is a workaround for systems that don't have PHP's mbstring
- * extension available.
- *
- * @param int $in where 1 = on, 0 = off
- *
- * @return void
- */
- function setAutoBase64($in)
- {
- if ($in) {
- $GLOBALS['XML_RPC_auto_base64'] = true;
- } else {
- $GLOBALS['XML_RPC_auto_base64'] = false;
- }
- }
-
- /**
- * Set username and password properties for connecting to the RPC server
- *
- * @param string $u the user name
- * @param string $p the password
- *
- * @return void
- *
- * @see XML_RPC_Client::$username, XML_RPC_Client::$password
- */
- function setCredentials($u, $p)
- {
- $this->username = $u;
- $this->password = $p;
- }
-
- /**
- * Transmit the RPC request via HTTP 1.0 protocol
- *
- * @param object $msg the XML_RPC_Message object
- * @param int $timeout how many seconds to wait for the request
- *
- * @return object an XML_RPC_Response object. 0 is returned if any
- * problems happen.
- *
- * @see XML_RPC_Message, XML_RPC_Client::XML_RPC_Client(),
- * XML_RPC_Client::setCredentials()
- */
- function send($msg, $timeout = 0)
- {
- //if (!is_a($msg, 'XML_RPC_Message')) {
- if (!($msg instanceof XML_RPC_Message)) {
- $this->errstr = 'send()\'s $msg parameter must be an'
- . ' XML_RPC_Message object.';
- $this->raiseError($this->errstr, XML_RPC_ERROR_PROGRAMMING);
- return 0;
- }
- $msg->debug = $this->debug;
- return $this->sendPayloadHTTP10($msg, $this->server, $this->port,
- $timeout, $this->username,
- $this->password);
- }
-
- /**
- * Transmit the RPC request via HTTP 1.0 protocol
- *
- * Requests should be sent using XML_RPC_Client send() rather than
- * calling this method directly.
- *
- * @param object $msg the XML_RPC_Message object
- * @param string $server the server to send the request to
- * @param int $port the server port send the request to
- * @param int $timeout how many seconds to wait for the request
- * before giving up
- * @param string $username a user name for accessing the RPC server
- * @param string $password a password for accessing the RPC server
- *
- * @return object an XML_RPC_Response object. 0 is returned if any
- * problems happen.
- *
- * @access protected
- * @see XML_RPC_Client::send()
- */
- function sendPayloadHTTP10($msg, $server, $port, $timeout = 0,
- $username = '', $password = '')
- {
- /*
- * If we're using a proxy open a socket to the proxy server
- * instead to the xml-rpc server
- */
- debug_event("rpc.php::sendPayloadHTTP10", "begin", '4');
- if ($this->proxy) {
- if ($this->proxy_protocol == 'http://') {
- $protocol = '';
- } else {
- $protocol = $this->proxy_protocol;
- }
- if ($timeout > 0) {
- $fp = @fsockopen($protocol . $this->proxy, $this->proxy_port,
- $this->errno, $this->errstr, $timeout);
- } else {
- $fp = @fsockopen($protocol . $this->proxy, $this->proxy_port,
- $this->errno, $this->errstr);
- }
- } else {
- if ($this->protocol == 'http://') {
- $protocol = '';
- } else {
- $protocol = $this->protocol;
- }
- if ($timeout > 0) {
- $fp = @fsockopen($protocol . $server, $port,
- $this->errno, $this->errstr, $timeout);
- } else {
- $fp = @fsockopen($protocol . $server, $port,
- $this->errno, $this->errstr);
- }
- }
-
- /*
- * Just raising the error without returning it is strange,
- * but keep it here for backwards compatibility.
- */
- if (!$fp && $this->proxy) {
- $this->raiseError('Connection to proxy server '
- . $this->proxy . ':' . $this->proxy_port
- . ' failed. ' . $this->errstr,
- XML_RPC_ERROR_CONNECTION_FAILED);
- return 0;
- } elseif (!$fp) {
- $this->raiseError('Connection to RPC server '
- . $server . ':' . $port
- . ' failed. ' . $this->errstr,
- XML_RPC_ERROR_CONNECTION_FAILED);
-
- return 0;
- }
-
- if ($timeout) {
- /*
- * Using socket_set_timeout() because stream_set_timeout()
- * was introduced in 4.3.0, but we need to support 4.2.0.
- */
- socket_set_timeout($fp, $timeout);
- }
-
- // Pre-emptive BC hacks for fools calling sendPayloadHTTP10() directly
- if ($username != $this->username) {
- $this->setCredentials($username, $password);
- }
-
- // Only create the payload if it was not created previously
- if (empty($msg->payload)) {
- $msg->createPayload();
- }
- $this->createHeaders($msg);
-
- $op = $this->headers . "\r\n\r\n";
- $op .= $msg->payload;
-
- if (!fputs($fp, $op, strlen($op))) {
- debug_event("rpc.php::sendPayloadHTTP10", "Write error", '4');
- $this->errstr = 'Write error';
- return 0;
- }
- $resp = $msg->parseResponseFile($fp);
-
- $meta = socket_get_status($fp);
- if ($meta['timed_out']) {
- fclose($fp);
- $this->errstr = 'RPC server did not send response before timeout.';
- $this->raiseError($this->errstr, XML_RPC_ERROR_CONNECTION_FAILED);
- return 0;
- }
-
- debug_event("rpc.php::sendPayloadHTTP10", "end", '4');
- fclose($fp);
- return $resp;
- }
-
- /**
- * Determines the HTTP headers and puts it in the $headers property
- *
- * @param object $msg the XML_RPC_Message object
- *
- * @return boolean TRUE if okay, FALSE if the message payload isn't set.
- *
- * @access protected
- */
- function createHeaders($msg) {
- debug_event("rpc.php::createHeaders", "begin", '4');
-
- if (empty($msg->payload)) {
- return false;
- }
- if ($this->proxy) {
- $this->headers = 'POST ' . $this->protocol . $this->server;
- if ($this->proxy_port) {
- $this->headers .= ':' . $this->port;
- }
- } else {
- $this->headers = 'POST ';
- }
- $this->headers .= $this->path. " HTTP/1.0\r\n";
-
- $this->headers .= "User-Agent: PEAR XML_RPC\r\n";
- $this->headers .= 'Host: ' . $this->server . "\r\n";
-
- if ($this->proxy && $this->proxy_user) {
- $this->headers .= 'Proxy-Authorization: Basic '
- . base64_encode("$this->proxy_user:$this->proxy_pass")
- . "\r\n";
- }
-
- // thanks to Grant Rauscher <grant7@firstworld.net> for this
- if ($this->username) {
- $this->headers .= 'Authorization: Basic '
- . base64_encode("$this->username:$this->password")
- . "\r\n";
- }
-
- $this->headers .= "Content-Type: text/xml\r\n";
- $this->headers .= 'Content-Length: ' . strlen($msg->payload);
-
- debug_event("rpc.php::createHeaders", "end", '4');
- return true;
- }
-}
-
-/**
- * The methods and properties for interpreting responses to XML RPC requests
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Response extends XML_RPC_Base
-{
- var $xv;
- var $fn;
- var $fs;
- var $hdrs;
-
- /**
- * @return void
- */
- function XML_RPC_Response($val, $fcode = 0, $fstr = '')
- {
- if ($fcode != 0) {
- $this->fn = $fcode;
- $this->fs = htmlspecialchars($fstr);
- } else {
- $this->xv = $val;
- }
- }
-
- /**
- * @return int the error code
- */
- function faultCode()
- {
- if (isset($this->fn)) {
- return $this->fn;
- } else {
- return 0;
- }
- }
-
- /**
- * @return string the error string
- */
- function faultString()
- {
- return $this->fs;
- }
-
- /**
- * @return mixed the value
- */
- function value()
- {
- return $this->xv;
- }
-
- /**
- * @return string the error message in XML format
- */
- function serialize()
- {
- $rs = "<methodResponse>\n";
- if ($this->fn) {
- $rs .= "<fault>
- <value>
- <struct>
- <member>
- <name>faultCode</name>
- <value><int>" . $this->fn . "</int></value>
- </member>
- <member>
- <name>faultString</name>
- <value><string>" . $this->fs . "</string></value>
- </member>
- </struct>
- </value>
-</fault>";
- } else {
- $rs .= "<params>\n<param>\n" . $this->xv->serialize() .
- "</param>\n</params>";
- }
- $rs .= "\n</methodResponse>";
- return $rs;
- }
-}
-
-/**
- * The methods and properties for composing XML RPC messages
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Message extends XML_RPC_Base
-{
- /**
- * Should the payload's content be passed through mb_convert_encoding()?
- *
- * @see XML_RPC_Message::setConvertPayloadEncoding()
- * @since Property available since Release 1.5.1
- * @var boolean
- */
- var $convert_payload_encoding = false;
-
- /**
- * The current debug mode (1 = on, 0 = off)
- * @var integer
- */
- var $debug = 0;
-
- /**
- * The encoding to be used for outgoing messages
- *
- * Defaults to the value of <var>$GLOBALS['XML_RPC_defencoding']</var>
- *
- * @var string
- * @see XML_RPC_Message::setSendEncoding(),
- * $GLOBALS['XML_RPC_defencoding'], XML_RPC_Message::xml_header()
- */
- var $send_encoding = '';
-
- /**
- * The method presently being evaluated
- * @var string
- */
- var $methodname = '';
-
- /**
- * @var array
- */
- var $params = array();
-
- /**
- * The XML message being generated
- * @var string
- */
- var $payload = '';
-
- /**
- * Should extra line breaks be removed from the payload?
- * @since Property available since Release 1.4.6
- * @var boolean
- */
- var $remove_extra_lines = true;
-
- /**
- * The XML response from the remote server
- * @since Property available since Release 1.4.6
- * @var string
- */
- var $response_payload = '';
-
-
- /**
- * @return void
- */
- function XML_RPC_Message($meth, $pars = 0)
- {
- $this->methodname = $meth;
- if (is_array($pars) && sizeof($pars) > 0) {
- for ($i = 0; $i < sizeof($pars); $i++) {
- $this->addParam($pars[$i]);
- }
- }
- }
-
- /**
- * Produces the XML declaration including the encoding attribute
- *
- * The encoding is determined by this class' <var>$send_encoding</var>
- * property. If the <var>$send_encoding</var> property is not set, use
- * <var>$GLOBALS['XML_RPC_defencoding']</var>.
- *
- * @return string the XML declaration and <methodCall> element
- *
- * @see XML_RPC_Message::setSendEncoding(),
- * XML_RPC_Message::$send_encoding, $GLOBALS['XML_RPC_defencoding']
- */
- function xml_header()
- {
- global $XML_RPC_defencoding;
-
- if (!$this->send_encoding) {
- $this->send_encoding = $XML_RPC_defencoding;
- }
- return '<?xml version="1.0" encoding="' . $this->send_encoding . '"?>'
- . "\n<methodCall>\n";
- }
-
- /**
- * @return string the closing </methodCall> tag
- */
- function xml_footer()
- {
- return "</methodCall>\n";
- }
-
- /**
- * Fills the XML_RPC_Message::$payload property
- *
- * Part of the process makes sure all line endings are in DOS format
- * (CRLF), which is probably required by specifications.
- *
- * If XML_RPC_Message::setConvertPayloadEncoding() was set to true,
- * the payload gets passed through mb_convert_encoding()
- * to ensure the payload matches the encoding set in the
- * XML declaration. The encoding type can be manually set via
- * XML_RPC_Message::setSendEncoding().
- *
- * @return void
- *
- * @uses XML_RPC_Message::xml_header(), XML_RPC_Message::xml_footer()
- * @see XML_RPC_Message::setSendEncoding(), $GLOBALS['XML_RPC_defencoding'],
- * XML_RPC_Message::setConvertPayloadEncoding()
- */
- function createPayload()
- {
- $this->payload = $this->xml_header();
- $this->payload .= '<methodName>' . $this->methodname . "</methodName>\n";
- $this->payload .= "<params>\n";
- for ($i = 0; $i < sizeof($this->params); $i++) {
- $p = $this->params[$i];
- $this->payload .= "<param>\n" . $p->serialize() . "</param>\n";
- }
- $this->payload .= "</params>\n";
- $this->payload .= $this->xml_footer();
- if ($this->remove_extra_lines) {
- if (function_exists('mb_ereg')) {
- $this->payload = $GLOBALS['XML_RPC_func_ereg_replace']("[\r\n]+", "\r\n", $this->payload);
- } else {
- $this->payload = $GLOBALS['XML_RPC_func_ereg_replace']("/[\r\n]+/", "\r\n", $this->payload);
- }
- } else {
- if (function_exists('mb_ereg')) {
- $this->payload = $GLOBALS['XML_RPC_func_ereg_replace']("\r\n|\n|\r|\n\r", "\r\n", $this->payload);
- } else {
- $this->payload = $GLOBALS['XML_RPC_func_ereg_replace']("/\r\n|\n|\r|\n\r/", "\r\n", $this->payload);
- }
- }
- if ($this->convert_payload_encoding) {
- $this->payload = mb_convert_encoding($this->payload, $this->send_encoding);
- }
- }
-
- /**
- * @return string the name of the method
- */
- function method($meth = '')
- {
- if ($meth != '') {
- $this->methodname = $meth;
- }
- return $this->methodname;
- }
-
- /**
- * @return string the payload
- */
- function serialize()
- {
- $this->createPayload();
- return $this->payload;
- }
-
- /**
- * @return void
- */
- function addParam($par)
- {
- $this->params[] = $par;
- }
-
- /**
- * Obtains an XML_RPC_Value object for the given parameter
- *
- * @param int $i the index number of the parameter to obtain
- *
- * @return object the XML_RPC_Value object.
- * If the parameter doesn't exist, an XML_RPC_Response object.
- *
- * @since Returns XML_RPC_Response object on error since Release 1.3.0
- */
- function getParam($i)
- {
- global $XML_RPC_err, $XML_RPC_str;
-
- if (isset($this->params[$i])) {
- return $this->params[$i];
- } else {
- $this->raiseError('The submitted request did not contain this parameter',
- XML_RPC_ERROR_INCORRECT_PARAMS);
- return new XML_RPC_Response(0, $XML_RPC_err['incorrect_params'],
- $XML_RPC_str['incorrect_params']);
- }
- }
-
- /**
- * @return int the number of parameters
- */
- function getNumParams()
- {
- return sizeof($this->params);
- }
-
- /**
- * Sets whether the payload's content gets passed through
- * mb_convert_encoding()
- *
- * Returns PEAR_ERROR object if mb_convert_encoding() isn't available.
- *
- * @param int $in where 1 = on, 0 = off
- *
- * @return void
- *
- * @see XML_RPC_Message::setSendEncoding()
- * @since Method available since Release 1.5.1
- */
- function setConvertPayloadEncoding($in)
- {
- if ($in && !function_exists('mb_convert_encoding')) {
- return $this->raiseError('mb_convert_encoding() is not available',
- XML_RPC_ERROR_PROGRAMMING);
- }
- $this->convert_payload_encoding = $in;
- }
-
- /**
- * Sets the XML declaration's encoding attribute
- *
- * @param string $type the encoding type (ISO-8859-1, UTF-8 or US-ASCII)
- *
- * @return void
- *
- * @see XML_RPC_Message::setConvertPayloadEncoding(), XML_RPC_Message::xml_header()
- * @since Method available since Release 1.2.0
- */
- function setSendEncoding($type)
- {
- $this->send_encoding = $type;
- }
-
- /**
- * Determine the XML's encoding via the encoding attribute
- * in the XML declaration
- *
- * If the encoding parameter is not set or is not ISO-8859-1, UTF-8
- * or US-ASCII, $XML_RPC_defencoding will be returned.
- *
- * @param string $data the XML that will be parsed
- *
- * @return string the encoding to be used
- *
- * @link http://php.net/xml_parser_create
- * @since Method available since Release 1.2.0
- */
- public static function getEncoding($data) {
- global $XML_RPC_defencoding;
-
- debug_event("rpc.php::getEncoding", "begin", "4");
-
- if (function_exists('mb_ereg')) {
- $pattern = '<\?xml[^>]*[:space:]*encoding[:space:]*=[:space:]*[\'"]([^"\']*)[\'"]';
- } else {
- $pattern = '/<\?xml[^>]*[:space:]*encoding[:space:]*=[:space:]*[\'"]([^"\']*)[\'"]/';
- }
-
- if ($GLOBALS['XML_RPC_func_ereg']($pattern, $data, $match))
- {
- $match[1] = trim(strtoupper($match[1]));
- switch ($match[1]) {
- case 'ISO-8859-1':
- case 'UTF-8':
- case 'US-ASCII':
- debug_event("rpc.php::getEncoding", "end 1", "4");
- return $match[1];
- break;
-
- default:
- debug_event("rpc.php::getEncoding", "end 2", "4");
- return $XML_RPC_defencoding;
- }
- } else {
- debug_event("rpc.php::getEncoding", "end 3", "4");
- return $XML_RPC_defencoding;
- }
- }
-
- /**
- * @return object a new XML_RPC_Response object
- */
- function parseResponseFile($fp) {
- debug_event("rpc.php::parseResponseFile", "begin",'4');
- $ipd = '';
- while ($data = @fread($fp, 8192)) {
- $ipd .= $data;
- }
- debug_event("rpc.php::parseResponseFile", "forward data: " . $ipd,'4');
- return $this->parseResponse($ipd);
- }
-
- /**
- * @return object a new XML_RPC_Response object
- */
- function parseResponse($data = '')
- {
- global $XML_RPC_xh, $XML_RPC_err, $XML_RPC_str, $XML_RPC_defencoding;
-
- $encoding = $this->getEncoding($data);
- $parser_resource = xml_parser_create($encoding);
- $parser = (int) $parser_resource;
-
- $XML_RPC_xh = array();
- $XML_RPC_xh[$parser] = array();
-
- $XML_RPC_xh[$parser]['cm'] = 0;
- $XML_RPC_xh[$parser]['isf'] = 0;
- $XML_RPC_xh[$parser]['ac'] = '';
- $XML_RPC_xh[$parser]['qt'] = '';
- $XML_RPC_xh[$parser]['stack'] = array();
- $XML_RPC_xh[$parser]['valuestack'] = array();
-
- xml_parser_set_option($parser_resource, XML_OPTION_CASE_FOLDING, true);
- xml_set_element_handler($parser_resource, 'XML_RPC_se', 'XML_RPC_ee');
- xml_set_character_data_handler($parser_resource, 'XML_RPC_cd');
-
- $hdrfnd = 0;
- if ($this->debug) {
- print "\n<pre>---GOT---\n";
- print isset($_SERVER['SERVER_PROTOCOL']) ? htmlspecialchars($data) : $data;
- print "\n---END---</pre>\n";
- }
-
- // See if response is a 200 or a 100 then a 200, else raise error.
- // But only do this if we're using the HTTP protocol.
- if (function_exists('mb_ereg')) {
- $pat1 = '^HTTP';
- $pat2 = '^HTTP/[0-9\.]+ 200 ';
- $pat3 = '^HTTP/[0-9\.]+ 10[0-9]([A-Z ]+)?[\r\n]+HTTP/[0-9\.]+ 200';
- } else {
- $pat1 = '/^HTTP/';
- $pat2 = '/^HTTP\/[0-9\.]+ 200 /';
- $pat3 = '/^HTTP\/[0-9\.]+ 10[0-9]([A-Z ]+)?[\r\n]+HTTP\/[0-9\.]+ 200/';
- }
-
- if ($GLOBALS['XML_RPC_func_ereg']($pat1, $data) &&
- !$GLOBALS['XML_RPC_func_ereg']($pat2, $data) &&
- !$GLOBALS['XML_RPC_func_ereg']($pat3, $data))
- {
- $errstr = substr($data, 0, strpos($data, "\n") - 1);
- error_log('HTTP error, got response: ' . $errstr);
- $r = new XML_RPC_Response(0, $XML_RPC_err['http_error'],
- $XML_RPC_str['http_error'] . ' (' .
- $errstr . ')');
- xml_parser_free($parser_resource);
- return $r;
- }
-
- // gotta get rid of headers here
- if (!$hdrfnd && ($brpos = strpos($data,"\r\n\r\n"))) {
- $XML_RPC_xh[$parser]['ha'] = substr($data, 0, $brpos);
- $data = substr($data, $brpos + 4);
- $hdrfnd = 1;
- }
-
- /*
- * be tolerant of junk after methodResponse
- * (e.g. javascript automatically inserted by free hosts)
- * thanks to Luca Mariano <luca.mariano@email.it>
- */
- $data = substr($data, 0, strpos($data, "</methodResponse>") + 17);
- $this->response_payload = $data;
-
- if (!xml_parse($parser_resource, $data, sizeof($data))) {
- // thanks to Peter Kocks <peter.kocks@baygate.com>
- if (xml_get_current_line_number($parser_resource) == 1) {
- $errstr = 'XML error at line 1, check URL';
- } else {
- $errstr = sprintf('XML error: %s at line %d',
- xml_error_string(xml_get_error_code($parser_resource)),
- xml_get_current_line_number($parser_resource));
- }
- error_log($errstr);
- $r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
- $XML_RPC_str['invalid_return']);
- xml_parser_free($parser_resource);
- return $r;
- }
-
- xml_parser_free($parser_resource);
-
- if ($this->debug) {
- print "\n<pre>---PARSED---\n";
- var_dump($XML_RPC_xh[$parser]['value']);
- print "---END---</pre>\n";
- }
-
- if ($XML_RPC_xh[$parser]['isf'] > 1) {
- $r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
- $XML_RPC_str['invalid_return'].' '.$XML_RPC_xh[$parser]['isf_reason']);
- } elseif (!is_object($XML_RPC_xh[$parser]['value'])) {
- // then something odd has happened
- // and it's time to generate a client side error
- // indicating something odd went on
- $r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
- $XML_RPC_str['invalid_return']);
- } else {
- $v = $XML_RPC_xh[$parser]['value'];
- if ($XML_RPC_xh[$parser]['isf']) {
- $f = $v->structmem('faultCode');
- $fs = $v->structmem('faultString');
- $r = new XML_RPC_Response($v, $f->scalarval(),
- $fs->scalarval());
- } else {
- $r = new XML_RPC_Response($v);
- }
- }
- $r->hdrs = preg_split("/\r?\n/", $XML_RPC_xh[$parser]['ha'][1]);
- return $r;
- }
-}
-
-/**
- * The methods and properties that represent data in XML RPC format
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Value extends XML_RPC_Base
-{
- var $me = array();
- var $mytype = 0;
-
- /**
- * @return void
- */
- function XML_RPC_Value($val = -1, $type = '')
- {
- $this->me = array();
- $this->mytype = 0;
- if ($val != -1 || $type != '') {
- if ($type == '') {
- $type = 'string';
- }
- if (!array_key_exists($type, $GLOBALS['XML_RPC_Types'])) {
- // XXX
- // need some way to report this error
- } elseif ($GLOBALS['XML_RPC_Types'][$type] == 1) {
- $this->addScalar($val, $type);
- } elseif ($GLOBALS['XML_RPC_Types'][$type] == 2) {
- $this->addArray($val);
- } elseif ($GLOBALS['XML_RPC_Types'][$type] == 3) {
- $this->addStruct($val);
- }
- }
- }
-
- /**
- * @return int returns 1 if successful or 0 if there are problems
- */
- function addScalar($val, $type = 'string')
- {
- if ($this->mytype == 1) {
- $this->raiseError('Scalar can have only one value',
- XML_RPC_ERROR_INVALID_TYPE);
- return 0;
- }
- $typeof = $GLOBALS['XML_RPC_Types'][$type];
- if ($typeof != 1) {
- $this->raiseError("Not a scalar type (${typeof})",
- XML_RPC_ERROR_INVALID_TYPE);
- return 0;
- }
-
- if ($type == $GLOBALS['XML_RPC_Boolean']) {
- if (strcasecmp($val, 'true') == 0
- || $val == 1
- || ($val == true && strcasecmp($val, 'false')))
- {
- $val = 1;
- } else {
- $val = 0;
- }
- }
-
- if ($this->mytype == 2) {
- // we're adding to an array here
- $ar = $this->me['array'];
- $ar[] = new XML_RPC_Value($val, $type);
- $this->me['array'] = $ar;
- } else {
- // a scalar, so set the value and remember we're scalar
- $this->me[$type] = $val;
- $this->mytype = $typeof;
- }
- return 1;
- }
-
- /**
- * @return int returns 1 if successful or 0 if there are problems
- */
- function addArray($vals)
- {
- if ($this->mytype != 0) {
- $this->raiseError(
- 'Already initialized as a [' . $this->kindOf() . ']',
- XML_RPC_ERROR_ALREADY_INITIALIZED);
- return 0;
- }
- $this->mytype = $GLOBALS['XML_RPC_Types']['array'];
- $this->me['array'] = $vals;
- return 1;
- }
-
- /**
- * @return int returns 1 if successful or 0 if there are problems
- */
- function addStruct($vals)
- {
- if ($this->mytype != 0) {
- $this->raiseError(
- 'Already initialized as a [' . $this->kindOf() . ']',
- XML_RPC_ERROR_ALREADY_INITIALIZED);
- return 0;
- }
- $this->mytype = $GLOBALS['XML_RPC_Types']['struct'];
- $this->me['struct'] = $vals;
- return 1;
- }
-
- /**
- * @return void
- */
- function dump($ar)
- {
- reset($ar);
- foreach ($ar as $key => $val) {
- echo "$key => $val<br />";
- if ($key == 'array') {
- foreach ($val as $key2 => $val2) {
- echo "-- $key2 => $val2<br />";
- }
- }
- }
- }
-
- /**
- * @return string the data type of the current value
- */
- function kindOf()
- {
- switch ($this->mytype) {
- case 3:
- return 'struct';
-
- case 2:
- return 'array';
-
- case 1:
- return 'scalar';
-
- default:
- return 'undef';
- }
- }
-
- /**
- * @return string the data in XML format
- */
- function serializedata($typ, $val)
- {
- $rs = '';
- if (!array_key_exists($typ, $GLOBALS['XML_RPC_Types'])) {
- // XXX
- // need some way to report this error
- debug_event("rpc.php::serializedata", "type not in XML_RPC_TYPES", '4');
- return;
- }
- switch ($GLOBALS['XML_RPC_Types'][$typ]) {
- case 3:
- // struct
- $rs .= "<struct>\n";
- reset($val);
- foreach ($val as $key2 => $val2) {
- $rs .= "<member><name>${key2}</name>\n";
- $rs .= $this->serializeval($val2);
- $rs .= "</member>\n";
- }
- $rs .= '</struct>';
- break;
-
- case 2:
- // array
- $rs .= "<array>\n<data>\n";
- for ($i = 0; $i < sizeof($val); $i++) {
- $rs .= $this->serializeval($val[$i]);
- }
- $rs .= "</data>\n</array>";
- break;
-
- case 1:
- switch ($typ) {
- case $GLOBALS['XML_RPC_Base64']:
- $rs .= "<${typ}>" . base64_encode($val) . "</${typ}>";
- break;
- case $GLOBALS['XML_RPC_Boolean']:
- $rs .= "<${typ}>" . ($val ? '1' : '0') . "</${typ}>";
- break;
- case $GLOBALS['XML_RPC_String']:
- debug_event("rpc.php::serializedata-XML", "XML_RPC_String", '4');
- $rs .= "<${typ}>" . htmlspecialchars($val) . "</${typ}>";
- break;
- default:
- $rs .= "<${typ}>${val}</${typ}>";
- }
- }
- return $rs;
- }
-
- /**
- * @return string the data in XML format
- */
- function serialize()
- {
- return $this->serializeval($this);
- }
-
- /**
- * @return string the data in XML format
- */
- function serializeval($o)
- {
- if (!is_object($o) || empty($o->me) || !is_array($o->me)) {
- return '';
- }
- $ar = $o->me;
- reset($ar);
- list($typ, $val) = each($ar);
- return '<value>' . $this->serializedata($typ, $val) . "</value>\n";
- }
-
- /**
- * @return mixed the contents of the element requested
- */
- function structmem($m)
- {
- return $this->me['struct'][$m];
- }
-
- /**
- * @return void
- */
- function structreset()
- {
- reset($this->me['struct']);
- }
-
- /**
- * @return the key/value pair of the struct's current element
- */
- function structeach()
- {
- return each($this->me['struct']);
- }
-
- /**
- * @return mixed the current value
- */
- function getval()
- {
- // UNSTABLE
-
- reset($this->me);
- $b = current($this->me);
-
- // contributed by I Sofer, 2001-03-24
- // add support for nested arrays to scalarval
- // i've created a new method here, so as to
- // preserve back compatibility
-
- if (is_array($b)) {
- foreach ($b as $id => $cont) {
- $b[$id] = $cont->scalarval();
- }
- }
-
- // add support for structures directly encoding php objects
- if (is_object($b)) {
- $t = get_object_vars($b);
- foreach ($t as $id => $cont) {
- $t[$id] = $cont->scalarval();
- }
- foreach ($t as $id => $cont) {
- $b->$id = $cont;
- }
- }
-
- // end contrib
- return $b;
- }
-
- /**
- * @return mixed the current element's scalar value. If the value is
- * not scalar, FALSE is returned.
- */
- function scalarval()
- {
- reset($this->me);
- $v = current($this->me);
- if (!is_scalar($v)) {
- $v = false;
- }
- return $v;
- }
-
- /**
- * @return string
- */
- function scalartyp()
- {
- reset($this->me);
- $a = key($this->me);
- if ($a == $GLOBALS['XML_RPC_I4']) {
- $a = $GLOBALS['XML_RPC_Int'];
- }
- return $a;
- }
-
- /**
- * @return mixed the struct's current element
- */
- function arraymem($m)
- {
- return $this->me['array'][$m];
- }
-
- /**
- * @return int the number of elements in the array
- */
- function arraysize()
- {
- reset($this->me);
- list($a, $b) = each($this->me);
- return sizeof($b);
- }
-
- /**
- * Determines if the item submitted is an XML_RPC_Value object
- *
- * @param mixed $val the variable to be evaluated
- *
- * @return bool TRUE if the item is an XML_RPC_Value object
- *
- * @static
- * @since Method available since Release 1.3.0
- */
- function isValue($val)
- {
- return (strtolower(get_class($val)) == 'xml_rpc_value');
- }
-}
-
-/**
- * Return an ISO8601 encoded string
- *
- * While timezones ought to be supported, the XML-RPC spec says:
- *
- * "Don't assume a timezone. It should be specified by the server in its
- * documentation what assumptions it makes about timezones."
- *
- * This routine always assumes localtime unless $utc is set to 1, in which
- * case UTC is assumed and an adjustment for locale is made when encoding.
- *
- * @return string the formatted date
- */
-function XML_RPC_iso8601_encode($timet, $utc = 0)
-{
- if (!$utc) {
- $t = strftime('%Y%m%dT%H:%M:%S', $timet);
- } else {
- if (function_exists('gmstrftime')) {
- // gmstrftime doesn't exist in some versions
- // of PHP
- $t = gmstrftime('%Y%m%dT%H:%M:%S', $timet);
- } else {
- $t = strftime('%Y%m%dT%H:%M:%S', $timet - date('Z'));
- }
- }
- return $t;
-}
-
-/**
- * Convert a datetime string into a Unix timestamp
- *
- * While timezones ought to be supported, the XML-RPC spec says:
- *
- * "Don't assume a timezone. It should be specified by the server in its
- * documentation what assumptions it makes about timezones."
- *
- * This routine always assumes localtime unless $utc is set to 1, in which
- * case UTC is assumed and an adjustment for locale is made when encoding.
- *
- * @return int the unix timestamp of the date submitted
- */
-function XML_RPC_iso8601_decode($idate, $utc = 0)
-{
- $t = 0;
- if (function_exists('mb_ereg')) {
- $pattern = '([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})';
- } else {
- $pattern = '/([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})/';
- }
- if ($GLOBALS['XML_RPC_func_ereg']($pattern, $idate, $regs)) {
- if ($utc) {
- $t = gmmktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);
- } else {
- $t = mktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);
- }
- }
- return $t;
-}
-
-/**
- * Converts an XML_RPC_Value object into native PHP types
- *
- * @param object $XML_RPC_val the XML_RPC_Value object to decode
- *
- * @return mixed the PHP values
- */
-function XML_RPC_decode($XML_RPC_val)
-{
- $kind = $XML_RPC_val->kindOf();
-
- if ($kind == 'scalar') {
- return $XML_RPC_val->scalarval();
-
- } elseif ($kind == 'array') {
- $size = $XML_RPC_val->arraysize();
- $arr = array();
- for ($i = 0; $i < $size; $i++) {
- $arr[] = XML_RPC_decode($XML_RPC_val->arraymem($i));
- }
- return $arr;
-
- } elseif ($kind == 'struct') {
- $XML_RPC_val->structreset();
- $arr = array();
- while (list($key, $value) = $XML_RPC_val->structeach()) {
- $arr[$key] = XML_RPC_decode($value);
- }
- return $arr;
- }
-}
-
-/**
- * Converts native PHP types into an XML_RPC_Value object
- *
- * @param mixed $php_val the PHP value or variable you want encoded
- *
- * @return object the XML_RPC_Value object
- */
-function XML_RPC_encode($php_val)
-{
- $type = gettype($php_val);
- $XML_RPC_val = new XML_RPC_Value;
-
- switch ($type) {
- case 'array':
- if (empty($php_val)) {
- $XML_RPC_val->addArray($php_val);
- break;
- }
- $tmp = array_diff(array_keys($php_val), range(0, count($php_val)-1));
- if (empty($tmp)) {
- $arr = array();
- foreach ($php_val as $k => $v) {
- $arr[$k] = XML_RPC_encode($v);
- }
- $XML_RPC_val->addArray($arr);
- break;
- }
- // fall though if it's not an enumerated array
-
- case 'object':
- $arr = array();
- foreach ($php_val as $k => $v) {
- $arr[$k] = XML_RPC_encode($v);
- }
- $XML_RPC_val->addStruct($arr);
- break;
-
- case 'integer':
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Int']);
- break;
-
- case 'double':
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Double']);
- break;
-
- case 'string':
- case 'NULL':
- if (function_exists('mb_ereg')) {
- $pat1 = '^[0-9]{8}\T{1}[0-9]{2}\:[0-9]{2}\:[0-9]{2}$';
- $pat2 = "[^ -~\t\r\n]";
- } else {
- $pat1 = '^[0-9]{8}\T{1}[0-9]{2}\:[0-9]{2}\:[0-9]{2}$';
- $pat2 = "/[^ -~\t\r\n]/";
- }
- if ($GLOBALS['XML_RPC_func_ereg']($pat1, $php_val)) {
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_DateTime']);
- } elseif ($GLOBALS['XML_RPC_auto_base64']
- && $GLOBALS['XML_RPC_func_ereg']($pat2, $php_val))
- {
- // Characters other than alpha-numeric, punctuation, SP, TAB,
- // LF and CR break the XML parser, encode value via Base 64.
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Base64']);
- } else {
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_String']);
- }
- break;
-
- case 'boolean':
- // Add support for encoding/decoding of booleans, since they
- // are supported in PHP
- // by <G_Giunta_2001-02-29>
- $XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Boolean']);
- break;
-
- case 'unknown type':
- default:
- $XML_RPC_val = false;
- }
- return $XML_RPC_val;
-}
-
-/*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * c-hanging-comment-ender-p: nil
- * End:
- */
-
-?>
diff --git a/modules/pearxmlrpc/server.php b/modules/pearxmlrpc/server.php
deleted file mode 100644
index 61a89332..00000000
--- a/modules/pearxmlrpc/server.php
+++ /dev/null
@@ -1,720 +0,0 @@
-<?php
-
-/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
-
-/**
- * Server commands for our PHP implementation of the XML-RPC protocol
- *
- * This is a PEAR-ified version of Useful inc's XML-RPC for PHP.
- * It has support for HTTP transport, proxies and authentication.
- *
- * PHP versions 4 and 5
- *
- * LICENSE: License is granted to use or modify this software
- * ("XML-RPC for PHP") for commercial or non-commercial use provided the
- * copyright of the author is preserved in any distributed or derivative work.
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESSED 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 AUTHOR 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.
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version CVS: $Id: Server.php,v 1.37 2006/10/28 16:42:34 danielc Exp $
- * @link http://pear.php.net/package/XML_RPC
- */
-
-
-/**
- * Pull in the XML_RPC class
- * This will now be included from xmlrpc.server.php
- */
-// require_once 'XML/RPC.php';
-
-
-/**
- * signature for system.listMethods: return = array,
- * parameters = a string or nothing
- * @global array $GLOBALS['XML_RPC_Server_listMethods_sig']
- */
-$GLOBALS['XML_RPC_Server_listMethods_sig'] = array(
- array($GLOBALS['XML_RPC_Array'],
- $GLOBALS['XML_RPC_String']
- ),
- array($GLOBALS['XML_RPC_Array'])
-);
-
-/**
- * docstring for system.listMethods
- * @global string $GLOBALS['XML_RPC_Server_listMethods_doc']
- */
-$GLOBALS['XML_RPC_Server_listMethods_doc'] = 'This method lists all the'
- . ' methods that the XML-RPC server knows how to dispatch';
-
-/**
- * signature for system.methodSignature: return = array,
- * parameters = string
- * @global array $GLOBALS['XML_RPC_Server_methodSignature_sig']
- */
-$GLOBALS['XML_RPC_Server_methodSignature_sig'] = array(
- array($GLOBALS['XML_RPC_Array'],
- $GLOBALS['XML_RPC_String']
- )
-);
-
-/**
- * docstring for system.methodSignature
- * @global string $GLOBALS['XML_RPC_Server_methodSignature_doc']
- */
-$GLOBALS['XML_RPC_Server_methodSignature_doc'] = 'Returns an array of known'
- . ' signatures (an array of arrays) for the method name passed. If'
- . ' no signatures are known, returns a none-array (test for type !='
- . ' array to detect missing signature)';
-
-/**
- * signature for system.methodHelp: return = string,
- * parameters = string
- * @global array $GLOBALS['XML_RPC_Server_methodHelp_sig']
- */
-$GLOBALS['XML_RPC_Server_methodHelp_sig'] = array(
- array($GLOBALS['XML_RPC_String'],
- $GLOBALS['XML_RPC_String']
- )
-);
-
-/**
- * docstring for methodHelp
- * @global string $GLOBALS['XML_RPC_Server_methodHelp_doc']
- */
-$GLOBALS['XML_RPC_Server_methodHelp_doc'] = 'Returns help text if defined'
- . ' for the method passed, otherwise returns an empty string';
-
-/**
- * dispatch map for the automatically declared XML-RPC methods.
- * @global array $GLOBALS['XML_RPC_Server_dmap']
- */
-$GLOBALS['XML_RPC_Server_dmap'] = array(
- 'system.listMethods' => array(
- 'function' => 'XML_RPC_Server_listMethods',
- 'signature' => $GLOBALS['XML_RPC_Server_listMethods_sig'],
- 'docstring' => $GLOBALS['XML_RPC_Server_listMethods_doc']
- ),
- 'system.methodHelp' => array(
- 'function' => 'XML_RPC_Server_methodHelp',
- 'signature' => $GLOBALS['XML_RPC_Server_methodHelp_sig'],
- 'docstring' => $GLOBALS['XML_RPC_Server_methodHelp_doc']
- ),
- 'system.methodSignature' => array(
- 'function' => 'XML_RPC_Server_methodSignature',
- 'signature' => $GLOBALS['XML_RPC_Server_methodSignature_sig'],
- 'docstring' => $GLOBALS['XML_RPC_Server_methodSignature_doc']
- )
-);
-
-/**
- * @global string $GLOBALS['XML_RPC_Server_debuginfo']
- */
-$GLOBALS['XML_RPC_Server_debuginfo'] = '';
-
-
-/**
- * Lists all the methods that the XML-RPC server knows how to dispatch
- *
- * @return object a new XML_RPC_Response object
- */
-function XML_RPC_Server_listMethods($server, $m)
-{
- global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
-
- $v = new XML_RPC_Value();
- $outAr = array();
- foreach ($server->dmap as $key => $val) {
- $outAr[] = new XML_RPC_Value($key, 'string');
- }
- foreach ($XML_RPC_Server_dmap as $key => $val) {
- $outAr[] = new XML_RPC_Value($key, 'string');
- }
- $v->addArray($outAr);
- return new XML_RPC_Response($v);
-}
-
-/**
- * Returns an array of known signatures (an array of arrays)
- * for the given method
- *
- * If no signatures are known, returns a none-array
- * (test for type != array to detect missing signature)
- *
- * @return object a new XML_RPC_Response object
- */
-function XML_RPC_Server_methodSignature($server, $m)
-{
- global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
-
- $methName = $m->getParam(0);
- $methName = $methName->scalarval();
- if (strpos($methName, 'system.') === 0) {
- $dmap = $XML_RPC_Server_dmap;
- $sysCall = 1;
- } else {
- $dmap = $server->dmap;
- $sysCall = 0;
- }
- // print "<!-- ${methName} -->\n";
- if (isset($dmap[$methName])) {
- if ($dmap[$methName]['signature']) {
- $sigs = array();
- $thesigs = $dmap[$methName]['signature'];
- for ($i = 0; $i < sizeof($thesigs); $i++) {
- $cursig = array();
- $inSig = $thesigs[$i];
- for ($j = 0; $j < sizeof($inSig); $j++) {
- $cursig[] = new XML_RPC_Value($inSig[$j], 'string');
- }
- $sigs[] = new XML_RPC_Value($cursig, 'array');
- }
- $r = new XML_RPC_Response(new XML_RPC_Value($sigs, 'array'));
- } else {
- $r = new XML_RPC_Response(new XML_RPC_Value('undef', 'string'));
- }
- } else {
- $r = new XML_RPC_Response(0, $XML_RPC_err['introspect_unknown'],
- $XML_RPC_str['introspect_unknown']);
- }
- return $r;
-}
-
-/**
- * Returns help text if defined for the method passed, otherwise returns
- * an empty string
- *
- * @return object a new XML_RPC_Response object
- */
-function XML_RPC_Server_methodHelp($server, $m)
-{
- global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
-
- $methName = $m->getParam(0);
- $methName = $methName->scalarval();
- if (strpos($methName, 'system.') === 0) {
- $dmap = $XML_RPC_Server_dmap;
- $sysCall = 1;
- } else {
- $dmap = $server->dmap;
- $sysCall = 0;
- }
-
- if (isset($dmap[$methName])) {
- if ($dmap[$methName]['docstring']) {
- $r = new XML_RPC_Response(new XML_RPC_Value($dmap[$methName]['docstring']),
- 'string');
- } else {
- $r = new XML_RPC_Response(new XML_RPC_Value('', 'string'));
- }
- } else {
- $r = new XML_RPC_Response(0, $XML_RPC_err['introspect_unknown'],
- $XML_RPC_str['introspect_unknown']);
- }
- return $r;
-}
-
-/**
- * @return void
- */
-function XML_RPC_Server_debugmsg($m)
-{
- global $XML_RPC_Server_debuginfo;
- $XML_RPC_Server_debuginfo = $XML_RPC_Server_debuginfo . $m . "\n";
- debug_event("XML_RPC_Server_debugmsg",$m,'1');
-}
-
-
-/**
- * A server for receiving and replying to XML RPC requests
- *
- * <code>
- * $server = new XML_RPC_Server(
- * array(
- * 'isan8' =>
- * array(
- * 'function' => 'is_8',
- * 'signature' =>
- * array(
- * array('boolean', 'int'),
- * array('boolean', 'int', 'boolean'),
- * array('boolean', 'string'),
- * array('boolean', 'string', 'boolean'),
- * ),
- * 'docstring' => 'Is the value an 8?'
- * ),
- * ),
- * 1,
- * 0
- * );
- * </code>
- *
- * @category Web Services
- * @package XML_RPC
- * @author Edd Dumbill <edd@usefulinc.com>
- * @author Stig Bakken <stig@php.net>
- * @author Martin Jansen <mj@php.net>
- * @author Daniel Convissor <danielc@php.net>
- * @copyright 1999-2001 Edd Dumbill, 2001-2006 The PHP Group
- * @version Release: 1.5.1
- * @link http://pear.php.net/package/XML_RPC
- */
-class XML_RPC_Server
-{
- /**
- * Should the payload's content be passed through mb_convert_encoding()?
- *
- * @see XML_RPC_Server::setConvertPayloadEncoding()
- * @since Property available since Release 1.5.1
- * @var boolean
- */
- var $convert_payload_encoding = false;
-
- /**
- * The dispatch map, listing the methods this server provides.
- * @var array
- */
- var $dmap = array();
-
- /**
- * The present response's encoding
- * @var string
- * @see XML_RPC_Message::getEncoding()
- */
- var $encoding = '';
-
- /**
- * Debug mode (0 = off, 1 = on)
- * @var integer
- */
- var $debug = 0;
-
- /**
- * The response's HTTP headers
- * @var string
- */
- var $server_headers = '';
-
- /**
- * The response's XML payload
- * @var string
- */
- var $server_payload = '';
-
-
- /**
- * Constructor for the XML_RPC_Server class
- *
- * @param array $dispMap the dispatch map. An associative array
- * explaining each function. The keys of the main
- * array are the procedure names used by the
- * clients. The value is another associative array
- * that contains up to three elements:
- * + The 'function' element's value is the name
- * of the function or method that gets called.
- * To define a class' method: 'class::method'.
- * + The 'signature' element (optional) is an
- * array describing the return values and
- * parameters
- * + The 'docstring' element (optional) is a
- * string describing what the method does
- * @param int $serviceNow should the HTTP response be sent now?
- * (1 = yes, 0 = no)
- * @param int $debug should debug output be displayed?
- * (1 = yes, 0 = no)
- *
- * @return void
- */
- function XML_RPC_Server($dispMap, $serviceNow = 1, $debug = 0)
- {
- global $HTTP_RAW_POST_DATA;
-
- debug_event("XML_RPC_Server","Starting",'1');
- if ($debug) {
- $this->debug = 1;
- } else {
- $this->debug = 0;
- }
-
- $this->dmap = $dispMap;
-
- if ($serviceNow) {
- debug_event("server.php::XML_RPC_Server", "serviceNow selected", "4");
- $this->service();
- } else {
- debug_event("server.php::XML_RPC_Server", "serviceNow not selected", "4");
- $this->createServerPayload();
- $this->createServerHeaders();
- }
- }
-
- /**
- * @return string the debug information if debug debug mode is on
- */
- function serializeDebug()
- {
- global $XML_RPC_Server_debuginfo, $HTTP_RAW_POST_DATA;
-
- if ($this->debug) {
- XML_RPC_Server_debugmsg('vvv POST DATA RECEIVED BY SERVER vvv' . "\n"
- . $HTTP_RAW_POST_DATA
- . "\n" . '^^^ END POST DATA ^^^');
- }
-
- if ($XML_RPC_Server_debuginfo != '') {
- if (function_exists('mb_ereg')) {
- $pattern = '--';
- } else {
- $pattern = '/--/';
- }
- return "<!-- PEAR XML_RPC SERVER DEBUG INFO:\n\n"
- . $GLOBALS['XML_RPC_func_ereg_replace']($pattern, '- - ', $XML_RPC_Server_debuginfo)
- . "-->\n";
- } else {
- return '';
- }
- }
-
- /**
- * Sets whether the payload's content gets passed through
- * mb_convert_encoding()
- *
- * Returns PEAR_ERROR object if mb_convert_encoding() isn't available.
- *
- * @param int $in where 1 = on, 0 = off
- *
- * @return void
- *
- * @see XML_RPC_Message::getEncoding()
- * @since Method available since Release 1.5.1
- */
- function setConvertPayloadEncoding($in)
- {
- if ($in && !function_exists('mb_convert_encoding')) {
- return $this->raiseError('mb_convert_encoding() is not available',
- XML_RPC_ERROR_PROGRAMMING);
- }
- $this->convert_payload_encoding = $in;
- }
-
- /**
- * Sends the response
- *
- * The encoding and content-type are determined by
- * XML_RPC_Message::getEncoding()
- *
- * @return void
- *
- * @uses XML_RPC_Server::createServerPayload(),
- * XML_RPC_Server::createServerHeaders()
- */
- function service()
- {
- debug_event("server.php::service", "begin", "4");
-
- if (!$this->server_payload) {
- debug_event("server.php::service", "createServerPayLoad", "4");
- $this->createServerPayload();
- }
- if (!$this->server_headers) {
- debug_event("server.php::service", "createServerHeaders", "4");
- $this->createServerHeaders();
- }
-
- /*
- * $server_headers needs to remain a string for compatibility with
- * old scripts using this package, but PHP 4.4.2 no longer allows
- * line breaks in header() calls. So, we split each header into
- * an individual call. The initial replace handles the off chance
- * that someone composed a single header with multiple lines, which
- * the RFCs allow.
- */
- if (function_exists('mb_ereg')) {
- $pat1 = "[\r\n]+[ \t]+";
- $pat2 = "[\r\n]+";
- } else {
- $pat1 = "/[\r\n]+[ \t]+/";
- $pat2 = "/[\r\n]+/";
- }
- $this->server_headers = $GLOBALS['XML_RPC_func_ereg_replace']($pat1,
- ' ', trim($this->server_headers));
- $headers = $GLOBALS['XML_RPC_func_split']($pat2, $this->server_headers);
- foreach ($headers as $header)
- {
- header($header);
- }
-
- print $this->server_payload;
-
- debug_event("server.php::service", "end", "4");
- }
-
- /**
- * Generates the payload and puts it in the $server_payload property
- *
- * If XML_RPC_Server::setConvertPayloadEncoding() was set to true,
- * the payload gets passed through mb_convert_encoding()
- * to ensure the payload matches the encoding set in the
- * XML declaration. The encoding type can be manually set via
- * XML_RPC_Message::setSendEncoding().
- *
- * @return void
- *
- * @uses XML_RPC_Server::parseRequest(), XML_RPC_Server::$encoding,
- * XML_RPC_Response::serialize(), XML_RPC_Server::serializeDebug()
- * @see XML_RPC_Server::setConvertPayloadEncoding()
- */
- function createServerPayload() {
- debug_event("server.php::createServerPayLoad", "begin", "4");
- $r = $this->parseRequest();
- $this->server_payload = '<?xml version="1.0" encoding="'
- . $this->encoding . '"?>' . "\n"
- . $this->serializeDebug()
- . $r->serialize();
- if ($this->convert_payload_encoding) {
- $this->server_payload = mb_convert_encoding($this->server_payload,
- $this->encoding);
- }
- debug_event("server.php::createServerPayLoad", "end", "4");
- }
-
- /**
- * Determines the HTTP headers and puts them in the $server_headers
- * property
- *
- * @return boolean TRUE if okay, FALSE if $server_payload isn't set.
- *
- * @uses XML_RPC_Server::createServerPayload(),
- * XML_RPC_Server::$server_headers
- */
- function createServerHeaders()
- {
- if (!$this->server_payload) {
- return false;
- }
- $this->server_headers = 'Content-Length: '
- . strlen($this->server_payload) . "\r\n"
- . 'Content-Type: text/xml;'
- . ' charset=' . $this->encoding;
- return true;
- }
-
- /**
- * @return array
- */
- function verifySignature($in, $sig)
- {
- for ($i = 0; $i < sizeof($sig); $i++) {
- // check each possible signature in turn
- $cursig = $sig[$i];
- if (sizeof($cursig) == $in->getNumParams() + 1) {
- $itsOK = 1;
- for ($n = 0; $n < $in->getNumParams(); $n++) {
- $p = $in->getParam($n);
- // print "<!-- $p -->\n";
- if ($p->kindOf() == 'scalar') {
- $pt = $p->scalartyp();
- } else {
- $pt = $p->kindOf();
- }
- // $n+1 as first type of sig is return type
- if ($pt != $cursig[$n+1]) {
- $itsOK = 0;
- $pno = $n+1;
- $wanted = $cursig[$n+1];
- $got = $pt;
- break;
- }
- }
- if ($itsOK) {
- return array(1);
- }
- }
- }
- if (isset($wanted)) {
- return array(0, "Wanted ${wanted}, got ${got} at param ${pno}");
- } else {
- $allowed = array();
- foreach ($sig as $val) {
- end($val);
- $allowed[] = key($val);
- }
- $allowed = array_unique($allowed);
- $last = count($allowed) - 1;
- if ($last > 0) {
- $allowed[$last] = 'or ' . $allowed[$last];
- }
- return array(0,
- 'Signature permits ' . implode(', ', $allowed)
- . ' parameters but the request had '
- . $in->getNumParams());
- }
- }
-
- /**
- * @return object a new XML_RPC_Response object
- *
- * @uses XML_RPC_Message::getEncoding(), XML_RPC_Server::$encoding
- */
- function parseRequest($data = '') {
- global $XML_RPC_xh, $HTTP_RAW_POST_DATA,
- $XML_RPC_err, $XML_RPC_str, $XML_RPC_errxml,
- $XML_RPC_defencoding, $XML_RPC_Server_dmap;
-
- debug_event("server.php::parseRequest", "begin", "4");
-
- if ($data == '') {
- $data = $HTTP_RAW_POST_DATA;
- }
-
- $this->encoding = XML_RPC_Message::getEncoding($data);
- $parser_resource = xml_parser_create($this->encoding);
- $parser = (int) $parser_resource;
-
- $XML_RPC_xh[$parser] = array();
- $XML_RPC_xh[$parser]['cm'] = 0;
- $XML_RPC_xh[$parser]['isf'] = 0;
- $XML_RPC_xh[$parser]['params'] = array();
- $XML_RPC_xh[$parser]['method'] = '';
- $XML_RPC_xh[$parser]['stack'] = array();
- $XML_RPC_xh[$parser]['valuestack'] = array();
-
- $plist = '';
-
- // decompose incoming XML into request structure
- xml_parser_set_option($parser_resource, XML_OPTION_CASE_FOLDING, true);
- xml_set_element_handler($parser_resource, 'XML_RPC_se', 'XML_RPC_ee');
- xml_set_character_data_handler($parser_resource, 'XML_RPC_cd');
- if (!xml_parse($parser_resource, $data, 1)) {
- // return XML error as a faultCode
- debug_event("server.php::parseRequest", "XML error", "4");
- $r = new XML_RPC_Response(0,
- $XML_RPC_errxml+xml_get_error_code($parser_resource),
- sprintf('XML error: %s at line %d',
- xml_error_string(xml_get_error_code($parser_resource)),
- xml_get_current_line_number($parser_resource)));
-
- debug_event("server.php::parseRequest", $r->faultCode(), "4");
- xml_parser_free($parser_resource);
- } elseif ($XML_RPC_xh[$parser]['isf']>1) {
- debug_event("server.php::parseRequest", "invalid_request", "4");
- $r = new XML_RPC_Response(0,
- $XML_RPC_err['invalid_request'],
- $XML_RPC_str['invalid_request']
- . ': '
- . $XML_RPC_xh[$parser]['isf_reason']);
-
- debug_event("server.php::parseRequest", $r->faultCode(), "4");
- xml_parser_free($parser_resource);
- } else {
- xml_parser_free($parser_resource);
- $m = new XML_RPC_Message($XML_RPC_xh[$parser]['method']);
- // now add parameters in
- for ($i = 0; $i < sizeof($XML_RPC_xh[$parser]['params']); $i++) {
- // print '<!-- ' . $XML_RPC_xh[$parser]['params'][$i]. "-->\n";
- $plist .= "$i - " . var_export($XML_RPC_xh[$parser]['params'][$i], true) . " \n";
- $m->addParam($XML_RPC_xh[$parser]['params'][$i]);
- }
-
- if ($this->debug) {
- XML_RPC_Server_debugmsg($plist);
- }
-
- // now to deal with the method
- $methName = $XML_RPC_xh[$parser]['method'];
- if (strpos($methName, 'system.') === 0) {
- $dmap = $XML_RPC_Server_dmap;
- $sysCall = 1;
- } else {
- $dmap = $this->dmap;
- $sysCall = 0;
- }
-
- if (isset($dmap[$methName]['function'])
- && is_string($dmap[$methName]['function'])
- && strpos($dmap[$methName]['function'], '::') !== false)
- {
- $dmap[$methName]['function'] =
- explode('::', $dmap[$methName]['function']);
- }
-
- if (isset($dmap[$methName]['function'])
- && is_callable($dmap[$methName]['function']))
- {
- // dispatch if exists
- if (isset($dmap[$methName]['signature'])) {
- $sr = $this->verifySignature($m,
- $dmap[$methName]['signature'] );
- }
- if (!isset($dmap[$methName]['signature']) || $sr[0]) {
- // if no signature or correct signature
- if ($sysCall) {
- $r = call_user_func($dmap[$methName]['function'], $this, $m);
- } else {
- $r = call_user_func($dmap[$methName]['function'], $m);
- }
- if (!($r instanceof XML_RPC_Response )) {
- debug_event("server.php::parseRequest", "not_response_object", "4");
- $r = new XML_RPC_Response(0, $XML_RPC_err['not_response_object'],
- $XML_RPC_str['not_response_object']);
- }
- } else {
- debug_event("server.php::parseRequest", "incorrect_params", "4");
- $r = new XML_RPC_Response(0, $XML_RPC_err['incorrect_params'],
- $XML_RPC_str['incorrect_params']
- . ': ' . $sr[1]);
- }
- } else {
- // else prepare error response
- $r = new XML_RPC_Response(0, $XML_RPC_err['unknown_method'],
- $XML_RPC_str['unknown_method']);
- }
- }
-
- debug_event("server.php::parseRequest", "end", "4");
-
- return $r;
- }
-
- /**
- * Echos back the input packet as a string value
- *
- * @return void
- *
- * Useful for debugging.
- */
- function echoInput()
- {
- global $HTTP_RAW_POST_DATA;
-
- $r = new XML_RPC_Response(0);
- $r->xv = new XML_RPC_Value("'Aha said I: '" . $HTTP_RAW_POST_DATA, 'string');
- print $r->serialize();
- }
-}
-
-/*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * c-hanging-comment-ender-p: nil
- * End:
- */
-
-?>
diff --git a/server/xmlrpc.server.php b/server/xmlrpc.server.php
deleted file mode 100644
index 8a5dc9e5..00000000
--- a/server/xmlrpc.server.php
+++ /dev/null
@@ -1,59 +0,0 @@
-<?php
-/*
-
- Copyright Ampache.org
- All Rights Reserved
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License v2
- as published by the Free Software Foundation.
-
- 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-define('NO_SESSION','1');
-require_once('../lib/init.php');
-
-/* Set the correct headers */
-//header("Content-type: text/xml; charset=" . Config::get('site_charset'));
-//header("Content-Disposition: attachment; filename=xmlrpc-server.xml");
-
-if (Config::get('xml_rpc')) {
- require_once Config::get('prefix') . "/modules/pearxmlrpc/rpc.php";
- require_once Config::get('prefix') . "/modules/pearxmlrpc/server.php";
-}
-else {
- debug_event('DENIED','Attempted to Access XMLRPC server with xml_rpc disabled','1');
- exit();
-}
-
-// ** check that the remote server has access to this catalog
-if (Access::check_network('init-rpc','','5')) {
- debug_event("init-rpc", "start listing functions ", '4');
-
- // Define an array of classes we need to pull from for the
- $classes = array('xmlRpcServer');
-
- foreach ($classes as $class) {
- $methods = get_class_methods($class);
-
- foreach ($methods as $method) {
- $name = strtolower($class) . '.' . strtolower($method);
- $functions[$name] = array('function'=>$class . '::' . $method);
- debug_event("init-rpc", "add function: " . $name, '4');
- }
-
- } // end foreach of classes
- debug_event("init-rpc", "starting rpc class XML_RPC_SERVER", '4');
- $server = new XML_RPC_Server($functions,1);
- debug_event("init-rpc", "done", '4');
-} // test for ACL
-
-?> \ No newline at end of file
diff --git a/templates/show_add_catalog.inc.php b/templates/show_add_catalog.inc.php
index 7b69a38f..ee0dfef3 100644
--- a/templates/show_add_catalog.inc.php
+++ b/templates/show_add_catalog.inc.php
@@ -57,8 +57,12 @@ $default_sort = "%a/%A";
</td>
</tr>
<tr>
- <td><?php echo _('XML-RPC Key'); ?>: </td>
- <td><input size="30" type="text" name="key" value="" /><span class="error">*<?php echo _('Required for Remote Catalogs'); ?></span></td>
+ <td><?php echo _('Remote Catalog Username'); ?>: </td>
+ <td><input size="30" type="text" name="remote_username" value="" /><span class="error">*<?php echo _('Required for Remote Catalogs'); ?></span></td>
+</tr>
+<tr>
+ <td><?php echo _('Remote Catalog Password'); ?>: </td>
+ <td><input size="30" type="password" name="remote_password" value="" /><span class="error">*<?php echo _('Required for Remote Catalogs'); ?></span></td>
</tr>
<tr>
<td><?php echo _('Filename Pattern'); ?>: </td>
generated by cgit (git 2.34.1) at 2025-08-13 09:49:31 +0000