You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
84 lines
2.5 KiB
84 lines
2.5 KiB
<?php
|
|
|
|
// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
|
|
//
|
|
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
|
|
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
|
|
// $Id$
|
|
|
|
// This script may only be included - so it's better to die if called directly.
|
|
if (strpos($_SERVER["SCRIPT_NAME"], basename(__FILE__)) !== false) {
|
|
header("location: index.php");
|
|
die;
|
|
}
|
|
|
|
require_once 'lib/soap/nusoap/nusoap.php';
|
|
|
|
class Tiki_Wsdl
|
|
{
|
|
public function getParametersNames($wsdlUri, $operation)
|
|
{
|
|
global $prefs;
|
|
$parameters = [];
|
|
|
|
if (! $wsdlUri || ! $operation) {
|
|
return $parameters;
|
|
}
|
|
|
|
$context = null;
|
|
|
|
if ($prefs['use_proxy'] == 'y' && ! strpos($wsdlUri, 'localhost')) {
|
|
// Use proxy
|
|
$context = stream_context_create(
|
|
[
|
|
'http' => [
|
|
'proxy' => $prefs['proxy_host'] . ':' . $prefs['proxy_port'],
|
|
'request_fulluri' => true
|
|
]
|
|
]
|
|
);
|
|
}
|
|
|
|
// Copy content in cache
|
|
$wsdl_data = file_get_contents($wsdlUri, false, $context);
|
|
|
|
if (! isset($wsdl_data) || empty($wsdl_data)) {
|
|
trigger_error(tr("No WSDL found"));
|
|
return [];
|
|
}
|
|
|
|
$wsdlFile = $GLOBALS['tikipath'] . 'temp/cache/' . md5($wsdlUri);
|
|
file_put_contents($wsdlFile, $wsdl_data);
|
|
|
|
// Read wsdl from local copy
|
|
$wsdl = new wsdl('file:' . $wsdlFile);
|
|
|
|
if (! empty($wsdl->error_str)) {
|
|
trigger_error($wsdl->error_str);
|
|
return $parameters;
|
|
}
|
|
|
|
$data = $wsdl->getOperationData($operation);
|
|
|
|
if (isset($data['input']['parts'])) {
|
|
foreach ($data['input']['parts'] as $parameter => $type) {
|
|
preg_match('/^(.*)\:(.*)\^?$/', $type, $matches);
|
|
|
|
if (count($matches) == 3 && ($typeDef = $wsdl->getTypeDef($matches[2], $matches[1]))) {
|
|
if (isset($typeDef['elements'])) {
|
|
foreach ($typeDef['elements'] as $element) {
|
|
$parameters[] = $typeDef['name'] . ':' . $element['name'];
|
|
}
|
|
}
|
|
} else {
|
|
$parameters[] = $parameter;
|
|
}
|
|
}
|
|
}
|
|
|
|
return $parameters;
|
|
}
|
|
}
|
|
|
|
global $wsdllib;
|
|
$wsdllib = new Tiki_Wsdl();
|