HOR-3668
- Removed unused and equal class defined in thirdparty/pear/json/class.json.php - Removed unused and equal class defined in thirdparty/pear/class.nusoap_base.php - Removed unused and equal class defined in thirdparty/pear/class.soapclient.php - Removed __() method defined in class.g.php and replaced with G::LoadTranlation
This commit is contained in:
davidcallizaya
@@ -5913,8 +5913,3 @@ function eprintln ($s = "", $c = null)
|
|||||||
print "$s\n";
|
print "$s\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
function __ ($msgID, $lang = SYS_LANG, $data = null)
|
|
||||||
{
|
|
||||||
return G::LoadTranslation( $msgID, $lang, $data );
|
|
||||||
}
|
|
||||||
|
|||||||
905
thirdparty/pear/class.nusoap_base.php
vendored
905
thirdparty/pear/class.nusoap_base.php
vendored
@@ -1,905 +0,0 @@
|
|||||||
<?php
|
|
||||||
|
|
||||||
/*
|
|
||||||
$Id: class.nusoap_base.php,v 1.43 2005/08/04 01:27:42 snichol Exp $
|
|
||||||
|
|
||||||
NuSOAP - Web Services Toolkit for PHP
|
|
||||||
|
|
||||||
Copyright (c) 2002 NuSphere Corporation
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public
|
|
||||||
License as published by the Free Software Foundation; either
|
|
||||||
version 2.1 of the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This library 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
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with this library; if not, write to the Free Software
|
|
||||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
||||||
|
|
||||||
If you have any questions or comments, please email:
|
|
||||||
|
|
||||||
Dietrich Ayala
|
|
||||||
dietrich@ganx4.com
|
|
||||||
http://dietrich.ganx4.com/nusoap
|
|
||||||
|
|
||||||
NuSphere Corporation
|
|
||||||
http://www.nusphere.com
|
|
||||||
|
|
||||||
*/
|
|
||||||
|
|
||||||
/* load classes
|
|
||||||
|
|
||||||
// necessary classes
|
|
||||||
require_once('class.soapclient.php');
|
|
||||||
require_once('class.soap_val.php');
|
|
||||||
require_once('class.soap_parser.php');
|
|
||||||
require_once('class.soap_fault.php');
|
|
||||||
|
|
||||||
// transport classes
|
|
||||||
require_once('class.soap_transport_http.php');
|
|
||||||
|
|
||||||
// optional add-on classes
|
|
||||||
require_once('class.xmlschema.php');
|
|
||||||
require_once('class.wsdl.php');
|
|
||||||
|
|
||||||
// server class
|
|
||||||
require_once('class.soap_server.php');*/
|
|
||||||
|
|
||||||
// class variable emulation
|
|
||||||
// cf. http://www.webkreator.com/php/techniques/php-static-class-variables.html
|
|
||||||
$GLOBALS['_transient']['static']['nusoap_base']->globalDebugLevel = 9;
|
|
||||||
|
|
||||||
/**
|
|
||||||
*
|
|
||||||
* nusoap_base
|
|
||||||
*
|
|
||||||
* @author Dietrich Ayala <dietrich@ganx4.com>
|
|
||||||
* @version $Id: class.nusoap_base.php,v 1.43 2005/08/04 01:27:42 snichol Exp $
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
class nusoap_base {
|
|
||||||
/**
|
|
||||||
* Identification for HTTP headers.
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $title = 'NuSOAP';
|
|
||||||
/**
|
|
||||||
* Version for HTTP headers.
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $version = '0.7.2';
|
|
||||||
/**
|
|
||||||
* CVS revision for HTTP headers.
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $revision = '$Revision: 1.43 $';
|
|
||||||
/**
|
|
||||||
* Current error string (manipulated by getError/setError)
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $error_str = '';
|
|
||||||
/**
|
|
||||||
* Current debug string (manipulated by debug/appendDebug/clearDebug/getDebug/getDebugAsXMLComment)
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $debug_str = '';
|
|
||||||
/**
|
|
||||||
* toggles automatic encoding of special characters as entities
|
|
||||||
* (should always be true, I think)
|
|
||||||
*
|
|
||||||
* @var boolean
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $charencoding = true;
|
|
||||||
/**
|
|
||||||
* the debug level for this instance
|
|
||||||
*
|
|
||||||
* @var integer
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $debugLevel;
|
|
||||||
|
|
||||||
/**
|
|
||||||
* set schema version
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $XMLSchemaVersion = 'http://www.w3.org/2001/XMLSchema';
|
|
||||||
|
|
||||||
/**
|
|
||||||
* charset encoding for outgoing messages
|
|
||||||
*
|
|
||||||
* @var string
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $soap_defencoding = 'ISO-8859-1';
|
|
||||||
//var $soap_defencoding = 'UTF-8';
|
|
||||||
|
|
||||||
/**
|
|
||||||
* namespaces in an array of prefix => uri
|
|
||||||
*
|
|
||||||
* this is "seeded" by a set of constants, but it may be altered by code
|
|
||||||
*
|
|
||||||
* @var array
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $namespaces = array(
|
|
||||||
'SOAP-ENV' => 'http://schemas.xmlsoap.org/soap/envelope/',
|
|
||||||
'xsd' => 'http://www.w3.org/2001/XMLSchema',
|
|
||||||
'xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
|
|
||||||
'SOAP-ENC' => 'http://schemas.xmlsoap.org/soap/encoding/'
|
|
||||||
);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* namespaces used in the current context, e.g. during serialization
|
|
||||||
*
|
|
||||||
* @var array
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
var $usedNamespaces = array();
|
|
||||||
|
|
||||||
/**
|
|
||||||
* XML Schema types in an array of uri => (array of xml type => php type)
|
|
||||||
* is this legacy yet?
|
|
||||||
* no, this is used by the xmlschema class to verify type => namespace mappings.
|
|
||||||
* @var array
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $typemap = array(
|
|
||||||
'http://www.w3.org/2001/XMLSchema' => array(
|
|
||||||
'string'=>'string','boolean'=>'boolean','float'=>'double','double'=>'double','decimal'=>'double',
|
|
||||||
'duration'=>'','dateTime'=>'string','time'=>'string','date'=>'string','gYearMonth'=>'',
|
|
||||||
'gYear'=>'','gMonthDay'=>'','gDay'=>'','gMonth'=>'','hexBinary'=>'string','base64Binary'=>'string',
|
|
||||||
// abstract "any" types
|
|
||||||
'anyType'=>'string','anySimpleType'=>'string',
|
|
||||||
// derived datatypes
|
|
||||||
'normalizedString'=>'string','token'=>'string','language'=>'','NMTOKEN'=>'','NMTOKENS'=>'','Name'=>'','NCName'=>'','ID'=>'',
|
|
||||||
'IDREF'=>'','IDREFS'=>'','ENTITY'=>'','ENTITIES'=>'','integer'=>'integer','nonPositiveInteger'=>'integer',
|
|
||||||
'negativeInteger'=>'integer','long'=>'integer','int'=>'integer','short'=>'integer','byte'=>'integer','nonNegativeInteger'=>'integer',
|
|
||||||
'unsignedLong'=>'','unsignedInt'=>'','unsignedShort'=>'','unsignedByte'=>'','positiveInteger'=>''),
|
|
||||||
'http://www.w3.org/2000/10/XMLSchema' => array(
|
|
||||||
'i4'=>'','int'=>'integer','boolean'=>'boolean','string'=>'string','double'=>'double',
|
|
||||||
'float'=>'double','dateTime'=>'string',
|
|
||||||
'timeInstant'=>'string','base64Binary'=>'string','base64'=>'string','ur-type'=>'array'),
|
|
||||||
'http://www.w3.org/1999/XMLSchema' => array(
|
|
||||||
'i4'=>'','int'=>'integer','boolean'=>'boolean','string'=>'string','double'=>'double',
|
|
||||||
'float'=>'double','dateTime'=>'string',
|
|
||||||
'timeInstant'=>'string','base64Binary'=>'string','base64'=>'string','ur-type'=>'array'),
|
|
||||||
'http://soapinterop.org/xsd' => array('SOAPStruct'=>'struct'),
|
|
||||||
'http://schemas.xmlsoap.org/soap/encoding/' => array('base64'=>'string','array'=>'array','Array'=>'array'),
|
|
||||||
'http://xml.apache.org/xml-soap' => array('Map')
|
|
||||||
);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* XML entities to convert
|
|
||||||
*
|
|
||||||
* @var array
|
|
||||||
* @access public
|
|
||||||
* @deprecated
|
|
||||||
* @see expandEntities
|
|
||||||
*/
|
|
||||||
var $xmlEntities = array('quot' => '"','amp' => '&',
|
|
||||||
'lt' => '<','gt' => '>','apos' => "'");
|
|
||||||
|
|
||||||
/**
|
|
||||||
* constructor
|
|
||||||
*
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function nusoap_base() {
|
|
||||||
$this->debugLevel = $GLOBALS['_transient']['static']['nusoap_base']->globalDebugLevel;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the global debug level, which applies to future instances
|
|
||||||
*
|
|
||||||
* @return integer Debug level 0-9, where 0 turns off
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getGlobalDebugLevel() {
|
|
||||||
return $GLOBALS['_transient']['static']['nusoap_base']->globalDebugLevel;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sets the global debug level, which applies to future instances
|
|
||||||
*
|
|
||||||
* @param int $level Debug level 0-9, where 0 turns off
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setGlobalDebugLevel($level) {
|
|
||||||
$GLOBALS['_transient']['static']['nusoap_base']->globalDebugLevel = $level;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the debug level for this instance
|
|
||||||
*
|
|
||||||
* @return int Debug level 0-9, where 0 turns off
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getDebugLevel() {
|
|
||||||
return $this->debugLevel;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sets the debug level for this instance
|
|
||||||
*
|
|
||||||
* @param int $level Debug level 0-9, where 0 turns off
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setDebugLevel($level) {
|
|
||||||
$this->debugLevel = $level;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* adds debug data to the instance debug string with formatting
|
|
||||||
*
|
|
||||||
* @param string $string debug data
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function debug($string){
|
|
||||||
if ($this->debugLevel > 0) {
|
|
||||||
$this->appendDebug($this->getmicrotime().' '.get_class($this).": $string\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* adds debug data to the instance debug string without formatting
|
|
||||||
*
|
|
||||||
* @param string $string debug data
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function appendDebug($string){
|
|
||||||
if ($this->debugLevel > 0) {
|
|
||||||
// it would be nice to use a memory stream here to use
|
|
||||||
// memory more efficiently
|
|
||||||
$this->debug_str .= $string;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* clears the current debug data for this instance
|
|
||||||
*
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function clearDebug() {
|
|
||||||
// it would be nice to use a memory stream here to use
|
|
||||||
// memory more efficiently
|
|
||||||
$this->debug_str = '';
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the current debug data for this instance
|
|
||||||
*
|
|
||||||
* @return debug data
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function &getDebug() {
|
|
||||||
// it would be nice to use a memory stream here to use
|
|
||||||
// memory more efficiently
|
|
||||||
return $this->debug_str;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the current debug data for this instance as an XML comment
|
|
||||||
* this may change the contents of the debug data
|
|
||||||
*
|
|
||||||
* @return debug data as an XML comment
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function &getDebugAsXMLComment() {
|
|
||||||
// it would be nice to use a memory stream here to use
|
|
||||||
// memory more efficiently
|
|
||||||
while (strpos($this->debug_str, '--')) {
|
|
||||||
$this->debug_str = str_replace('--', '- -', $this->debug_str);
|
|
||||||
}
|
|
||||||
return "<!--\n" . $this->debug_str . "\n-->";
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* expands entities, e.g. changes '<' to '<'.
|
|
||||||
*
|
|
||||||
* @param string $val The string in which to expand entities.
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function expandEntities($val) {
|
|
||||||
if ($this->charencoding) {
|
|
||||||
$val = str_replace('&', '&', $val);
|
|
||||||
$val = str_replace("'", ''', $val);
|
|
||||||
$val = str_replace('"', '"', $val);
|
|
||||||
$val = str_replace('<', '<', $val);
|
|
||||||
$val = str_replace('>', '>', $val);
|
|
||||||
}
|
|
||||||
return $val;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* returns error string if present
|
|
||||||
*
|
|
||||||
* @return mixed error string or false
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getError(){
|
|
||||||
if($this->error_str != ''){
|
|
||||||
return $this->error_str;
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sets error string
|
|
||||||
*
|
|
||||||
* @return boolean $string error string
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function setError($str){
|
|
||||||
$this->error_str = $str;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* detect if array is a simple array or a struct (associative array)
|
|
||||||
*
|
|
||||||
* @param mixed $val The PHP array
|
|
||||||
* @return string (arraySimple|arrayStruct)
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function isArraySimpleOrStruct($val) {
|
|
||||||
$keyList = array_keys($val);
|
|
||||||
foreach ($keyList as $keyListValue) {
|
|
||||||
if (!is_int($keyListValue)) {
|
|
||||||
return 'arrayStruct';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return 'arraySimple';
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* serializes PHP values in accordance w/ section 5. Type information is
|
|
||||||
* not serialized if $use == 'literal'.
|
|
||||||
*
|
|
||||||
* @param mixed $val The value to serialize
|
|
||||||
* @param string $name The name (local part) of the XML element
|
|
||||||
* @param string $type The XML schema type (local part) for the element
|
|
||||||
* @param string $name_ns The namespace for the name of the XML element
|
|
||||||
* @param string $type_ns The namespace for the type of the element
|
|
||||||
* @param array $attributes The attributes to serialize as name=>value pairs
|
|
||||||
* @param string $use The WSDL "use" (encoded|literal)
|
|
||||||
* @return string The serialized element, possibly with child elements
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function serialize_val($val,$name=false,$type=false,$name_ns=false,$type_ns=false,$attributes=false,$use='encoded'){
|
|
||||||
$this->debug("in serialize_val: name=$name, type=$type, name_ns=$name_ns, type_ns=$type_ns, use=$use");
|
|
||||||
$this->appendDebug('value=' . $this->varDump($val));
|
|
||||||
$this->appendDebug('attributes=' . $this->varDump($attributes));
|
|
||||||
|
|
||||||
if(is_object($val) && get_class($val) == 'soapval'){
|
|
||||||
return $val->serialize($use);
|
|
||||||
}
|
|
||||||
// force valid name if necessary
|
|
||||||
if (is_numeric($name)) {
|
|
||||||
$name = '__numeric_' . $name;
|
|
||||||
} elseif (! $name) {
|
|
||||||
$name = 'noname';
|
|
||||||
}
|
|
||||||
// if name has ns, add ns prefix to name
|
|
||||||
$xmlns = '';
|
|
||||||
if($name_ns){
|
|
||||||
$prefix = 'nu'.rand(1000,9999);
|
|
||||||
$name = $prefix.':'.$name;
|
|
||||||
$xmlns .= " xmlns:$prefix=\"$name_ns\"";
|
|
||||||
}
|
|
||||||
// if type is prefixed, create type prefix
|
|
||||||
if($type_ns != '' && $type_ns == $this->namespaces['xsd']){
|
|
||||||
// need to fix this. shouldn't default to xsd if no ns specified
|
|
||||||
// w/o checking against typemap
|
|
||||||
$type_prefix = 'xsd';
|
|
||||||
} elseif($type_ns){
|
|
||||||
$type_prefix = 'ns'.rand(1000,9999);
|
|
||||||
$xmlns .= " xmlns:$type_prefix=\"$type_ns\"";
|
|
||||||
}
|
|
||||||
// serialize attributes if present
|
|
||||||
$atts = '';
|
|
||||||
if($attributes){
|
|
||||||
foreach($attributes as $k => $v){
|
|
||||||
$atts .= " $k=\"".$this->expandEntities($v).'"';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// serialize null value
|
|
||||||
if (is_null($val)) {
|
|
||||||
if ($use == 'literal') {
|
|
||||||
// TODO: depends on minOccurs
|
|
||||||
return "<$name$xmlns $atts/>";
|
|
||||||
} else {
|
|
||||||
if (isset($type) && isset($type_prefix)) {
|
|
||||||
$type_str = " xsi:type=\"$type_prefix:$type\"";
|
|
||||||
} else {
|
|
||||||
$type_str = '';
|
|
||||||
}
|
|
||||||
return "<$name$xmlns$type_str $atts xsi:nil=\"true\"/>";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// serialize if an xsd built-in primitive type
|
|
||||||
if($type != '' && isset($this->typemap[$this->XMLSchemaVersion][$type])){
|
|
||||||
if (is_bool($val)) {
|
|
||||||
if ($type == 'boolean') {
|
|
||||||
$val = $val ? 'true' : 'false';
|
|
||||||
} elseif (! $val) {
|
|
||||||
$val = 0;
|
|
||||||
}
|
|
||||||
} else if (is_string($val)) {
|
|
||||||
$val = $this->expandEntities($val);
|
|
||||||
}
|
|
||||||
if ($use == 'literal') {
|
|
||||||
return "<$name$xmlns $atts>$val</$name>";
|
|
||||||
} else {
|
|
||||||
return "<$name$xmlns $atts xsi:type=\"xsd:$type\">$val</$name>";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// detect type and serialize
|
|
||||||
$xml = '';
|
|
||||||
switch(true) {
|
|
||||||
case (is_bool($val) || $type == 'boolean'):
|
|
||||||
if ($type == 'boolean') {
|
|
||||||
$val = $val ? 'true' : 'false';
|
|
||||||
} elseif (! $val) {
|
|
||||||
$val = 0;
|
|
||||||
}
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$xml .= "<$name$xmlns $atts>$val</$name>";
|
|
||||||
} else {
|
|
||||||
$xml .= "<$name$xmlns xsi:type=\"xsd:boolean\"$atts>$val</$name>";
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case (is_int($val) || is_long($val) || $type == 'int'):
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$xml .= "<$name$xmlns $atts>$val</$name>";
|
|
||||||
} else {
|
|
||||||
$xml .= "<$name$xmlns xsi:type=\"xsd:int\"$atts>$val</$name>";
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case (is_float($val)|| is_double($val) || $type == 'float'):
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$xml .= "<$name$xmlns $atts>$val</$name>";
|
|
||||||
} else {
|
|
||||||
$xml .= "<$name$xmlns xsi:type=\"xsd:float\"$atts>$val</$name>";
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case (is_string($val) || $type == 'string'):
|
|
||||||
$val = $this->expandEntities($val);
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$xml .= "<$name$xmlns $atts>$val</$name>";
|
|
||||||
} else {
|
|
||||||
$xml .= "<$name$xmlns xsi:type=\"xsd:string\"$atts>$val</$name>";
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case is_object($val):
|
|
||||||
if (! $name) {
|
|
||||||
$name = get_class($val);
|
|
||||||
$this->debug("In serialize_val, used class name $name as element name");
|
|
||||||
} else {
|
|
||||||
$this->debug("In serialize_val, do not override name $name for element name for class " . get_class($val));
|
|
||||||
}
|
|
||||||
foreach(get_object_vars($val) as $k => $v){
|
|
||||||
$pXml = isset($pXml) ? $pXml.$this->serialize_val($v,$k,false,false,false,false,$use) : $this->serialize_val($v,$k,false,false,false,false,$use);
|
|
||||||
}
|
|
||||||
$xml .= '<'.$name.'>'.$pXml.'</'.$name.'>';
|
|
||||||
break;
|
|
||||||
break;
|
|
||||||
case (is_array($val) || $type):
|
|
||||||
// detect if struct or array
|
|
||||||
$valueType = $this->isArraySimpleOrStruct($val);
|
|
||||||
if($valueType=='arraySimple' || ereg('^ArrayOf',$type)){
|
|
||||||
$i = 0;
|
|
||||||
if(is_array($val) && count($val)> 0){
|
|
||||||
foreach($val as $v){
|
|
||||||
if(is_object($v) && get_class($v) == 'soapval'){
|
|
||||||
$tt_ns = $v->type_ns;
|
|
||||||
$tt = $v->type;
|
|
||||||
} elseif (is_array($v)) {
|
|
||||||
$tt = $this->isArraySimpleOrStruct($v);
|
|
||||||
} else {
|
|
||||||
$tt = gettype($v);
|
|
||||||
}
|
|
||||||
$array_types[$tt] = 1;
|
|
||||||
// TODO: for literal, the name should be $name
|
|
||||||
$xml .= $this->serialize_val($v,'item',false,false,false,false,$use);
|
|
||||||
++$i;
|
|
||||||
}
|
|
||||||
if(count($array_types) > 1){
|
|
||||||
$array_typename = 'xsd:anyType';
|
|
||||||
} elseif(isset($tt) && isset($this->typemap[$this->XMLSchemaVersion][$tt])) {
|
|
||||||
if ($tt == 'integer') {
|
|
||||||
$tt = 'int';
|
|
||||||
}
|
|
||||||
$array_typename = 'xsd:'.$tt;
|
|
||||||
} elseif(isset($tt) && $tt == 'arraySimple'){
|
|
||||||
$array_typename = 'SOAP-ENC:Array';
|
|
||||||
} elseif(isset($tt) && $tt == 'arrayStruct'){
|
|
||||||
$array_typename = 'unnamed_struct_use_soapval';
|
|
||||||
} else {
|
|
||||||
// if type is prefixed, create type prefix
|
|
||||||
if ($tt_ns != '' && $tt_ns == $this->namespaces['xsd']){
|
|
||||||
$array_typename = 'xsd:' . $tt;
|
|
||||||
} elseif ($tt_ns) {
|
|
||||||
$tt_prefix = 'ns' . rand(1000, 9999);
|
|
||||||
$array_typename = "$tt_prefix:$tt";
|
|
||||||
$xmlns .= " xmlns:$tt_prefix=\"$tt_ns\"";
|
|
||||||
} else {
|
|
||||||
$array_typename = $tt;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$array_type = $i;
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$type_str = '';
|
|
||||||
} else if (isset($type) && isset($type_prefix)) {
|
|
||||||
$type_str = " xsi:type=\"$type_prefix:$type\"";
|
|
||||||
} else {
|
|
||||||
$type_str = " xsi:type=\"SOAP-ENC:Array\" SOAP-ENC:arrayType=\"".$array_typename."[$array_type]\"";
|
|
||||||
}
|
|
||||||
// empty array
|
|
||||||
} else {
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$type_str = '';
|
|
||||||
} else if (isset($type) && isset($type_prefix)) {
|
|
||||||
$type_str = " xsi:type=\"$type_prefix:$type\"";
|
|
||||||
} else {
|
|
||||||
$type_str = " xsi:type=\"SOAP-ENC:Array\" SOAP-ENC:arrayType=\"xsd:anyType[0]\"";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// TODO: for array in literal, there is no wrapper here
|
|
||||||
$xml = "<$name$xmlns$type_str$atts>".$xml."</$name>";
|
|
||||||
} else {
|
|
||||||
// got a struct
|
|
||||||
if(isset($type) && isset($type_prefix)){
|
|
||||||
$type_str = " xsi:type=\"$type_prefix:$type\"";
|
|
||||||
} else {
|
|
||||||
$type_str = '';
|
|
||||||
}
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$xml .= "<$name$xmlns $atts>";
|
|
||||||
} else {
|
|
||||||
$xml .= "<$name$xmlns$type_str$atts>";
|
|
||||||
}
|
|
||||||
foreach($val as $k => $v){
|
|
||||||
// Apache Map
|
|
||||||
if ($type == 'Map' && $type_ns == 'http://xml.apache.org/xml-soap') {
|
|
||||||
$xml .= '<item>';
|
|
||||||
$xml .= $this->serialize_val($k,'key',false,false,false,false,$use);
|
|
||||||
$xml .= $this->serialize_val($v,'value',false,false,false,false,$use);
|
|
||||||
$xml .= '</item>';
|
|
||||||
} else {
|
|
||||||
$xml .= $this->serialize_val($v,$k,false,false,false,false,$use);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$xml .= "</$name>";
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
$xml .= 'not detected, got '.gettype($val).' for '.$val;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
return $xml;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* serializes a message
|
|
||||||
*
|
|
||||||
* @param string $body the XML of the SOAP body
|
|
||||||
* @param mixed $headers optional string of XML with SOAP header content, or array of soapval objects for SOAP headers
|
|
||||||
* @param array $namespaces optional the namespaces used in generating the body and headers
|
|
||||||
* @param string $style optional (rpc|document)
|
|
||||||
* @param string $use optional (encoded|literal)
|
|
||||||
* @param string $encodingStyle optional (usually 'http://schemas.xmlsoap.org/soap/encoding/' for encoded)
|
|
||||||
* @return string the message
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function serializeEnvelope($body,$headers=false,$namespaces=array(),$style='rpc',$use='encoded',$encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'){
|
|
||||||
// TODO: add an option to automatically run utf8_encode on $body and $headers
|
|
||||||
// if $this->soap_defencoding is UTF-8. Not doing this automatically allows
|
|
||||||
// one to send arbitrary UTF-8 characters, not just characters that map to ISO-8859-1
|
|
||||||
|
|
||||||
$this->debug("In serializeEnvelope length=" . strlen($body) . " body (max 1000 characters)=" . substr($body, 0, 1000) . " style=$style use=$use encodingStyle=$encodingStyle");
|
|
||||||
$this->debug("headers:");
|
|
||||||
$this->appendDebug($this->varDump($headers));
|
|
||||||
$this->debug("namespaces:");
|
|
||||||
$this->appendDebug($this->varDump($namespaces));
|
|
||||||
|
|
||||||
// serialize namespaces
|
|
||||||
$ns_string = '';
|
|
||||||
foreach(array_merge($this->namespaces,$namespaces) as $k => $v){
|
|
||||||
$ns_string .= " xmlns:$k=\"$v\"";
|
|
||||||
}
|
|
||||||
if($encodingStyle) {
|
|
||||||
$ns_string = " SOAP-ENV:encodingStyle=\"$encodingStyle\"$ns_string";
|
|
||||||
}
|
|
||||||
|
|
||||||
// serialize headers
|
|
||||||
if($headers){
|
|
||||||
if (is_array($headers)) {
|
|
||||||
$xml = '';
|
|
||||||
foreach ($headers as $header) {
|
|
||||||
$xml .= $this->serialize_val($header, false, false, false, false, false, $use);
|
|
||||||
}
|
|
||||||
$headers = $xml;
|
|
||||||
$this->debug("In serializeEnvelope, serialzied array of headers to $headers");
|
|
||||||
}
|
|
||||||
$headers = "<SOAP-ENV:Header>".$headers."</SOAP-ENV:Header>";
|
|
||||||
}
|
|
||||||
// serialize envelope
|
|
||||||
return
|
|
||||||
'<?xml version="1.0" encoding="'.$this->soap_defencoding .'"?'.">".
|
|
||||||
'<SOAP-ENV:Envelope'.$ns_string.">".
|
|
||||||
$headers.
|
|
||||||
"<SOAP-ENV:Body>".
|
|
||||||
$body.
|
|
||||||
"</SOAP-ENV:Body>".
|
|
||||||
"</SOAP-ENV:Envelope>";
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* formats a string to be inserted into an HTML stream
|
|
||||||
*
|
|
||||||
* @param string $str The string to format
|
|
||||||
* @return string The formatted string
|
|
||||||
* @access public
|
|
||||||
* @deprecated
|
|
||||||
*/
|
|
||||||
function formatDump($str){
|
|
||||||
$str = htmlspecialchars($str);
|
|
||||||
return nl2br($str);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* contracts (changes namespace to prefix) a qualified name
|
|
||||||
*
|
|
||||||
* @param string $qname qname
|
|
||||||
* @return string contracted qname
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function contractQname($qname){
|
|
||||||
// get element namespace
|
|
||||||
//$this->xdebug("Contract $qname");
|
|
||||||
if (strrpos($qname, ':')) {
|
|
||||||
// get unqualified name
|
|
||||||
$name = substr($qname, strrpos($qname, ':') + 1);
|
|
||||||
// get ns
|
|
||||||
$ns = substr($qname, 0, strrpos($qname, ':'));
|
|
||||||
$p = $this->getPrefixFromNamespace($ns);
|
|
||||||
if ($p) {
|
|
||||||
return $p . ':' . $name;
|
|
||||||
}
|
|
||||||
return $qname;
|
|
||||||
} else {
|
|
||||||
return $qname;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* expands (changes prefix to namespace) a qualified name
|
|
||||||
*
|
|
||||||
* @param string $string qname
|
|
||||||
* @return string expanded qname
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function expandQname($qname){
|
|
||||||
// get element prefix
|
|
||||||
if(strpos($qname,':') && !ereg('^http://',$qname)){
|
|
||||||
// get unqualified name
|
|
||||||
$name = substr(strstr($qname,':'),1);
|
|
||||||
// get ns prefix
|
|
||||||
$prefix = substr($qname,0,strpos($qname,':'));
|
|
||||||
if(isset($this->namespaces[$prefix])){
|
|
||||||
return $this->namespaces[$prefix].':'.$name;
|
|
||||||
} else {
|
|
||||||
return $qname;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
return $qname;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* returns the local part of a prefixed string
|
|
||||||
* returns the original string, if not prefixed
|
|
||||||
*
|
|
||||||
* @param string $str The prefixed string
|
|
||||||
* @return string The local part
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getLocalPart($str){
|
|
||||||
if($sstr = strrchr($str,':')){
|
|
||||||
// get unqualified name
|
|
||||||
return substr( $sstr, 1 );
|
|
||||||
} else {
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* returns the prefix part of a prefixed string
|
|
||||||
* returns false, if not prefixed
|
|
||||||
*
|
|
||||||
* @param string $str The prefixed string
|
|
||||||
* @return mixed The prefix or false if there is no prefix
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getPrefix($str){
|
|
||||||
if($pos = strrpos($str,':')){
|
|
||||||
// get prefix
|
|
||||||
return substr($str,0,$pos);
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* pass it a prefix, it returns a namespace
|
|
||||||
*
|
|
||||||
* @param string $prefix The prefix
|
|
||||||
* @return mixed The namespace, false if no namespace has the specified prefix
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getNamespaceFromPrefix($prefix){
|
|
||||||
if (isset($this->namespaces[$prefix])) {
|
|
||||||
return $this->namespaces[$prefix];
|
|
||||||
}
|
|
||||||
//$this->setError("No namespace registered for prefix '$prefix'");
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* returns the prefix for a given namespace (or prefix)
|
|
||||||
* or false if no prefixes registered for the given namespace
|
|
||||||
*
|
|
||||||
* @param string $ns The namespace
|
|
||||||
* @return mixed The prefix, false if the namespace has no prefixes
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getPrefixFromNamespace($ns) {
|
|
||||||
foreach ($this->namespaces as $p => $n) {
|
|
||||||
if ($ns == $n || $ns == $p) {
|
|
||||||
$this->usedNamespaces[$p] = $n;
|
|
||||||
return $p;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* returns the time in ODBC canonical form with microseconds
|
|
||||||
*
|
|
||||||
* @return string The time in ODBC canonical form with microseconds
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getmicrotime() {
|
|
||||||
if (function_exists('gettimeofday')) {
|
|
||||||
$tod = gettimeofday();
|
|
||||||
$sec = $tod['sec'];
|
|
||||||
$usec = $tod['usec'];
|
|
||||||
} else {
|
|
||||||
$sec = time();
|
|
||||||
$usec = 0;
|
|
||||||
}
|
|
||||||
return strftime('%Y-%m-%d %H:%M:%S', $sec) . '.' . sprintf('%06d', $usec);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Returns a string with the output of var_dump
|
|
||||||
*
|
|
||||||
* @param mixed $data The variable to var_dump
|
|
||||||
* @return string The output of var_dump
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function varDump($data) {
|
|
||||||
ob_start();
|
|
||||||
var_dump($data);
|
|
||||||
$ret_val = ob_get_contents();
|
|
||||||
ob_end_clean();
|
|
||||||
return $ret_val;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// XML Schema Datatype Helper Functions
|
|
||||||
|
|
||||||
//xsd:dateTime helpers
|
|
||||||
|
|
||||||
/**
|
|
||||||
* convert unix timestamp to ISO 8601 compliant date string
|
|
||||||
*
|
|
||||||
* @param string $timestamp Unix time stamp
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function timestamp_to_iso8601($timestamp,$utc=true){
|
|
||||||
$datestr = date('Y-m-d\TH:i:sO',$timestamp);
|
|
||||||
if($utc){
|
|
||||||
$eregStr =
|
|
||||||
'([0-9]{4})-'. // centuries & years CCYY-
|
|
||||||
'([0-9]{2})-'. // months MM-
|
|
||||||
'([0-9]{2})'. // days DD
|
|
||||||
'T'. // separator T
|
|
||||||
'([0-9]{2}):'. // hours hh:
|
|
||||||
'([0-9]{2}):'. // minutes mm:
|
|
||||||
'([0-9]{2})(\.[0-9]*)?'. // seconds ss.ss...
|
|
||||||
'(Z|[+\-][0-9]{2}:?[0-9]{2})?'; // Z to indicate UTC, -/+HH:MM:SS.SS... for local tz's
|
|
||||||
|
|
||||||
if(ereg($eregStr,$datestr,$regs)){
|
|
||||||
return sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ',$regs[1],$regs[2],$regs[3],$regs[4],$regs[5],$regs[6]);
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
} else {
|
|
||||||
return $datestr;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* convert ISO 8601 compliant date string to unix timestamp
|
|
||||||
*
|
|
||||||
* @param string $datestr ISO 8601 compliant date string
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function iso8601_to_timestamp($datestr){
|
|
||||||
$eregStr =
|
|
||||||
'([0-9]{4})-'. // centuries & years CCYY-
|
|
||||||
'([0-9]{2})-'. // months MM-
|
|
||||||
'([0-9]{2})'. // days DD
|
|
||||||
'T'. // separator T
|
|
||||||
'([0-9]{2}):'. // hours hh:
|
|
||||||
'([0-9]{2}):'. // minutes mm:
|
|
||||||
'([0-9]{2})(\.[0-9]+)?'. // seconds ss.ss...
|
|
||||||
'(Z|[+\-][0-9]{2}:?[0-9]{2})?'; // Z to indicate UTC, -/+HH:MM:SS.SS... for local tz's
|
|
||||||
if(ereg($eregStr,$datestr,$regs)){
|
|
||||||
// not utc
|
|
||||||
if($regs[8] != 'Z'){
|
|
||||||
$op = substr($regs[8],0,1);
|
|
||||||
$h = substr($regs[8],1,2);
|
|
||||||
$m = substr($regs[8],strlen($regs[8])-2,2);
|
|
||||||
if($op == '-'){
|
|
||||||
$regs[4] = $regs[4] + $h;
|
|
||||||
$regs[5] = $regs[5] + $m;
|
|
||||||
} elseif($op == '+'){
|
|
||||||
$regs[4] = $regs[4] - $h;
|
|
||||||
$regs[5] = $regs[5] - $m;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return strtotime("$regs[1]-$regs[2]-$regs[3] $regs[4]:$regs[5]:$regs[6]Z");
|
|
||||||
} else {
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sleeps some number of microseconds
|
|
||||||
*
|
|
||||||
* @param string $usec the number of microseconds to sleep
|
|
||||||
* @access public
|
|
||||||
* @deprecated
|
|
||||||
*/
|
|
||||||
function usleepWindows($usec)
|
|
||||||
{
|
|
||||||
$start = gettimeofday();
|
|
||||||
|
|
||||||
do
|
|
||||||
{
|
|
||||||
$stop = gettimeofday();
|
|
||||||
$timePassed = 1000000 * ($stop['sec'] - $start['sec'])
|
|
||||||
+ $stop['usec'] - $start['usec'];
|
|
||||||
}
|
|
||||||
while ($timePassed < $usec);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
?>
|
|
||||||
859
thirdparty/pear/class.soapclient.php
vendored
859
thirdparty/pear/class.soapclient.php
vendored
@@ -1,859 +0,0 @@
|
|||||||
<?php
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/**
|
|
||||||
*
|
|
||||||
* soapclient higher level class for easy usage.
|
|
||||||
*
|
|
||||||
* usage:
|
|
||||||
*
|
|
||||||
* // instantiate client with server info
|
|
||||||
* $soapclient = new soapclient( string path [ ,boolean wsdl] );
|
|
||||||
*
|
|
||||||
* // call method, get results
|
|
||||||
* echo $soapclient->call( string methodname [ ,array parameters] );
|
|
||||||
*
|
|
||||||
* // bye bye client
|
|
||||||
* unset($soapclient);
|
|
||||||
*
|
|
||||||
* @author Dietrich Ayala <dietrich@ganx4.com>
|
|
||||||
* @version $Id: class.soapclient.php,v 1.52 2005/07/27 19:24:42 snichol Exp $
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
class soapclient extends nusoap_base {
|
|
||||||
|
|
||||||
var $username = '';
|
|
||||||
var $password = '';
|
|
||||||
var $authtype = '';
|
|
||||||
var $certRequest = array();
|
|
||||||
var $requestHeaders = false; // SOAP headers in request (text)
|
|
||||||
var $responseHeaders = ''; // SOAP headers from response (incomplete namespace resolution) (text)
|
|
||||||
var $document = ''; // SOAP body response portion (incomplete namespace resolution) (text)
|
|
||||||
var $endpoint;
|
|
||||||
var $forceEndpoint = ''; // overrides WSDL endpoint
|
|
||||||
var $proxyhost = '';
|
|
||||||
var $proxyport = '';
|
|
||||||
var $proxyusername = '';
|
|
||||||
var $proxypassword = '';
|
|
||||||
var $xml_encoding = ''; // character set encoding of incoming (response) messages
|
|
||||||
var $http_encoding = false;
|
|
||||||
var $timeout = 0; // HTTP connection timeout
|
|
||||||
var $response_timeout = 30; // HTTP response timeout
|
|
||||||
var $endpointType = ''; // soap|wsdl, empty for WSDL initialization error
|
|
||||||
var $persistentConnection = false;
|
|
||||||
var $defaultRpcParams = false; // This is no longer used
|
|
||||||
var $request = ''; // HTTP request
|
|
||||||
var $response = ''; // HTTP response
|
|
||||||
var $responseData = ''; // SOAP payload of response
|
|
||||||
var $cookies = array(); // Cookies from response or for request
|
|
||||||
var $decode_utf8 = true; // toggles whether the parser decodes element content w/ utf8_decode()
|
|
||||||
var $operations = array(); // WSDL operations, empty for WSDL initialization error
|
|
||||||
|
|
||||||
/*
|
|
||||||
* fault related variables
|
|
||||||
*/
|
|
||||||
/**
|
|
||||||
* @var fault
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $fault;
|
|
||||||
/**
|
|
||||||
* @var faultcode
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $faultcode;
|
|
||||||
/**
|
|
||||||
* @var faultstring
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $faultstring;
|
|
||||||
/**
|
|
||||||
* @var faultdetail
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
var $faultdetail;
|
|
||||||
|
|
||||||
/**
|
|
||||||
* constructor
|
|
||||||
*
|
|
||||||
* @param mixed $endpoint SOAP server or WSDL URL (string), or wsdl instance (object)
|
|
||||||
* @param bool $wsdl optional, set to true if using WSDL
|
|
||||||
* @param int $portName optional portName in WSDL document
|
|
||||||
* @param string $proxyhost
|
|
||||||
* @param string $proxyport
|
|
||||||
* @param string $proxyusername
|
|
||||||
* @param string $proxypassword
|
|
||||||
* @param integer $timeout set the connection timeout
|
|
||||||
* @param integer $response_timeout set the response timeout
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function soapclient($endpoint,$wsdl = false,$proxyhost = false,$proxyport = false,$proxyusername = false, $proxypassword = false, $timeout = 0, $response_timeout = 30){
|
|
||||||
parent::nusoap_base();
|
|
||||||
$this->endpoint = $endpoint;
|
|
||||||
$this->proxyhost = $proxyhost;
|
|
||||||
$this->proxyport = $proxyport;
|
|
||||||
$this->proxyusername = $proxyusername;
|
|
||||||
$this->proxypassword = $proxypassword;
|
|
||||||
$this->timeout = $timeout;
|
|
||||||
$this->response_timeout = $response_timeout;
|
|
||||||
|
|
||||||
// make values
|
|
||||||
if($wsdl){
|
|
||||||
if (is_object($endpoint) && (get_class($endpoint) == 'wsdl')) {
|
|
||||||
$this->wsdl = $endpoint;
|
|
||||||
$this->endpoint = $this->wsdl->wsdl;
|
|
||||||
$this->wsdlFile = $this->endpoint;
|
|
||||||
$this->debug('existing wsdl instance created from ' . $this->endpoint);
|
|
||||||
} else {
|
|
||||||
$this->wsdlFile = $this->endpoint;
|
|
||||||
|
|
||||||
// instantiate wsdl object and parse wsdl file
|
|
||||||
$this->debug('instantiating wsdl class with doc: '.$endpoint);
|
|
||||||
$this->wsdl =& new wsdl($this->wsdlFile,$this->proxyhost,$this->proxyport,$this->proxyusername,$this->proxypassword,$this->timeout,$this->response_timeout);
|
|
||||||
}
|
|
||||||
$this->appendDebug($this->wsdl->getDebug());
|
|
||||||
$this->wsdl->clearDebug();
|
|
||||||
// catch errors
|
|
||||||
if($errstr = $this->wsdl->getError()){
|
|
||||||
$this->debug('got wsdl error: '.$errstr);
|
|
||||||
$this->setError('wsdl error: '.$errstr);
|
|
||||||
} elseif($this->operations = $this->wsdl->getOperations()){
|
|
||||||
$this->debug( 'got '.count($this->operations).' operations from wsdl '.$this->wsdlFile);
|
|
||||||
$this->endpointType = 'wsdl';
|
|
||||||
} else {
|
|
||||||
$this->debug( 'getOperations returned false');
|
|
||||||
$this->setError('no operations defined in the WSDL document!');
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$this->debug("instantiate SOAP with endpoint at $endpoint");
|
|
||||||
$this->endpointType = 'soap';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* calls method, returns PHP native type
|
|
||||||
*
|
|
||||||
* @param string $method SOAP server URL or path
|
|
||||||
* @param mixed $params An array, associative or simple, of the parameters
|
|
||||||
* for the method call, or a string that is the XML
|
|
||||||
* for the call. For rpc style, this call will
|
|
||||||
* wrap the XML in a tag named after the method, as
|
|
||||||
* well as the SOAP Envelope and Body. For document
|
|
||||||
* style, this will only wrap with the Envelope and Body.
|
|
||||||
* IMPORTANT: when using an array with document style,
|
|
||||||
* in which case there
|
|
||||||
* is really one parameter, the root of the fragment
|
|
||||||
* used in the call, which encloses what programmers
|
|
||||||
* normally think of parameters. A parameter array
|
|
||||||
* *must* include the wrapper.
|
|
||||||
* @param string $namespace optional method namespace (WSDL can override)
|
|
||||||
* @param string $soapAction optional SOAPAction value (WSDL can override)
|
|
||||||
* @param mixed $headers optional string of XML with SOAP header content, or array of soapval objects for SOAP headers
|
|
||||||
* @param boolean $rpcParams optional (no longer used)
|
|
||||||
* @param string $style optional (rpc|document) the style to use when serializing parameters (WSDL can override)
|
|
||||||
* @param string $use optional (encoded|literal) the use when serializing parameters (WSDL can override)
|
|
||||||
* @return mixed response from SOAP call
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function call($operation,$params=array(),$namespace='http://tempuri.org',$soapAction='',$headers=false,$rpcParams=null,$style='rpc',$use='encoded'){
|
|
||||||
$this->operation = $operation;
|
|
||||||
$this->fault = false;
|
|
||||||
$this->setError('');
|
|
||||||
$this->request = '';
|
|
||||||
$this->response = '';
|
|
||||||
$this->responseData = '';
|
|
||||||
$this->faultstring = '';
|
|
||||||
$this->faultcode = '';
|
|
||||||
$this->opData = array();
|
|
||||||
|
|
||||||
$this->debug("call: operation=$operation, namespace=$namespace, soapAction=$soapAction, rpcParams=$rpcParams, style=$style, use=$use, endpointType=$this->endpointType");
|
|
||||||
$this->appendDebug('params=' . $this->varDump($params));
|
|
||||||
$this->appendDebug('headers=' . $this->varDump($headers));
|
|
||||||
if ($headers) {
|
|
||||||
$this->requestHeaders = $headers;
|
|
||||||
}
|
|
||||||
// serialize parameters
|
|
||||||
if($this->endpointType == 'wsdl' && $opData = $this->getOperationData($operation)){
|
|
||||||
// use WSDL for operation
|
|
||||||
$this->opData = $opData;
|
|
||||||
$this->debug("found operation");
|
|
||||||
$this->appendDebug('opData=' . $this->varDump($opData));
|
|
||||||
if (isset($opData['soapAction'])) {
|
|
||||||
$soapAction = $opData['soapAction'];
|
|
||||||
}
|
|
||||||
if (! $this->forceEndpoint) {
|
|
||||||
$this->endpoint = $opData['endpoint'];
|
|
||||||
} else {
|
|
||||||
$this->endpoint = $this->forceEndpoint;
|
|
||||||
}
|
|
||||||
$namespace = isset($opData['input']['namespace']) ? $opData['input']['namespace'] : $namespace;
|
|
||||||
$style = $opData['style'];
|
|
||||||
$use = $opData['input']['use'];
|
|
||||||
// add ns to ns array
|
|
||||||
if($namespace != '' && !isset($this->wsdl->namespaces[$namespace])){
|
|
||||||
$nsPrefix = 'ns' . rand(1000, 9999);
|
|
||||||
$this->wsdl->namespaces[$nsPrefix] = $namespace;
|
|
||||||
}
|
|
||||||
$nsPrefix = $this->wsdl->getPrefixFromNamespace($namespace);
|
|
||||||
// serialize payload
|
|
||||||
if (is_string($params)) {
|
|
||||||
$this->debug("serializing param string for WSDL operation $operation");
|
|
||||||
$payload = $params;
|
|
||||||
} elseif (is_array($params)) {
|
|
||||||
$this->debug("serializing param array for WSDL operation $operation");
|
|
||||||
$payload = $this->wsdl->serializeRPCParameters($operation,'input',$params);
|
|
||||||
} else {
|
|
||||||
$this->debug('params must be array or string');
|
|
||||||
$this->setError('params must be array or string');
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
$usedNamespaces = $this->wsdl->usedNamespaces;
|
|
||||||
if (isset($opData['input']['encodingStyle'])) {
|
|
||||||
$encodingStyle = $opData['input']['encodingStyle'];
|
|
||||||
} else {
|
|
||||||
$encodingStyle = '';
|
|
||||||
}
|
|
||||||
$this->appendDebug($this->wsdl->getDebug());
|
|
||||||
$this->wsdl->clearDebug();
|
|
||||||
if ($errstr = $this->wsdl->getError()) {
|
|
||||||
$this->debug('got wsdl error: '.$errstr);
|
|
||||||
$this->setError('wsdl error: '.$errstr);
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
} elseif($this->endpointType == 'wsdl') {
|
|
||||||
// operation not in WSDL
|
|
||||||
$this->appendDebug($this->wsdl->getDebug());
|
|
||||||
$this->wsdl->clearDebug();
|
|
||||||
$this->setError( 'operation '.$operation.' not present.');
|
|
||||||
$this->debug("operation '$operation' not present.");
|
|
||||||
return false;
|
|
||||||
} else {
|
|
||||||
// no WSDL
|
|
||||||
//$this->namespaces['ns1'] = $namespace;
|
|
||||||
$nsPrefix = 'ns' . rand(1000, 9999);
|
|
||||||
// serialize
|
|
||||||
$payload = '';
|
|
||||||
if (is_string($params)) {
|
|
||||||
$this->debug("serializing param string for operation $operation");
|
|
||||||
$payload = $params;
|
|
||||||
} elseif (is_array($params)) {
|
|
||||||
$this->debug("serializing param array for operation $operation");
|
|
||||||
foreach($params as $k => $v){
|
|
||||||
$payload .= $this->serialize_val($v,$k,false,false,false,false,$use);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$this->debug('params must be array or string');
|
|
||||||
$this->setError('params must be array or string');
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
$usedNamespaces = array();
|
|
||||||
if ($use == 'encoded') {
|
|
||||||
$encodingStyle = 'http://schemas.xmlsoap.org/soap/encoding/';
|
|
||||||
} else {
|
|
||||||
$encodingStyle = '';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// wrap RPC calls with method element
|
|
||||||
if ($style == 'rpc') {
|
|
||||||
if ($use == 'literal') {
|
|
||||||
$this->debug("wrapping RPC request with literal method element");
|
|
||||||
if ($namespace) {
|
|
||||||
$payload = "<$operation xmlns=\"$namespace\">" . $payload . "</$operation>";
|
|
||||||
} else {
|
|
||||||
$payload = "<$operation>" . $payload . "</$operation>";
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$this->debug("wrapping RPC request with encoded method element");
|
|
||||||
if ($namespace) {
|
|
||||||
$payload = "<$nsPrefix:$operation xmlns:$nsPrefix=\"$namespace\">" .
|
|
||||||
$payload .
|
|
||||||
"</$nsPrefix:$operation>";
|
|
||||||
} else {
|
|
||||||
$payload = "<$operation>" .
|
|
||||||
$payload .
|
|
||||||
"</$operation>";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// serialize envelope
|
|
||||||
$soapmsg = $this->serializeEnvelope($payload,$this->requestHeaders,$usedNamespaces,$style,$use,$encodingStyle);
|
|
||||||
$this->debug("endpoint=$this->endpoint, soapAction=$soapAction, namespace=$namespace, style=$style, use=$use, encodingStyle=$encodingStyle");
|
|
||||||
$this->debug('SOAP message length=' . strlen($soapmsg) . ' contents (max 1000 bytes)=' . substr($soapmsg, 0, 1000));
|
|
||||||
// send
|
|
||||||
$return = $this->send($this->getHTTPBody($soapmsg),$soapAction,$this->timeout,$this->response_timeout);
|
|
||||||
if($errstr = $this->getError()){
|
|
||||||
$this->debug('Error: '.$errstr);
|
|
||||||
return false;
|
|
||||||
} else {
|
|
||||||
$this->return = $return;
|
|
||||||
$this->debug('sent message successfully and got a(n) '.gettype($return));
|
|
||||||
$this->appendDebug('return=' . $this->varDump($return));
|
|
||||||
|
|
||||||
// fault?
|
|
||||||
if(is_array($return) && isset($return['faultcode'])){
|
|
||||||
$this->debug('got fault');
|
|
||||||
$this->setError($return['faultcode'].': '.$return['faultstring']);
|
|
||||||
$this->fault = true;
|
|
||||||
foreach($return as $k => $v){
|
|
||||||
$this->$k = $v;
|
|
||||||
$this->debug("$k = $v<br>");
|
|
||||||
}
|
|
||||||
return $return;
|
|
||||||
} elseif ($style == 'document') {
|
|
||||||
// NOTE: if the response is defined to have multiple parts (i.e. unwrapped),
|
|
||||||
// we are only going to return the first part here...sorry about that
|
|
||||||
return $return;
|
|
||||||
} else {
|
|
||||||
// array of return values
|
|
||||||
if(is_array($return)){
|
|
||||||
// multiple 'out' parameters, which we return wrapped up
|
|
||||||
// in the array
|
|
||||||
if(sizeof($return) > 1){
|
|
||||||
return $return;
|
|
||||||
}
|
|
||||||
// single 'out' parameter (normally the return value)
|
|
||||||
$return = array_shift($return);
|
|
||||||
$this->debug('return shifted value: ');
|
|
||||||
$this->appendDebug($this->varDump($return));
|
|
||||||
return $return;
|
|
||||||
// nothing returned (ie, echoVoid)
|
|
||||||
} else {
|
|
||||||
return "";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* get available data pertaining to an operation
|
|
||||||
*
|
|
||||||
* @param string $operation operation name
|
|
||||||
* @return array array of data pertaining to the operation
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getOperationData($operation){
|
|
||||||
if(isset($this->operations[$operation])){
|
|
||||||
return $this->operations[$operation];
|
|
||||||
}
|
|
||||||
$this->debug("No data for operation: $operation");
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* send the SOAP message
|
|
||||||
*
|
|
||||||
* Note: if the operation has multiple return values
|
|
||||||
* the return value of this method will be an array
|
|
||||||
* of those values.
|
|
||||||
*
|
|
||||||
* @param string $msg a SOAPx4 soapmsg object
|
|
||||||
* @param string $soapaction SOAPAction value
|
|
||||||
* @param integer $timeout set connection timeout in seconds
|
|
||||||
* @param integer $response_timeout set response timeout in seconds
|
|
||||||
* @return mixed native PHP types.
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function send($msg, $soapaction = '', $timeout=0, $response_timeout=30) {
|
|
||||||
$this->checkCookies();
|
|
||||||
// detect transport
|
|
||||||
switch(true){
|
|
||||||
// http(s)
|
|
||||||
case ereg('^http',$this->endpoint):
|
|
||||||
$this->debug('transporting via HTTP');
|
|
||||||
if($this->persistentConnection == true && is_object($this->persistentConnection)){
|
|
||||||
$http =& $this->persistentConnection;
|
|
||||||
} else {
|
|
||||||
$http = new soap_transport_http($this->endpoint);
|
|
||||||
if ($this->persistentConnection) {
|
|
||||||
$http->usePersistentConnection();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$http->setContentType($this->getHTTPContentType(), $this->getHTTPContentTypeCharset());
|
|
||||||
$http->setSOAPAction($soapaction);
|
|
||||||
if($this->proxyhost && $this->proxyport){
|
|
||||||
$http->setProxy($this->proxyhost,$this->proxyport,$this->proxyusername,$this->proxypassword);
|
|
||||||
}
|
|
||||||
if($this->authtype != '') {
|
|
||||||
$http->setCredentials($this->username, $this->password, $this->authtype, array(), $this->certRequest);
|
|
||||||
}
|
|
||||||
if($this->http_encoding != ''){
|
|
||||||
$http->setEncoding($this->http_encoding);
|
|
||||||
}
|
|
||||||
$this->debug('sending message, length='.strlen($msg));
|
|
||||||
if(ereg('^http:',$this->endpoint)){
|
|
||||||
//if(strpos($this->endpoint,'http:')){
|
|
||||||
$this->responseData = $http->send($msg,$timeout,$response_timeout,$this->cookies);
|
|
||||||
} elseif(ereg('^https',$this->endpoint)){
|
|
||||||
//} elseif(strpos($this->endpoint,'https:')){
|
|
||||||
//if(phpversion() == '4.3.0-dev'){
|
|
||||||
//$response = $http->send($msg,$timeout,$response_timeout);
|
|
||||||
//$this->request = $http->outgoing_payload;
|
|
||||||
//$this->response = $http->incoming_payload;
|
|
||||||
//} else
|
|
||||||
$this->responseData = $http->sendHTTPS($msg,$timeout,$response_timeout,$this->cookies);
|
|
||||||
} else {
|
|
||||||
$this->setError('no http/s in endpoint url');
|
|
||||||
}
|
|
||||||
$this->request = $http->outgoing_payload;
|
|
||||||
$this->response = $http->incoming_payload;
|
|
||||||
$this->appendDebug($http->getDebug());
|
|
||||||
$this->UpdateCookies($http->incoming_cookies);
|
|
||||||
|
|
||||||
// save transport object if using persistent connections
|
|
||||||
if ($this->persistentConnection) {
|
|
||||||
$http->clearDebug();
|
|
||||||
if (!is_object($this->persistentConnection)) {
|
|
||||||
$this->persistentConnection = $http;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if($err = $http->getError()){
|
|
||||||
$this->setError('HTTP Error: '.$err);
|
|
||||||
return false;
|
|
||||||
} elseif($this->getError()){
|
|
||||||
return false;
|
|
||||||
} else {
|
|
||||||
$this->debug('got response, length='. strlen($this->responseData).' type='.$http->incoming_headers['content-type']);
|
|
||||||
return $this->parseResponse($http->incoming_headers, $this->responseData);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
$this->setError('no transport found, or selected transport is not yet supported!');
|
|
||||||
return false;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* processes SOAP message returned from server
|
|
||||||
*
|
|
||||||
* @param array $headers The HTTP headers
|
|
||||||
* @param string $data unprocessed response data from server
|
|
||||||
* @return mixed value of the message, decoded into a PHP type
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function parseResponse($headers, $data) {
|
|
||||||
$this->debug('Entering parseResponse() for data of length ' . strlen($data) . ' and type ' . $headers['content-type']);
|
|
||||||
if (!strstr($headers['content-type'], 'text/xml')) {
|
|
||||||
$this->setError('Response not of type text/xml');
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
if (strpos($headers['content-type'], '=')) {
|
|
||||||
$enc = str_replace('"', '', substr(strstr($headers["content-type"], '='), 1));
|
|
||||||
$this->debug('Got response encoding: ' . $enc);
|
|
||||||
if(preg_match('/(ISO-8859-1|US-ASCII|UTF-8)/',$enc)){
|
|
||||||
$this->xml_encoding = strtoupper($enc);
|
|
||||||
} else {
|
|
||||||
$this->xml_encoding = 'US-ASCII';
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
// should be US-ASCII for HTTP 1.0 or ISO-8859-1 for HTTP 1.1
|
|
||||||
$this->xml_encoding = 'ISO-8859-1';
|
|
||||||
}
|
|
||||||
$this->debug('Use encoding: ' . $this->xml_encoding . ' when creating soap_parser');
|
|
||||||
$parser = new soap_parser($data,$this->xml_encoding,$this->operation,$this->decode_utf8);
|
|
||||||
// add parser debug data to our debug
|
|
||||||
$this->appendDebug($parser->getDebug());
|
|
||||||
// if parse errors
|
|
||||||
if($errstr = $parser->getError()){
|
|
||||||
$this->setError( $errstr);
|
|
||||||
// destroy the parser object
|
|
||||||
unset($parser);
|
|
||||||
return false;
|
|
||||||
} else {
|
|
||||||
// get SOAP headers
|
|
||||||
$this->responseHeaders = $parser->getHeaders();
|
|
||||||
// get decoded message
|
|
||||||
$return = $parser->get_response();
|
|
||||||
// add document for doclit support
|
|
||||||
$this->document = $parser->document;
|
|
||||||
// destroy the parser object
|
|
||||||
unset($parser);
|
|
||||||
// return decode message
|
|
||||||
return $return;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sets the SOAP endpoint, which can override WSDL
|
|
||||||
*
|
|
||||||
* @param $endpoint string The endpoint URL to use, or empty string or false to prevent override
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setEndpoint($endpoint) {
|
|
||||||
$this->forceEndpoint = $endpoint;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* set the SOAP headers
|
|
||||||
*
|
|
||||||
* @param $headers mixed String of XML with SOAP header content, or array of soapval objects for SOAP headers
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setHeaders($headers){
|
|
||||||
$this->requestHeaders = $headers;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* get the SOAP response headers (namespace resolution incomplete)
|
|
||||||
*
|
|
||||||
* @return string
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getHeaders(){
|
|
||||||
return $this->responseHeaders;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* set proxy info here
|
|
||||||
*
|
|
||||||
* @param string $proxyhost
|
|
||||||
* @param string $proxyport
|
|
||||||
* @param string $proxyusername
|
|
||||||
* @param string $proxypassword
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setHTTPProxy($proxyhost, $proxyport, $proxyusername = '', $proxypassword = '') {
|
|
||||||
$this->proxyhost = $proxyhost;
|
|
||||||
$this->proxyport = $proxyport;
|
|
||||||
$this->proxyusername = $proxyusername;
|
|
||||||
$this->proxypassword = $proxypassword;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* if authenticating, set user credentials here
|
|
||||||
*
|
|
||||||
* @param string $username
|
|
||||||
* @param string $password
|
|
||||||
* @param string $authtype (basic|digest|certificate)
|
|
||||||
* @param array $certRequest (keys must be cainfofile (optional), sslcertfile, sslkeyfile, passphrase, verifypeer (optional), verifyhost (optional): see corresponding options in cURL docs)
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setCredentials($username, $password, $authtype = 'basic', $certRequest = array()) {
|
|
||||||
$this->username = $username;
|
|
||||||
$this->password = $password;
|
|
||||||
$this->authtype = $authtype;
|
|
||||||
$this->certRequest = $certRequest;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* use HTTP encoding
|
|
||||||
*
|
|
||||||
* @param string $enc
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setHTTPEncoding($enc='gzip, deflate'){
|
|
||||||
$this->http_encoding = $enc;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* use HTTP persistent connections if possible
|
|
||||||
*
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function useHTTPPersistentConnection(){
|
|
||||||
$this->persistentConnection = true;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the default RPC parameter setting.
|
|
||||||
* If true, default is that call params are like RPC even for document style.
|
|
||||||
* Each call() can override this value.
|
|
||||||
*
|
|
||||||
* This is no longer used.
|
|
||||||
*
|
|
||||||
* @return boolean
|
|
||||||
* @access public
|
|
||||||
* @deprecated
|
|
||||||
*/
|
|
||||||
function getDefaultRpcParams() {
|
|
||||||
return $this->defaultRpcParams;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* sets the default RPC parameter setting.
|
|
||||||
* If true, default is that call params are like RPC even for document style
|
|
||||||
* Each call() can override this value.
|
|
||||||
*
|
|
||||||
* This is no longer used.
|
|
||||||
*
|
|
||||||
* @param boolean $rpcParams
|
|
||||||
* @access public
|
|
||||||
* @deprecated
|
|
||||||
*/
|
|
||||||
function setDefaultRpcParams($rpcParams) {
|
|
||||||
$this->defaultRpcParams = $rpcParams;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* dynamically creates an instance of a proxy class,
|
|
||||||
* allowing user to directly call methods from wsdl
|
|
||||||
*
|
|
||||||
* @return object soap_proxy object
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getProxy(){
|
|
||||||
$r = rand();
|
|
||||||
$evalStr = $this->_getProxyClassCode($r);
|
|
||||||
//$this->debug("proxy class: $evalStr";
|
|
||||||
// eval the class
|
|
||||||
eval($evalStr);
|
|
||||||
// instantiate proxy object
|
|
||||||
eval("\$proxy = new soap_proxy_$r('');");
|
|
||||||
// transfer current wsdl data to the proxy thereby avoiding parsing the wsdl twice
|
|
||||||
$proxy->endpointType = 'wsdl';
|
|
||||||
$proxy->wsdlFile = $this->wsdlFile;
|
|
||||||
$proxy->wsdl = $this->wsdl;
|
|
||||||
$proxy->operations = $this->operations;
|
|
||||||
$proxy->defaultRpcParams = $this->defaultRpcParams;
|
|
||||||
// transfer other state
|
|
||||||
$proxy->username = $this->username;
|
|
||||||
$proxy->password = $this->password;
|
|
||||||
$proxy->authtype = $this->authtype;
|
|
||||||
$proxy->proxyhost = $this->proxyhost;
|
|
||||||
$proxy->proxyport = $this->proxyport;
|
|
||||||
$proxy->proxyusername = $this->proxyusername;
|
|
||||||
$proxy->proxypassword = $this->proxypassword;
|
|
||||||
$proxy->timeout = $this->timeout;
|
|
||||||
$proxy->response_timeout = $this->response_timeout;
|
|
||||||
$proxy->http_encoding = $this->http_encoding;
|
|
||||||
$proxy->persistentConnection = $this->persistentConnection;
|
|
||||||
$proxy->requestHeaders = $this->requestHeaders;
|
|
||||||
$proxy->soap_defencoding = $this->soap_defencoding;
|
|
||||||
$proxy->endpoint = $this->endpoint;
|
|
||||||
$proxy->forceEndpoint = $this->forceEndpoint;
|
|
||||||
return $proxy;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* dynamically creates proxy class code
|
|
||||||
*
|
|
||||||
* @return string PHP/NuSOAP code for the proxy class
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function _getProxyClassCode($r) {
|
|
||||||
if ($this->endpointType != 'wsdl') {
|
|
||||||
$evalStr = 'A proxy can only be created for a WSDL client';
|
|
||||||
$this->setError($evalStr);
|
|
||||||
return $evalStr;
|
|
||||||
}
|
|
||||||
$evalStr = '';
|
|
||||||
foreach ($this->operations as $operation => $opData) {
|
|
||||||
if ($operation != '') {
|
|
||||||
// create param string and param comment string
|
|
||||||
if (sizeof($opData['input']['parts']) > 0) {
|
|
||||||
$paramStr = '';
|
|
||||||
$paramArrayStr = '';
|
|
||||||
$paramCommentStr = '';
|
|
||||||
foreach ($opData['input']['parts'] as $name => $type) {
|
|
||||||
$paramStr .= "\$$name, ";
|
|
||||||
$paramArrayStr .= "'$name' => \$$name, ";
|
|
||||||
$paramCommentStr .= "$type \$$name, ";
|
|
||||||
}
|
|
||||||
$paramStr = substr($paramStr, 0, strlen($paramStr)-2);
|
|
||||||
$paramArrayStr = substr($paramArrayStr, 0, strlen($paramArrayStr)-2);
|
|
||||||
$paramCommentStr = substr($paramCommentStr, 0, strlen($paramCommentStr)-2);
|
|
||||||
} else {
|
|
||||||
$paramStr = '';
|
|
||||||
$paramCommentStr = 'void';
|
|
||||||
}
|
|
||||||
$opData['namespace'] = !isset($opData['namespace']) ? 'http://testuri.com' : $opData['namespace'];
|
|
||||||
$evalStr .= "// $paramCommentStr
|
|
||||||
function " . str_replace('.', '__', $operation) . "($paramStr) {
|
|
||||||
\$params = array($paramArrayStr);
|
|
||||||
return \$this->call('$operation', \$params, '".$opData['namespace']."', '".(isset($opData['soapAction']) ? $opData['soapAction'] : '')."');
|
|
||||||
}
|
|
||||||
";
|
|
||||||
unset($paramStr);
|
|
||||||
unset($paramCommentStr);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$evalStr = 'class soap_proxy_'.$r.' extends soapclient {
|
|
||||||
'.$evalStr.'
|
|
||||||
}';
|
|
||||||
return $evalStr;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* dynamically creates proxy class code
|
|
||||||
*
|
|
||||||
* @return string PHP/NuSOAP code for the proxy class
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getProxyClassCode() {
|
|
||||||
$r = rand();
|
|
||||||
return $this->_getProxyClassCode($r);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the HTTP body for the current request.
|
|
||||||
*
|
|
||||||
* @param string $soapmsg The SOAP payload
|
|
||||||
* @return string The HTTP body, which includes the SOAP payload
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function getHTTPBody($soapmsg) {
|
|
||||||
return $soapmsg;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the HTTP content type for the current request.
|
|
||||||
*
|
|
||||||
* Note: getHTTPBody must be called before this.
|
|
||||||
*
|
|
||||||
* @return string the HTTP content type for the current request.
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function getHTTPContentType() {
|
|
||||||
return 'text/xml';
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets the HTTP content type charset for the current request.
|
|
||||||
* returns false for non-text content types.
|
|
||||||
*
|
|
||||||
* Note: getHTTPBody must be called before this.
|
|
||||||
*
|
|
||||||
* @return string the HTTP content type charset for the current request.
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function getHTTPContentTypeCharset() {
|
|
||||||
return $this->soap_defencoding;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* whether or not parser should decode utf8 element content
|
|
||||||
*
|
|
||||||
* @return always returns true
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function decodeUTF8($bool){
|
|
||||||
$this->decode_utf8 = $bool;
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* adds a new Cookie into $this->cookies array
|
|
||||||
*
|
|
||||||
* @param string $name Cookie Name
|
|
||||||
* @param string $value Cookie Value
|
|
||||||
* @return if cookie-set was successful returns true, else false
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function setCookie($name, $value) {
|
|
||||||
if (strlen($name) == 0) {
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
$this->cookies[] = array('name' => $name, 'value' => $value);
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* gets all Cookies
|
|
||||||
*
|
|
||||||
* @return array with all internal cookies
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function getCookies() {
|
|
||||||
return $this->cookies;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* checks all Cookies and delete those which are expired
|
|
||||||
*
|
|
||||||
* @return always return true
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function checkCookies() {
|
|
||||||
if (sizeof($this->cookies) == 0) {
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
$this->debug('checkCookie: check ' . sizeof($this->cookies) . ' cookies');
|
|
||||||
$curr_cookies = $this->cookies;
|
|
||||||
$this->cookies = array();
|
|
||||||
foreach ($curr_cookies as $cookie) {
|
|
||||||
if (! is_array($cookie)) {
|
|
||||||
$this->debug('Remove cookie that is not an array');
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if ((isset($cookie['expires'])) && (! empty($cookie['expires']))) {
|
|
||||||
if (strtotime($cookie['expires']) > time()) {
|
|
||||||
$this->cookies[] = $cookie;
|
|
||||||
} else {
|
|
||||||
$this->debug('Remove expired cookie ' . $cookie['name']);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$this->cookies[] = $cookie;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$this->debug('checkCookie: '.sizeof($this->cookies).' cookies left in array');
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* updates the current cookies with a new set
|
|
||||||
*
|
|
||||||
* @param array $cookies new cookies with which to update current ones
|
|
||||||
* @return always return true
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function UpdateCookies($cookies) {
|
|
||||||
if (sizeof($this->cookies) == 0) {
|
|
||||||
// no existing cookies: take whatever is new
|
|
||||||
if (sizeof($cookies) > 0) {
|
|
||||||
$this->debug('Setting new cookie(s)');
|
|
||||||
$this->cookies = $cookies;
|
|
||||||
}
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
if (sizeof($cookies) == 0) {
|
|
||||||
// no new cookies: keep what we've got
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
// merge
|
|
||||||
foreach ($cookies as $newCookie) {
|
|
||||||
if (!is_array($newCookie)) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if ((!isset($newCookie['name'])) || (!isset($newCookie['value']))) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$newName = $newCookie['name'];
|
|
||||||
|
|
||||||
$found = false;
|
|
||||||
for ($i = 0; $i < count($this->cookies); $i++) {
|
|
||||||
$cookie = $this->cookies[$i];
|
|
||||||
if (!is_array($cookie)) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (!isset($cookie['name'])) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if ($newName != $cookie['name']) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$newDomain = isset($newCookie['domain']) ? $newCookie['domain'] : 'NODOMAIN';
|
|
||||||
$domain = isset($cookie['domain']) ? $cookie['domain'] : 'NODOMAIN';
|
|
||||||
if ($newDomain != $domain) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$newPath = isset($newCookie['path']) ? $newCookie['path'] : 'NOPATH';
|
|
||||||
$path = isset($cookie['path']) ? $cookie['path'] : 'NOPATH';
|
|
||||||
if ($newPath != $path) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$this->cookies[$i] = $newCookie;
|
|
||||||
$found = true;
|
|
||||||
$this->debug('Update cookie ' . $newName . '=' . $newCookie['value']);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (! $found) {
|
|
||||||
$this->debug('Add cookie ' . $newName . '=' . $newCookie['value']);
|
|
||||||
$this->cookies[] = $newCookie;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
?>
|
|
||||||
817
thirdparty/pear/json/class.json.php
vendored
817
thirdparty/pear/json/class.json.php
vendored
@@ -1,817 +0,0 @@
|
|||||||
<?php
|
|
||||||
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Converts to and from JSON format.
|
|
||||||
*
|
|
||||||
* JSON (JavaScript Object Notation) is a lightweight data-interchange
|
|
||||||
* format. It is easy for humans to read and write. It is easy for machines
|
|
||||||
* to parse and generate. It is based on a subset of the JavaScript
|
|
||||||
* Programming Language, Standard ECMA-262 3rd Edition - December 1999.
|
|
||||||
* This feature can also be found in Python. JSON is a text format that is
|
|
||||||
* completely language independent but uses conventions that are familiar
|
|
||||||
* to programmers of the C-family of languages, including C, C++, C#, Java,
|
|
||||||
* JavaScript, Perl, TCL, and many others. These properties make JSON an
|
|
||||||
* ideal data-interchange language.
|
|
||||||
*
|
|
||||||
* This package provides a simple encoder and decoder for JSON notation. It
|
|
||||||
* is intended for use with client-side Javascript applications that make
|
|
||||||
* use of HTTPRequest to perform server communication functions - data can
|
|
||||||
* be encoded into JSON notation for use in a client-side javascript, or
|
|
||||||
* decoded from incoming Javascript requests. JSON format is native to
|
|
||||||
* Javascript, and can be directly eval()'ed with no further parsing
|
|
||||||
* overhead
|
|
||||||
*
|
|
||||||
* All strings should be in ASCII or UTF-8 format!
|
|
||||||
*
|
|
||||||
* LICENSE: 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.
|
|
||||||
*
|
|
||||||
* THIS SOFTWARE IS PROVIDED ``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 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.
|
|
||||||
*
|
|
||||||
* @category
|
|
||||||
* @package Services_JSON
|
|
||||||
* @author Michal Migurski <mike-json@teczno.com>
|
|
||||||
* @author Matt Knapp <mdknapp[at]gmail[dot]com>
|
|
||||||
* @author Brett Stimmerman <brettstimmerman[at]gmail[dot]com>
|
|
||||||
* @copyright 2005 Michal Migurski
|
|
||||||
* @version CVS: $Id: JSON.php,v 1.31 2006/06/28 05:54:17 migurski Exp $
|
|
||||||
* @license http://www.opensource.org/licenses/bsd-license.php
|
|
||||||
* @link http://pear.php.net/pepr/pepr-proposal-show.php?id=198
|
|
||||||
*/
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Marker constant for Services_JSON::decode(), used to flag stack state
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_SLICE')) {
|
|
||||||
define('SERVICES_JSON_SLICE', 1);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Marker constant for Services_JSON::decode(), used to flag stack state
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_IN_STR')) {
|
|
||||||
define('SERVICES_JSON_IN_STR', 2);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Marker constant for Services_JSON::decode(), used to flag stack state
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_IN_ARR')) {
|
|
||||||
define('SERVICES_JSON_IN_ARR', 3);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Marker constant for Services_JSON::decode(), used to flag stack state
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_IN_OBJ')) {
|
|
||||||
define('SERVICES_JSON_IN_OBJ', 4);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Marker constant for Services_JSON::decode(), used to flag stack state
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_IN_CMT')) {
|
|
||||||
define('SERVICES_JSON_IN_CMT', 5);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Behavior switch for Services_JSON::decode()
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_LOOSE_TYPE')) {
|
|
||||||
define('SERVICES_JSON_LOOSE_TYPE', 16);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Behavior switch for Services_JSON::decode()
|
|
||||||
*/
|
|
||||||
if ( !defined('SERVICES_JSON_SUPPRESS_ERRORS')) {
|
|
||||||
define('SERVICES_JSON_SUPPRESS_ERRORS', 32);
|
|
||||||
}
|
|
||||||
/**
|
|
||||||
* Converts to and from JSON format.
|
|
||||||
*
|
|
||||||
* Brief example of use:
|
|
||||||
*
|
|
||||||
* <code>
|
|
||||||
* // create a new instance of Services_JSON
|
|
||||||
* $json = new Services_JSON();
|
|
||||||
*
|
|
||||||
* // convert a complexe value to JSON notation, and send it to the browser
|
|
||||||
* $value = array('foo', 'bar', array(1, 2, 'baz'), array(3, array(4)));
|
|
||||||
* $output = $json->encode($value);
|
|
||||||
*
|
|
||||||
* print($output);
|
|
||||||
* // prints: ["foo","bar",[1,2,"baz"],[3,[4]]]
|
|
||||||
*
|
|
||||||
* // accept incoming POST data, assumed to be in JSON notation
|
|
||||||
* $input = file_get_contents('php://input', 1000000);
|
|
||||||
* $value = $json->decode($input);
|
|
||||||
* </code>
|
|
||||||
*/
|
|
||||||
|
|
||||||
if (class_exists ('Services_JSON') ) {
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
class Services_JSON
|
|
||||||
{
|
|
||||||
/**
|
|
||||||
* constructs a new JSON instance
|
|
||||||
*
|
|
||||||
* @param int $use object behavior flags; combine with boolean-OR
|
|
||||||
*
|
|
||||||
* possible values:
|
|
||||||
* - SERVICES_JSON_LOOSE_TYPE: loose typing.
|
|
||||||
* "{...}" syntax creates associative arrays
|
|
||||||
* instead of objects in decode().
|
|
||||||
* - SERVICES_JSON_SUPPRESS_ERRORS: error suppression.
|
|
||||||
* Values which can't be encoded (e.g. resources)
|
|
||||||
* appear as NULL instead of throwing errors.
|
|
||||||
* By default, a deeply-nested resource will
|
|
||||||
* bubble up with an error, so all return values
|
|
||||||
* from encode() should be checked with isError()
|
|
||||||
*/
|
|
||||||
function Services_JSON($use = 0)
|
|
||||||
{
|
|
||||||
$this->use = $use;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* convert a string from one UTF-16 char to one UTF-8 char
|
|
||||||
*
|
|
||||||
* Normally should be handled by mb_convert_encoding, but
|
|
||||||
* provides a slower PHP-only method for installations
|
|
||||||
* that lack the multibye string extension.
|
|
||||||
*
|
|
||||||
* @param string $utf16 UTF-16 character
|
|
||||||
* @return string UTF-8 character
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function utf162utf8($utf16)
|
|
||||||
{
|
|
||||||
// oh please oh please oh please oh please oh please
|
|
||||||
if(function_exists('mb_convert_encoding')) {
|
|
||||||
return mb_convert_encoding($utf16, 'UTF-8', 'UTF-16');
|
|
||||||
}
|
|
||||||
|
|
||||||
$bytes = (ord($utf16{0}) << 8) | ord($utf16{1});
|
|
||||||
|
|
||||||
switch(true) {
|
|
||||||
case ((0x7F & $bytes) == $bytes):
|
|
||||||
// this case should never be reached, because we are in ASCII range
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return chr(0x7F & $bytes);
|
|
||||||
|
|
||||||
case (0x07FF & $bytes) == $bytes:
|
|
||||||
// return a 2-byte UTF-8 character
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return chr(0xC0 | (($bytes >> 6) & 0x1F))
|
|
||||||
. chr(0x80 | ($bytes & 0x3F));
|
|
||||||
|
|
||||||
case (0xFFFF & $bytes) == $bytes:
|
|
||||||
// return a 3-byte UTF-8 character
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return chr(0xE0 | (($bytes >> 12) & 0x0F))
|
|
||||||
. chr(0x80 | (($bytes >> 6) & 0x3F))
|
|
||||||
. chr(0x80 | ($bytes & 0x3F));
|
|
||||||
}
|
|
||||||
|
|
||||||
// ignoring UTF-32 for now, sorry
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* convert a string from one UTF-8 char to one UTF-16 char
|
|
||||||
*
|
|
||||||
* Normally should be handled by mb_convert_encoding, but
|
|
||||||
* provides a slower PHP-only method for installations
|
|
||||||
* that lack the multibye string extension.
|
|
||||||
*
|
|
||||||
* @param string $utf8 UTF-8 character
|
|
||||||
* @return string UTF-16 character
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function utf82utf16($utf8)
|
|
||||||
{
|
|
||||||
// oh please oh please oh please oh please oh please
|
|
||||||
if(function_exists('mb_convert_encoding')) {
|
|
||||||
return mb_convert_encoding($utf8, 'UTF-16', 'UTF-8');
|
|
||||||
}
|
|
||||||
|
|
||||||
switch(strlen($utf8)) {
|
|
||||||
case 1:
|
|
||||||
// this case should never be reached, because we are in ASCII range
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return $utf8;
|
|
||||||
|
|
||||||
case 2:
|
|
||||||
// return a UTF-16 character from a 2-byte UTF-8 char
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return chr(0x07 & (ord($utf8{0}) >> 2))
|
|
||||||
. chr((0xC0 & (ord($utf8{0}) << 6))
|
|
||||||
| (0x3F & ord($utf8{1})));
|
|
||||||
|
|
||||||
case 3:
|
|
||||||
// return a UTF-16 character from a 3-byte UTF-8 char
|
|
||||||
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
return chr((0xF0 & (ord($utf8{0}) << 4))
|
|
||||||
| (0x0F & (ord($utf8{1}) >> 2)))
|
|
||||||
. chr((0xC0 & (ord($utf8{1}) << 6))
|
|
||||||
| (0x7F & ord($utf8{2})));
|
|
||||||
}
|
|
||||||
|
|
||||||
// ignoring UTF-32 for now, sorry
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* encodes an arbitrary variable into JSON format
|
|
||||||
*
|
|
||||||
* @param mixed $var any number, boolean, string, array, or object to be encoded.
|
|
||||||
* see argument 1 to Services_JSON() above for array-parsing behavior.
|
|
||||||
* if var is a strng, note that encode() always expects it
|
|
||||||
* to be in ASCII or UTF-8 format!
|
|
||||||
*
|
|
||||||
* @return mixed JSON string representation of input var or an error if a problem occurs
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function encode($var)
|
|
||||||
{
|
|
||||||
switch (gettype($var)) {
|
|
||||||
case 'boolean':
|
|
||||||
return $var ? 'true' : 'false';
|
|
||||||
|
|
||||||
case 'NULL':
|
|
||||||
return 'null';
|
|
||||||
|
|
||||||
case 'integer':
|
|
||||||
return (int) $var;
|
|
||||||
|
|
||||||
case 'double':
|
|
||||||
case 'float':
|
|
||||||
return (float) $var;
|
|
||||||
|
|
||||||
case 'string':
|
|
||||||
// STRINGS ARE EXPECTED TO BE IN ASCII OR UTF-8 FORMAT
|
|
||||||
$ascii = '';
|
|
||||||
$strlen_var = strlen($var);
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Iterate over every character in the string,
|
|
||||||
* escaping with a slash or encoding to UTF-8 where necessary
|
|
||||||
*/
|
|
||||||
for ($c = 0; $c < $strlen_var; ++$c) {
|
|
||||||
|
|
||||||
$ord_var_c = ord($var{$c});
|
|
||||||
|
|
||||||
switch (true) {
|
|
||||||
case $ord_var_c == 0x08:
|
|
||||||
$ascii .= '\b';
|
|
||||||
break;
|
|
||||||
case $ord_var_c == 0x09:
|
|
||||||
$ascii .= '\t';
|
|
||||||
break;
|
|
||||||
case $ord_var_c == 0x0A:
|
|
||||||
$ascii .= '\n';
|
|
||||||
break;
|
|
||||||
case $ord_var_c == 0x0C:
|
|
||||||
$ascii .= '\f';
|
|
||||||
break;
|
|
||||||
case $ord_var_c == 0x0D:
|
|
||||||
$ascii .= '\r';
|
|
||||||
break;
|
|
||||||
|
|
||||||
case $ord_var_c == 0x22:
|
|
||||||
case $ord_var_c == 0x2F:
|
|
||||||
case $ord_var_c == 0x5C:
|
|
||||||
// double quote, slash, slosh
|
|
||||||
$ascii .= '\\'.$var{$c};
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c >= 0x20) && ($ord_var_c <= 0x7F)):
|
|
||||||
// characters U-00000000 - U-0000007F (same as ASCII)
|
|
||||||
$ascii .= $var{$c};
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c & 0xE0) == 0xC0):
|
|
||||||
// characters U-00000080 - U-000007FF, mask 110XXXXX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$char = pack('C*', $ord_var_c, ord($var{$c + 1}));
|
|
||||||
$c += 1;
|
|
||||||
$utf16 = $this->utf82utf16($char);
|
|
||||||
$ascii .= sprintf('\u%04s', bin2hex($utf16));
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c & 0xF0) == 0xE0):
|
|
||||||
// characters U-00000800 - U-0000FFFF, mask 1110XXXX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$char = pack('C*', $ord_var_c,
|
|
||||||
ord($var{$c + 1}),
|
|
||||||
ord($var{$c + 2}));
|
|
||||||
$c += 2;
|
|
||||||
$utf16 = $this->utf82utf16($char);
|
|
||||||
$ascii .= sprintf('\u%04s', bin2hex($utf16));
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c & 0xF8) == 0xF0):
|
|
||||||
// characters U-00010000 - U-001FFFFF, mask 11110XXX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$char = pack('C*', $ord_var_c,
|
|
||||||
ord($var{$c + 1}),
|
|
||||||
ord($var{$c + 2}),
|
|
||||||
ord($var{$c + 3}));
|
|
||||||
$c += 3;
|
|
||||||
$utf16 = $this->utf82utf16($char);
|
|
||||||
$ascii .= sprintf('\u%04s', bin2hex($utf16));
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c & 0xFC) == 0xF8):
|
|
||||||
// characters U-00200000 - U-03FFFFFF, mask 111110XX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$char = pack('C*', $ord_var_c,
|
|
||||||
ord($var{$c + 1}),
|
|
||||||
ord($var{$c + 2}),
|
|
||||||
ord($var{$c + 3}),
|
|
||||||
ord($var{$c + 4}));
|
|
||||||
$c += 4;
|
|
||||||
$utf16 = $this->utf82utf16($char);
|
|
||||||
$ascii .= sprintf('\u%04s', bin2hex($utf16));
|
|
||||||
break;
|
|
||||||
|
|
||||||
case (($ord_var_c & 0xFE) == 0xFC):
|
|
||||||
// characters U-04000000 - U-7FFFFFFF, mask 1111110X
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$char = pack('C*', $ord_var_c,
|
|
||||||
ord($var{$c + 1}),
|
|
||||||
ord($var{$c + 2}),
|
|
||||||
ord($var{$c + 3}),
|
|
||||||
ord($var{$c + 4}),
|
|
||||||
ord($var{$c + 5}));
|
|
||||||
$c += 5;
|
|
||||||
$utf16 = $this->utf82utf16($char);
|
|
||||||
$ascii .= sprintf('\u%04s', bin2hex($utf16));
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return '"'.$ascii.'"';
|
|
||||||
|
|
||||||
case 'array':
|
|
||||||
/*
|
|
||||||
* As per JSON spec if any array key is not an integer
|
|
||||||
* we must treat the the whole array as an object. We
|
|
||||||
* also try to catch a sparsely populated associative
|
|
||||||
* array with numeric keys here because some JS engines
|
|
||||||
* will create an array with empty indexes up to
|
|
||||||
* max_index which can cause memory issues and because
|
|
||||||
* the keys, which may be relevant, will be remapped
|
|
||||||
* otherwise.
|
|
||||||
*
|
|
||||||
* As per the ECMA and JSON specification an object may
|
|
||||||
* have any string as a property. Unfortunately due to
|
|
||||||
* a hole in the ECMA specification if the key is a
|
|
||||||
* ECMA reserved word or starts with a digit the
|
|
||||||
* parameter is only accessible using ECMAScript's
|
|
||||||
* bracket notation.
|
|
||||||
*/
|
|
||||||
|
|
||||||
// treat as a JSON object
|
|
||||||
if (is_array($var) && count($var) && (array_keys($var) !== range(0, sizeof($var) - 1))) {
|
|
||||||
$properties = array_map(array($this, 'name_value'),
|
|
||||||
array_keys($var),
|
|
||||||
array_values($var));
|
|
||||||
|
|
||||||
foreach($properties as $property) {
|
|
||||||
if(Services_JSON::isError($property)) {
|
|
||||||
return $property;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return '{' . join(',', $properties) . '}';
|
|
||||||
}
|
|
||||||
|
|
||||||
// treat it like a regular array
|
|
||||||
$elements = array_map(array($this, 'encode'), $var);
|
|
||||||
|
|
||||||
foreach($elements as $element) {
|
|
||||||
if(Services_JSON::isError($element)) {
|
|
||||||
return $element;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return '[' . join(',', $elements) . ']';
|
|
||||||
|
|
||||||
case 'object':
|
|
||||||
$vars = get_object_vars($var);
|
|
||||||
|
|
||||||
$properties = array_map(array($this, 'name_value'),
|
|
||||||
array_keys($vars),
|
|
||||||
array_values($vars));
|
|
||||||
|
|
||||||
foreach($properties as $property) {
|
|
||||||
if(Services_JSON::isError($property)) {
|
|
||||||
return $property;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return '{' . join(',', $properties) . '}';
|
|
||||||
|
|
||||||
default:
|
|
||||||
return ($this->use & SERVICES_JSON_SUPPRESS_ERRORS)
|
|
||||||
? 'null'
|
|
||||||
: new Services_JSON_Error(gettype($var)." can not be encoded as JSON string");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* array-walking function for use in generating JSON-formatted name-value pairs
|
|
||||||
*
|
|
||||||
* @param string $name name of key to use
|
|
||||||
* @param mixed $value reference to an array element to be encoded
|
|
||||||
*
|
|
||||||
* @return string JSON-formatted name-value pair, like '"name":value'
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function name_value($name, $value)
|
|
||||||
{
|
|
||||||
$encoded_value = $this->encode($value);
|
|
||||||
|
|
||||||
if(Services_JSON::isError($encoded_value)) {
|
|
||||||
return $encoded_value;
|
|
||||||
}
|
|
||||||
|
|
||||||
return $this->encode(strval($name)) . ':' . $encoded_value;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* reduce a string by removing leading and trailing comments and whitespace
|
|
||||||
*
|
|
||||||
* @param $str string string value to strip of comments and whitespace
|
|
||||||
*
|
|
||||||
* @return string string value stripped of comments and whitespace
|
|
||||||
* @access private
|
|
||||||
*/
|
|
||||||
function reduce_string($str)
|
|
||||||
{
|
|
||||||
$str = preg_replace(array(
|
|
||||||
|
|
||||||
// eliminate single line comments in '// ...' form
|
|
||||||
'#^\s*//(.+)$#m',
|
|
||||||
|
|
||||||
// eliminate multi-line comments in '/* ... */' form, at start of string
|
|
||||||
'#^\s*/\*(.+)\*/#Us',
|
|
||||||
|
|
||||||
// eliminate multi-line comments in '/* ... */' form, at end of string
|
|
||||||
'#/\*(.+)\*/\s*$#Us'
|
|
||||||
|
|
||||||
), '', $str);
|
|
||||||
|
|
||||||
// eliminate extraneous space
|
|
||||||
return trim($str);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* decodes a JSON string into appropriate variable
|
|
||||||
*
|
|
||||||
* @param string $str JSON-formatted string
|
|
||||||
*
|
|
||||||
* @return mixed number, boolean, string, array, or object
|
|
||||||
* corresponding to given JSON input string.
|
|
||||||
* See argument 1 to Services_JSON() above for object-output behavior.
|
|
||||||
* Note that decode() always returns strings
|
|
||||||
* in ASCII or UTF-8 format!
|
|
||||||
* @access public
|
|
||||||
*/
|
|
||||||
function decode($str)
|
|
||||||
{
|
|
||||||
$str = $this->reduce_string($str);
|
|
||||||
|
|
||||||
switch (strtolower($str)) {
|
|
||||||
case 'true':
|
|
||||||
return true;
|
|
||||||
|
|
||||||
case 'false':
|
|
||||||
return false;
|
|
||||||
|
|
||||||
case 'null':
|
|
||||||
return null;
|
|
||||||
|
|
||||||
default:
|
|
||||||
$m = array();
|
|
||||||
|
|
||||||
if (is_numeric($str)) {
|
|
||||||
// Lookie-loo, it's a number
|
|
||||||
|
|
||||||
// This would work on its own, but I'm trying to be
|
|
||||||
// good about returning integers where appropriate:
|
|
||||||
// return (float)$str;
|
|
||||||
|
|
||||||
// Return float or int, as appropriate
|
|
||||||
return ((float)$str == (integer)$str)
|
|
||||||
? (integer)$str
|
|
||||||
: (float)$str;
|
|
||||||
|
|
||||||
} elseif (preg_match('/^("|\').*(\1)$/s', $str, $m) && $m[1] == $m[2]) {
|
|
||||||
// STRINGS RETURNED IN UTF-8 FORMAT
|
|
||||||
$delim = substr($str, 0, 1);
|
|
||||||
$chrs = substr($str, 1, -1);
|
|
||||||
$utf8 = '';
|
|
||||||
$strlen_chrs = strlen($chrs);
|
|
||||||
|
|
||||||
for ($c = 0; $c < $strlen_chrs; ++$c) {
|
|
||||||
|
|
||||||
$substr_chrs_c_2 = substr($chrs, $c, 2);
|
|
||||||
$ord_chrs_c = ord($chrs{$c});
|
|
||||||
|
|
||||||
switch (true) {
|
|
||||||
case $substr_chrs_c_2 == '\b':
|
|
||||||
$utf8 .= chr(0x08);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
case $substr_chrs_c_2 == '\t':
|
|
||||||
$utf8 .= chr(0x09);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
case $substr_chrs_c_2 == '\n':
|
|
||||||
$utf8 .= chr(0x0A);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
case $substr_chrs_c_2 == '\f':
|
|
||||||
$utf8 .= chr(0x0C);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
case $substr_chrs_c_2 == '\r':
|
|
||||||
$utf8 .= chr(0x0D);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case $substr_chrs_c_2 == '\\"':
|
|
||||||
case $substr_chrs_c_2 == '\\\'':
|
|
||||||
case $substr_chrs_c_2 == '\\\\':
|
|
||||||
case $substr_chrs_c_2 == '\\/':
|
|
||||||
if (($delim == '"' && $substr_chrs_c_2 != '\\\'') ||
|
|
||||||
($delim == "'" && $substr_chrs_c_2 != '\\"')) {
|
|
||||||
$utf8 .= $chrs{++$c};
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case preg_match('/\\\u[0-9A-F]{4}/i', substr($chrs, $c, 6)):
|
|
||||||
// single, escaped unicode character
|
|
||||||
$utf16 = chr(hexdec(substr($chrs, ($c + 2), 2)))
|
|
||||||
. chr(hexdec(substr($chrs, ($c + 4), 2)));
|
|
||||||
$utf8 .= $this->utf162utf8($utf16);
|
|
||||||
$c += 5;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c >= 0x20) && ($ord_chrs_c <= 0x7F):
|
|
||||||
$utf8 .= $chrs{$c};
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c & 0xE0) == 0xC0:
|
|
||||||
// characters U-00000080 - U-000007FF, mask 110XXXXX
|
|
||||||
//see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$utf8 .= substr($chrs, $c, 2);
|
|
||||||
++$c;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c & 0xF0) == 0xE0:
|
|
||||||
// characters U-00000800 - U-0000FFFF, mask 1110XXXX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$utf8 .= substr($chrs, $c, 3);
|
|
||||||
$c += 2;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c & 0xF8) == 0xF0:
|
|
||||||
// characters U-00010000 - U-001FFFFF, mask 11110XXX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$utf8 .= substr($chrs, $c, 4);
|
|
||||||
$c += 3;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c & 0xFC) == 0xF8:
|
|
||||||
// characters U-00200000 - U-03FFFFFF, mask 111110XX
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$utf8 .= substr($chrs, $c, 5);
|
|
||||||
$c += 4;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ($ord_chrs_c & 0xFE) == 0xFC:
|
|
||||||
// characters U-04000000 - U-7FFFFFFF, mask 1111110X
|
|
||||||
// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
|
|
||||||
$utf8 .= substr($chrs, $c, 6);
|
|
||||||
$c += 5;
|
|
||||||
break;
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
return $utf8;
|
|
||||||
|
|
||||||
} elseif (preg_match('/^\[.*\]$/s', $str) || preg_match('/^\{.*\}$/s', $str)) {
|
|
||||||
// array, or object notation
|
|
||||||
|
|
||||||
if ($str{0} == '[') {
|
|
||||||
$stk = array(SERVICES_JSON_IN_ARR);
|
|
||||||
$arr = array();
|
|
||||||
} else {
|
|
||||||
if ($this->use & SERVICES_JSON_LOOSE_TYPE) {
|
|
||||||
$stk = array(SERVICES_JSON_IN_OBJ);
|
|
||||||
$obj = array();
|
|
||||||
} else {
|
|
||||||
$stk = array(SERVICES_JSON_IN_OBJ);
|
|
||||||
$obj = new stdClass();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_SLICE,
|
|
||||||
'where' => 0,
|
|
||||||
'delim' => false));
|
|
||||||
|
|
||||||
$chrs = substr($str, 1, -1);
|
|
||||||
$chrs = $this->reduce_string($chrs);
|
|
||||||
|
|
||||||
if ($chrs == '') {
|
|
||||||
if (reset($stk) == SERVICES_JSON_IN_ARR) {
|
|
||||||
return $arr;
|
|
||||||
|
|
||||||
} else {
|
|
||||||
return $obj;
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
//print("\nparsing {$chrs}\n");
|
|
||||||
|
|
||||||
$strlen_chrs = strlen($chrs);
|
|
||||||
|
|
||||||
for ($c = 0; $c <= $strlen_chrs; ++$c) {
|
|
||||||
|
|
||||||
$top = end($stk);
|
|
||||||
$substr_chrs_c_2 = substr($chrs, $c, 2);
|
|
||||||
|
|
||||||
if (($c == $strlen_chrs) || (($chrs{$c} == ',') && ($top['what'] == SERVICES_JSON_SLICE))) {
|
|
||||||
// found a comma that is not inside a string, array, etc.,
|
|
||||||
// OR we've reached the end of the character list
|
|
||||||
$slice = substr($chrs, $top['where'], ($c - $top['where']));
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_SLICE, 'where' => ($c + 1), 'delim' => false));
|
|
||||||
//print("Found split at {$c}: ".substr($chrs, $top['where'], (1 + $c - $top['where']))."\n");
|
|
||||||
|
|
||||||
if (reset($stk) == SERVICES_JSON_IN_ARR) {
|
|
||||||
// we are in an array, so just push an element onto the stack
|
|
||||||
array_push($arr, $this->decode($slice));
|
|
||||||
|
|
||||||
} elseif (reset($stk) == SERVICES_JSON_IN_OBJ) {
|
|
||||||
// we are in an object, so figure
|
|
||||||
// out the property name and set an
|
|
||||||
// element in an associative array,
|
|
||||||
// for now
|
|
||||||
$parts = array();
|
|
||||||
|
|
||||||
if (preg_match('/^\s*(["\'].*[^\\\]["\'])\s*:\s*(\S.*),?$/Uis', $slice, $parts)) {
|
|
||||||
// "name":value pair
|
|
||||||
$key = $this->decode($parts[1]);
|
|
||||||
$val = $this->decode($parts[2]);
|
|
||||||
|
|
||||||
if ($this->use & SERVICES_JSON_LOOSE_TYPE) {
|
|
||||||
$obj[$key] = $val;
|
|
||||||
} else {
|
|
||||||
$obj->$key = $val;
|
|
||||||
}
|
|
||||||
} elseif (preg_match('/^\s*(\w+)\s*:\s*(\S.*),?$/Uis', $slice, $parts)) {
|
|
||||||
// name:value pair, where name is unquoted
|
|
||||||
$key = $parts[1];
|
|
||||||
$val = $this->decode($parts[2]);
|
|
||||||
|
|
||||||
if ($this->use & SERVICES_JSON_LOOSE_TYPE) {
|
|
||||||
$obj[$key] = $val;
|
|
||||||
} else {
|
|
||||||
$obj->$key = $val;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
} elseif ((($chrs{$c} == '"') || ($chrs{$c} == "'")) && ($top['what'] != SERVICES_JSON_IN_STR)) {
|
|
||||||
// found a quote, and we are not inside a string
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_IN_STR, 'where' => $c, 'delim' => $chrs{$c}));
|
|
||||||
//print("Found start of string at {$c}\n");
|
|
||||||
|
|
||||||
} elseif (($chrs{$c} == $top['delim']) &&
|
|
||||||
($top['what'] == SERVICES_JSON_IN_STR) &&
|
|
||||||
((strlen(substr($chrs, 0, $c)) - strlen(rtrim(substr($chrs, 0, $c), '\\'))) % 2 != 1)) {
|
|
||||||
// found a quote, we're in a string, and it's not escaped
|
|
||||||
// we know that it's not escaped becase there is _not_ an
|
|
||||||
// odd number of backslashes at the end of the string so far
|
|
||||||
array_pop($stk);
|
|
||||||
//print("Found end of string at {$c}: ".substr($chrs, $top['where'], (1 + 1 + $c - $top['where']))."\n");
|
|
||||||
|
|
||||||
} elseif (($chrs{$c} == '[') &&
|
|
||||||
in_array($top['what'], array(SERVICES_JSON_SLICE, SERVICES_JSON_IN_ARR, SERVICES_JSON_IN_OBJ))) {
|
|
||||||
// found a left-bracket, and we are in an array, object, or slice
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_IN_ARR, 'where' => $c, 'delim' => false));
|
|
||||||
//print("Found start of array at {$c}\n");
|
|
||||||
|
|
||||||
} elseif (($chrs{$c} == ']') && ($top['what'] == SERVICES_JSON_IN_ARR)) {
|
|
||||||
// found a right-bracket, and we're in an array
|
|
||||||
array_pop($stk);
|
|
||||||
//print("Found end of array at {$c}: ".substr($chrs, $top['where'], (1 + $c - $top['where']))."\n");
|
|
||||||
|
|
||||||
} elseif (($chrs{$c} == '{') &&
|
|
||||||
in_array($top['what'], array(SERVICES_JSON_SLICE, SERVICES_JSON_IN_ARR, SERVICES_JSON_IN_OBJ))) {
|
|
||||||
// found a left-brace, and we are in an array, object, or slice
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_IN_OBJ, 'where' => $c, 'delim' => false));
|
|
||||||
//print("Found start of object at {$c}\n");
|
|
||||||
|
|
||||||
} elseif (($chrs{$c} == '}') && ($top['what'] == SERVICES_JSON_IN_OBJ)) {
|
|
||||||
// found a right-brace, and we're in an object
|
|
||||||
array_pop($stk);
|
|
||||||
//print("Found end of object at {$c}: ".substr($chrs, $top['where'], (1 + $c - $top['where']))."\n");
|
|
||||||
|
|
||||||
} elseif (($substr_chrs_c_2 == '/*') &&
|
|
||||||
in_array($top['what'], array(SERVICES_JSON_SLICE, SERVICES_JSON_IN_ARR, SERVICES_JSON_IN_OBJ))) {
|
|
||||||
// found a comment start, and we are in an array, object, or slice
|
|
||||||
array_push($stk, array('what' => SERVICES_JSON_IN_CMT, 'where' => $c, 'delim' => false));
|
|
||||||
$c++;
|
|
||||||
//print("Found start of comment at {$c}\n");
|
|
||||||
|
|
||||||
} elseif (($substr_chrs_c_2 == '*/') && ($top['what'] == SERVICES_JSON_IN_CMT)) {
|
|
||||||
// found a comment end, and we're in one now
|
|
||||||
array_pop($stk);
|
|
||||||
$c++;
|
|
||||||
|
|
||||||
for ($i = $top['where']; $i <= $c; ++$i)
|
|
||||||
$chrs = substr_replace($chrs, ' ', $i, 1);
|
|
||||||
|
|
||||||
//print("Found end of comment at {$c}: ".substr($chrs, $top['where'], (1 + $c - $top['where']))."\n");
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
if (reset($stk) == SERVICES_JSON_IN_ARR) {
|
|
||||||
return $arr;
|
|
||||||
|
|
||||||
} elseif (reset($stk) == SERVICES_JSON_IN_OBJ) {
|
|
||||||
return $obj;
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @todo Ultimately, this should just call PEAR::isError()
|
|
||||||
*/
|
|
||||||
function isError($data, $code = null)
|
|
||||||
{
|
|
||||||
if (class_exists('pear')) {
|
|
||||||
return PEAR::isError($data, $code);
|
|
||||||
} elseif (is_object($data) && (get_class($data) == 'services_json_error' ||
|
|
||||||
is_subclass_of($data, 'services_json_error'))) {
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (class_exists('PEAR_Error')) {
|
|
||||||
|
|
||||||
class Services_JSON_Error extends PEAR_Error
|
|
||||||
{
|
|
||||||
function Services_JSON_Error($message = 'unknown error', $code = null,
|
|
||||||
$mode = null, $options = null, $userinfo = null)
|
|
||||||
{
|
|
||||||
parent::PEAR_Error($message, $code, $mode, $options, $userinfo);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
} else {
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @todo Ultimately, this class shall be descended from PEAR_Error
|
|
||||||
*/
|
|
||||||
class Services_JSON_Error
|
|
||||||
{
|
|
||||||
function Services_JSON_Error($message = 'unknown error', $code = null,
|
|
||||||
$mode = null, $options = null, $userinfo = null)
|
|
||||||
{
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
@@ -2773,7 +2773,7 @@ function PMFCancelCase ($caseUid, $delIndex, $userUid)
|
|||||||
G::header('Location: ../cases/casesListExtJsRedirector');
|
G::header('Location: ../cases/casesListExtJsRedirector');
|
||||||
die();
|
die();
|
||||||
} else {
|
} else {
|
||||||
die(__('ID_PM_FUNCTION_CHANGE_CASE', SYS_LANG, array('PMFCancelCase', G::LoadTranslation('ID_CANCELLED'))));
|
die(G::LoadTranslation('ID_PM_FUNCTION_CHANGE_CASE', SYS_LANG, array('PMFCancelCase', G::LoadTranslation('ID_CANCELLED'))));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -2812,7 +2812,7 @@ function PMFPauseCase ($caseUid, $delIndex, $userUid, $unpauseDate = null)
|
|||||||
G::header('Location: ../cases/casesListExtJsRedirector');
|
G::header('Location: ../cases/casesListExtJsRedirector');
|
||||||
die();
|
die();
|
||||||
} else {
|
} else {
|
||||||
die(__('ID_PM_FUNCTION_CHANGE_CASE', SYS_LANG, array('PMFPauseCase', G::LoadTranslation('ID_PAUSED'))));
|
die(G::LoadTranslation('ID_PM_FUNCTION_CHANGE_CASE', SYS_LANG, array('PMFPauseCase', G::LoadTranslation('ID_PAUSED'))));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -147,15 +147,15 @@ class ProcessProxy extends HttpProxyController
|
|||||||
$this->success = true;
|
$this->success = true;
|
||||||
if (! in_array( '-1', $res )) {
|
if (! in_array( '-1', $res )) {
|
||||||
if (count( $UIDS ) == 1) {
|
if (count( $UIDS ) == 1) {
|
||||||
$this->msg = __( 'ID_ACTOR_ASSIGNED_SUCESSFULLY', SYS_LANG, Array ('tas_title' => $task->getTasTitle()) );
|
$this->msg = G::LoadTranslation( 'ID_ACTOR_ASSIGNED_SUCESSFULLY', SYS_LANG, Array ('tas_title' => $task->getTasTitle()) );
|
||||||
} else {
|
} else {
|
||||||
$this->msg = __( 'ID_ACTORS_ASSIGNED_SUCESSFULLY', SYS_LANG, Array (count( $UIDS ),$task->getTasTitle()) );
|
$this->msg = G::LoadTranslation( 'ID_ACTORS_ASSIGNED_SUCESSFULLY', SYS_LANG, Array (count( $UIDS ),$task->getTasTitle()) );
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
if (count( $UIDS ) == 1) {
|
if (count( $UIDS ) == 1) {
|
||||||
$this->msg = __( 'ID_ACTOR_ALREADY_ASSIGNED', SYS_LANG, Array ($task->getTasTitle()) );
|
$this->msg = G::LoadTranslation( 'ID_ACTOR_ALREADY_ASSIGNED', SYS_LANG, Array ($task->getTasTitle()) );
|
||||||
} else {
|
} else {
|
||||||
$this->msg = __( 'ID_SOME_ACTORS_ALREADY_ASSIGNED', SYS_LANG, Array ($task->getTasTitle()) );
|
$this->msg = G::LoadTranslation( 'ID_SOME_ACTORS_ALREADY_ASSIGNED', SYS_LANG, Array ($task->getTasTitle()) );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -205,9 +205,9 @@ class Ajax
|
|||||||
|
|
||||||
$result->success = true;
|
$result->success = true;
|
||||||
if (count($UIDS) > 1) {
|
if (count($UIDS) > 1) {
|
||||||
$result->msg = __('ID_ACTORS_ASSIGNED_SUCESSFULLY', SYS_LANG, Array(count($UIDS), $task->getTasTitle()));
|
$result->msg = G::LoadTranslation('ID_ACTORS_ASSIGNED_SUCESSFULLY', SYS_LANG, Array(count($UIDS), $task->getTasTitle()));
|
||||||
} else {
|
} else {
|
||||||
$result->msg = __('ID_ACTOR_ASSIGNED_SUCESSFULLY', SYS_LANG, Array('tas_title' => $task->getTasTitle()));
|
$result->msg = G::LoadTranslation('ID_ACTOR_ASSIGNED_SUCESSFULLY', SYS_LANG, Array('tas_title' => $task->getTasTitle()));
|
||||||
}
|
}
|
||||||
} catch (Exception $e) {
|
} catch (Exception $e) {
|
||||||
$result->success = false;
|
$result->success = false;
|
||||||
|
|||||||
Reference in New Issue
Block a user