Entrada:"; $itens = array_keys($x['input']); foreach ($itens as $item) { if ($item == "parts") { $vs = array_keys($x['input'][$item]); foreach ($vs as $v) { $xx = explode(":",$x['input'][$item][$v]); $inputFuncao[$txt_name] .= "
".$v." tipo:".($xx[2]).""; } } } } if ($x['output']) { $itens = array_keys($x['output']); foreach ($itens as $item) { if ($item == "parts") { $vs = array_keys($x['output'][$item]); foreach ($vs as $v) { $xx = explode(":",$x['output'][$item][$v]); $outputFuncao[$txt_name] .= "
".$v." tipo:".($xx[2]).""; } } } } if ($x['documentation']) {$docFuncao[$txt_name] = "
".$x['documentation'];} } } } } if (count($nomeFuncao) > 0) { foreach ($nomeFuncao as $f) { $final[] = $f."#".$inputFuncao[$f]."#".$outputFuncao[$f]."#".$docFuncao[$f]; } $retorna = implode("|",$final); } else {$retorna="Nenhuma função encontrada";} $cp->set_data($retorna); } //busca dados de um WS if ($funcao == "dadosws") { $cp->register('dadosWS'); $cp->start(); $cp->return_data(); exit; } /* Function: dadosWS Faz a chamada de uma função de um WS para pegar os dados. cp - Objeto CPAINT. servico - Endereço do web service. funcaows - Nome da função do serviço. param - Parâmetros da funcao. */ function dadosWS() { global $param,$cp,$servico,$funcaows; //ini_set("memory_limit","28M"); require_once('../pacotes/SOAP/nusoap.php'); require_once("../pacotes/SOAP/easy_parser.inc"); $soapclient = new Xsoapclient($servico."?wsdl","wsdl"); $retorna = "erro"; $parametros = ""; if (isset($param)) { $parametros = array(); $linhas = explode("|",$param); if (count($linhas) == 0){$linhas[] = $param;} foreach($linhas as $linha) { $p = explode("*",$linha); if (($p[1] == "null") || ($p[1] == "")){$p[1] = null;} $parametros = array_merge(array($p[0]=>$p[1]),$parametros); } } $resultado = $soapclient->call($funcaows,$parametros); $xml = new easy_parser; $result = $xml->parser($resultado,false); // if source of document is not a file then use $result = $xml->parser($var_source,false) if (@$r = $xml->view_source()) {$retorna = "Resultado da chamada XML:

".$r;} else { if (@$p = $soapclient->getproxy()) { $vv = $p->$funcaows($parametros); $retorna = "
Resultado da chamada com getproxy
"; $retorna .= "

";
			$retorna .= print_r($vv,true);
			$retorna .= "

";
			$retorna .= print_r($resultado,true);
		}
	}
	if (function_exists("mb_convert_encoding"))
	{$cp->set_data(mb_convert_encoding($retorna,"UTF-8","ISO-88591"));}
	else 
	{$cp->set_data($retorna);}
}
//le parâmetros de uma função de um WS
if ($funcao == "parfuncoesws")
{
	$cp->register('parFuncoesws');
	$cp->start();
	$cp->return_data();
	exit;
}
/*
Function: parFuncoesws

Pega os campos de parâmetros de uma função de um WS.

cp - Objeto CPAINT.

servico - Endereço do web service.

funcaows - Nome da função do serviço.
*/
function parFuncoesws()
{
	global $cp,$servico,$funcaows;
	$retorna = array();
	require_once('../pacotes/SOAP/nusoap.php');
	$service_request = $servico; // . "?wsdl";
	$service_r = file($service_request);
	$service_r = implode("",$service_r);
	$c = new Xsoapclient($servico."?wsdl","wsdl");
	$elementos = $c->getproxy();
	if ($elementos->wsdl->schemas)
	{
		$schemas = $elementos->wsdl->schemas;
		foreach($schemas[key($schemas)][0]->complexTypes[$funcaows."_ContainedType"]["elements"] as $elemento)
		{
			$retorna[] = $elemento["name"]."#";
		}
	}
	if (count($retorna) == 0)
	{
		foreach ($elementos as $elemento)
		{
			if (is_array($elemento))
			{
				foreach ($elemento as $x)
				{
					if (is_array($x))
					{
						if (($x['name']) && ($x['name'] == $funcaows))
						{
							foreach ($x as $xx)
							{
								if ($xx["message"] == $funcaows."Request")
								{
									$vs = array_keys($xx['parts']);
									foreach ($vs as $v)
									{
										$t = explode(":",$xx['parts'][$v]);
										$retorna[] = $v."#".$t[2];
									}									
								}
							}
						}
					}
				}
			}
		}
	}
	if (count($retorna) > 0)
	{$cp->set_data(implode("|",$retorna));}
	else
	{$cp->set_data("");}
	
}
//le links de RSS para ws
if ($funcao == "listaRSSws")
{
	$cp->register('listaRSSws');
	$cp->start();
	$cp->return_data();
	exit;
}
/*
Function: listaRSSws

Pega os links de um RSS WS.

cp - Objeto CPAINT.

rss - Endereços dos RSS.
*/
function listaRSSws()
{
	global $cp,$rss;
	require('../pacotes/magpierss/rss_fetch.inc');
	//$rss = fetch_rss("http://localhost/i3geo/menutemas/servicosws.xml");
	$rsss = explode("|",$rss);
	$erro = "Erro. Nao foi possivel ler o arquivo";
	foreach ($rsss as $r)
	{
		$rss = fetch_rss($r);
		if ($rss)
		{
			$erro = "";
			$linhas[] = "####";
			foreach ( $rss->items as $item )
			{
				$linha[] = $item['title'];
				$linha[] = $item['description'];
				$linha[] = $item['link'];
				$linha[] = $item['author'];
				$linha[] = $item['ranking'];
				$linha[] = $item['tempo'];
				$linhas[] = implode("#",$linha);
				$linha = array();
			}
		}
	}
	if ($erro == "")
	{
		$retorna = implode("|",$linhas);
		$retorna = str_replace("\n","",$retorna);
		if (function_exists("mb_convert_encoding"))
		{$retorna = mb_convert_encoding($retorna,"UTF-8","ISO-88591");}
		else 
		{$retorna = $retorna;}
	}
	else {$retorna = $erro;}
	$cp->set_data($retorna);
}
?>