/**
* Funcion para envio de mensajes de texto
*
* @param Numero telefonico para el envio del mensaje
* @param Contenido del mensaje de texto
*/
function envio_sms($telefono, $mensaje)
{
App::import('Vendor', 'nusoap/nusoap');
$param = array('user' => 'tablerosetec', 'password' => 'tabset11', 'telefono' => $telefono, 'mensaje' => $mensaje);
$endpoint = Configure::read('rutaWS');
$client = new soap_client($endpoint);
$err = $client->getError();
if ($err) {
echo "ERROR: " . $err;
//este error se detona si hay algun problema con conectarse al Web Service
}
$result = $client->call('SendMessage', $param);
//Retorna un Numero Entero
if ($client->fault) {
echo '<h2>Fault</h2><pre>';
print_r($result);
//En caso de falla
echo '</pre>';
} else {
// Check for errors
$err = $client->getError();
//En caso de algun error, como parametros invalidos.
if ($err) {
// Display the error
echo '<h2>Error</h2><pre>' . $err . '</pre>';
} else {
// Display the result
//En caso de exito, para este WebService regresa un id unico
// que es el id de la transaccion del mensaje, en la tabla outbox es un autoincremento
//echo '<h2>Result</h2><pre>';
//print_r($result);
//echo '</pre>';
return;
}
}
}
/**
* This method returns average message length for all users who are all posted messages for given resource id.
* @param rid - Resource ID
* @return an array. Each item contains an other array where the key will be message_len and screen_name
*/
function voicetools_get_average_length_messages_per_user($rid)
{
global $CFG;
$soapclient = new soap_client($CFG->voicetools_servername . VT_API_SERVICES, true);
$err = $soapclient->getError();
if ($err) {
wimba_add_log(WIMBA_ERROR, voiceboard_LOGS, __FUNCTION__ . ' : Error to create the soap element');
return false;
}
$resource = array($CFG->voicetools_adminusername, $CFG->voicetools_adminpassword, $rid);
$result = $soapclient->call(VT_API_GET_AVERAGE_MESSAGE_LENGTH_PER_USER, $resource);
if ($soapclient->fault) {
wimba_add_log(WIMBA_ERROR, voiceboard_LOGS, __FUNCTION__ . ' : Fault with the web service : ' . $soapclient->fault);
return false;
} else {
// Check for errors
$err = $soapclient->getError();
if ($err == "operation getAverageMessageLengthPerUser not present.") {
return "not_implemented";
} else {
if ($err) {
wimba_add_log(WIMBA_ERROR, voiceboard_LOGS, __FUNCTION__ . ' : error with the web service : ' . $err);
return false;
}
}
}
return pairsetToArray($result);
}
$soap_pw = $_GET["soap_pw"] ? $_GET["soap_pw"] : "testpw";
$new_user = $_GET["new_user"];
echo '<form>' . 'server <input size="80" type="text" name="server" "value="' . $server . '"/>' . '<br />ext_uid <input size="50" type="text" name="ext_uid" "value="' . $ext_uid . '"/>' . '<br />soap_pw <input size="50" type="text" name="soap_pw" "value="' . $soap_pw . '"/>' . '<br />new_user <input size="50" type="text" name="new_user" "value="' . $new_user . '"/> (1 for true, 0 for false)' . '<br /><input type="submit" /><br />' . '<b>The test server will return true/valid, if ext_uid == soap_pw.</b>' . '</form>';
echo "<br /><br />----------------------------------------------<br /><br /> Calling Server...";
// initialize soap client
$client = new soap_client($server);
if ($err = $client->getError()) {
echo '<h2>Constructor error</h2><pre>' . $err . '</pre>';
}
// isValidSession call
//$valid = $client->call('isValidSession',
// array('ext_uid' => $ext_uid,
// 'soap_pw' => $soap_pw,
// 'new_user' => $new_user));
$namespace = "http://testuri.org";
$valid = $client->call('isValidSession', array('ns1:ext_uid' => $ext_uid, 'ns1:soap_pw' => $soap_pw, 'ns1:new_user' => $new_user), $namespace, $namespace . "/isValidSession");
showResult($client, $valid, 'isValidSession');
echo "<br />End Test";
function showResult(&$client, $data, $message)
{
if ($client->fault) {
echo '<h2>Fault</h2><pre>';
print_r($data);
echo '</pre>';
} else {
// Check for errors
$err = $client->getError();
if ($err) {
// Display the error
echo '<h2>Error</h2><pre>' . $err . '</pre>';
exit;
