'https://preinterint.gva.es/eSirca_Bus/ins/Proxy/SAFE/AutenticacionArangi_v1_00?wsdl',
//$keyAutentica => 'https://instrumental-pre.gva.es/pai_bus_ins/SAFE/Autenticacion_v1_00?wsdl', //Instrumentales
$keyFirma => 'https://preinterint.gva.es/eSirca_Bus/ins/Proxy/SAFE/FirmaArangi_v1_00?wsdl',
$keyAutoriza => 'https://preinterint.gva.es/eSirca_Bus/ins/Proxy/SAFE/AutorizacionHDFI_v1_00?wsdl'
);
/* Datos del certificado de aplicación de pruebas */
$v_datosCertif = array
(
'certFile' => realpath('../../cert/SELLO-SCOR-PRE.crt'),
'keyFile' => realpath('../../cert/SELLO-SCOR-PRE.key')
);
$vTrazabilidad = array
(
'nsCert'=> '2039d6a41976eedf', //02d8f243f4272489
'idApp'=> 'RABAC' //RABAC
);
$user = 'provagenerica_pro';
$password = '683791pre';
$userHDFI = '1212121'; //Mismo usuario
//$dni = '29163429G';
print("\n\n
Sólo autenticación a través de autenticaUsuarioLDAPWS()
\n");
$token = null;
try
{
$clienteSIRCA = WSComunFClient::makeWSClient(WSComunFClient::KEYCLIENTE_AUTENTICA, $v_wsdl, array_merge($v_datosCertif, $vTrazabilidad));
$clienteSIRCA->loadTracertPAI($vTrazabilidad);
$clienteSIRCA->setWSDLTimeOut(10);
$clienteSIRCA->setDebugMode(true);
$token = $clienteSIRCA->autenticaUsuarioLDAPWS($user, $password);
if (!is_object($token))
{
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("\n
Error de autenticación, token vacío\n
");
print_r($vDebugInfo);
die;
}
else
{
print("Token:\n
");
print_r($token);
}
}
catch (Exception $e)
{
print("\n
Excepción: \n
");
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
print($e->getMessage());
die;
}
die;
print("\n\n
Información (autenticación y autorización) a través de LDAP
\n");
$datosUsuario = array();
try
{
set_time_limit(40);
$clienteSIRCA = WSComunFClient::makeWSClient(WSComunFClient::KEYCLIENTE_AUTENTICA, $v_wsdl, array_merge($v_datosCertif, $vTrazabilidad));
$clienteSIRCA->setDebugMode(true);
$datosUsuario = $clienteSIRCA->getInformacionLDAP($user, $password);
if (empty($datosUsuario))
{
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
}
else
{
print("Datos Usuario:\n
");
print_r($datosUsuario);
}
}
catch (Exception $e)
{
print("\n
Excepción: \n
");
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
print($e->getMessage());
}
print("\n\n
Sólo autenticación a través de HDFI autenticaUsuarioWS()
\n");
$token = null;
try
{
set_time_limit(40);
$clienteSIRCA = WSComunFClient::makeWSClient(WSComunFClient::KEYCLIENTE_AUTENTICA, $v_wsdl, array_merge($v_datosCertif, $vTrazabilidad));
$clienteSIRCA->setDebugMode(true);
$token = $clienteSIRCA->autenticaUsuarioWS($user, $password);
if (!is_object($token))
{
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("\n
Error de autenticación, token vacío\n
");
print_r($vDebugInfo);
die;
}
else
{
print("Token:\n
");
print_r($token);
}
}
catch (Exception $e)
{
print("\n
Excepción: \n
");
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
print($e->getMessage());
die;
}
print("\n\n
Información (autenticación y autorización) a través de HDFI
\n");
$datosUsuario = array();
try
{
set_time_limit(40);
$clienteSIRCA = WSComunFClient::makeWSClient(WSComunFClient::KEYCLIENTE_AUTENTICA, $v_wsdl, array_merge($v_datosCertif, $vTrazabilidad));
$clienteSIRCA->setDebugMode(true);
$datosUsuario = $clienteSIRCA->getInformacionHDFI($userHDFI, $password);
if (empty($datosUsuario))
{
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
}
else
{
print("Datos Usuario:\n
");
print_r($datosUsuario);
}
}
catch (Exception $e)
{
print("\n
Escepción: \n
");
$vDebugInfo = is_object($clienteSIRCA)?$clienteSIRCA->getDebugInfo():array('Error en la creación del objeto WSComunFClient');
print("Error de autenticación
\n");
print_r($vDebugInfo);
print($e->getMessage());
}
?>