Ariadne-CMS / ariadne

lib/modules/mod_soap.php

<?php
    /******************************************************************
     mod_soap.php                                          Muze Ariadne
     ------------------------------------------------------------------
     Author: Muze (info@muze.nl)
     Date: 25 november 2004

     Copyright 2004 Muze

     This file is part of Ariadne.

     Ariadne is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published
     by the Free Software Foundation; either version 2 of the License,
     or (at your option) any later version.

     Ariadne is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with Ariadne; if not, write to the Free Software
     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
     02111-1307  USA

    -------------------------------------------------------------------

     Description:

		PINP wrapper to the pear SOAP library.

    ******************************************************************/

	require_once("SOAP/Client.php");
	require_once("SOAP/Parser.php");

	class pinp_SOAP {

		public static function _Client($endpoint, $wsdl = false , $portName = false, $proxy_params=array() ) {
			return new pinp_SOAP_Client( $endpoint, $wsdl, $portName, $proxy_params);
		}

		public static function _Parser($xml, $encoding = SOAP_DEFAULT_ENCODING, $attachments=null) {
			return new pinp_SOAP_Parser( $xml, $encoding, $attachments );
		}


		public static function _Value($name, $type, $value, $namespaces=false) {
			if( $namespaces===false ) {
				return new SOAP_Value( $name, $type, $value);
			} else {
				return new SOAP_Value( $name, $type, $value, $namespaces );
			}
		}

		public static function _Header($name, $type, $value=null, $mustunderstand=0, $actor = 'http://schemas.xmlsoap.org/soap/actor/next') {
			return new SOAP_Header( $name, $type, $value, $mustunderstand, $actor );
		}

	}

	class pinp_SOAP_Parser extends SOAP_Parser {

		public function __construct( $xml, $encoding = SOAP_DEFAULT_ENCODING, $attachments=null ) {
			parent::SOAP_Parser( $xml, $encoding, $attachments );

The method SOAP_Parser() does not seem to exist on object<soap_parser>.

		}

		public function _getResponse() {
			return $this->getResponse();

The method getResponse() does not exist on pinp_SOAP_Parser. Did you maybe mean _getResponse()?

		}

		public function _parseMessage($nr=0) {
			$msg = &$this->message;

The property message does not exist. Did you maybe forget to declare it?

			switch(strtolower($msg[$nr]["type"])) {
				case 'struct':
					$result = array();
					$children = explode("|", $msg[$nr]["children"]);
					$to_array = array();
					foreach($children as $child) {
						$key = $msg[$child]["name"];
						$value = $this->_parseMessage($child);
						if ($result[$key]) {
							if (!$to_array[$key]) {
								$temp = $result[$key];
								$result[$key] = array();
								$result[$key][] = $temp;
								$to_array[$key] = true;
							}
							$result[$key][] = $value;
						} else {
							$result[$key] = $value;
						}
					}
				break;
				case 'string':
				default:
					$result = $msg[$nr]["cdata"];
				break;
			}
			return $result;
		}
	}


	class pinp_SOAP_Client extends SOAP_Client {

		public function __construct($endpoint, $wsdl = false, $portName = false, $proxy_params=array()) {
			parent::SOAP_Client( $endpoint, $wsdl, $portName, $proxy_params );
		}

		public function _call( $function, $arguments=false, $namespace=false, $soapAction=false ) {
			return $this->call( $function, $arguments, $namespace, $soapAction );
		}

		public function _addHeader($soap_value) {
			return $this->addHeader($soap_value);
		}

		public function _isError($value) {
			return $this->isError($value);
		}

		public function _isWarning($value) {
			return $this->isWarning($value);
		}

		public function _errorMessage($error) {
			if (is_object($error) && get_class($error) == "soap_fault") {
				$result = $error->message;

The property message does not seem to exist in soap_fault.

			} else {
				$result = false;
			}
			return $result;
		}

	}