/** * 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;