cap.meteoalarm.webservices.vl.php

<?php
/**
 *       \file       htdocs/public/webservices/cap_export_client.php
 *       \brief      Client to make a client call to Meteoalarm WebServices "putCap"
 */
$meteoalarm = 1;
if($meteoalarm == 1)
{
	global $conf;

	$data = $_GET['data'];
	if($data == "") $data = 0;

	$configuration->setValue("webservice", "password", encrypt_decrypt(2, $configuration->conf["webservice"]["password"]));
	ini_set("default_socket_timeout", 60000);
	set_time_limit ( 240 );

	$ns=$configuration->conf["webservice"]["ns"];
	$WS_DOL_URL = $ns.'CapAreaInfo.php';

	$filename = $_POST[filename];
	if($_POST['import']==1) $import = true; else $import = false;
	// if($_POST['debug']==1) $debug = true; else $debug = false;
	$debug = true;
	if($import == "") $import = true;

	// Set the WebService URL
	$soapclient = new nusoap_client($WS_DOL_URL, '',$configuration->conf["proxy"]["proxyIP"], $configuration->conf["proxy"]["proxyPort"], $configuration->conf["proxy"]["proxyUserName"], $configuration->conf["proxy"]["proxyUserPass"]); // <-- set the Timeout above 300 Sec.
	$soapclient->setDebugLevel(0);
	if ($soapclient)
	{
		$soapclient->soap_defencoding='UTF-8';
		$soapclient->decodeUTF8(false);
	}

	if($configuration->conf["webservice"]["WS_DOL_URL_2"]) {
		$soapclient_2 = new nusoap_client($configuration->conf["webservice"]["WS_DOL_URL_2"], '' , $configuration->conf["proxy"]["proxyIP"], $configuration->conf["proxy"]["proxyPort"], $configuration->conf["proxy"]["proxyUserName"], $configuration->conf["proxy"]["proxyUserPass"], 0, 300); // <-- set the Timeout above 300 Sec.
		if ($soapclient_2) {
			$soapclient_2->soap_defencoding='UTF-8';
			$soapclient_2->decodeUTF8(false);
		}
	}

	// Call the WebService method and store its result in $result.
	$authentication=array(
		'dolibarrkey'=>$configuration->conf["webservice"]["securitykey"],
		'sourceapplication'=>'getAreaInfo',
		'login'=> $configuration->conf["webservice"]["login"] ,
		'password'=> $configuration->conf["webservice"]["password"] );

	if(!empty($configuration->conf["identifier"]["ISO"])) $iso = $configuration->conf["identifier"]["ISO"];
	if(!empty($_GET['iso'])) $iso = $_GET['iso'];

	$GenInsInput=array(
		'iso'=>$iso,
		'show_warnings'=> 1,
		'view_type'=>2,
		'date_b'=> $data,
		'utc' => '+00:00',
		'use_warntable'=>1
	);

	if($mapphp == true) $GenInsInput['utc'] = date('P');
	if($mapphp == true) $GenInsInput['ver'] = 2;

	$parameters = array('authentication'=>$authentication, 'getAreaInfo'=>$GenInsInput);

	if($mapphp == true)
	{
		$AreaVLArray = $soapclient->call('getAreaInfo',$parameters,$ns,'');
	}
	else
	{
		$AreaCodesArray = $soapclient->call('getAreaInfo',$parameters,$ns,'');
	}

	if ($soapclient->fault)
	{
		$out.= '<h2>Fault</h2><pre>';
		$out.=var_dump($result);
		$out.= '</pre>';
	}
	else
	{
		    // Check for errors
		$err = $soapclient->getError();

		if ($err)
		{
		  // Display the error
		  $out.= '<h2>Error</h2><pre>' . $err . '</pre>';
		}
		else
		{

		}
	}

	$configuration->setValue("webservice", "password", encrypt_decrypt(1, $configuration->conf["webservice"]["password"]));
}
?>