function Tigo_Enviar($telefono, $mensaje, $firma)
{
global $MiBD_OK;
if (!$MiBD_OK) {
$MDB = new iniParser(dirname(__FILE__) . "/misc/Tigo.datos.db");
}
//**************************************************
// Snoop
$snoopy = new Snoopy();
$snoopy->agent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)";
//**************************************************
//**************************************************
//Configuramos el Proxy.
$Datos_Proxy = explode(":", cProxy());
$snoopy->proxy_host = $Datos_Proxy[0];
$snoopy->proxy_port = $Datos_Proxy[1];
//echo "Servidor usado: $Datos_Proxy[0]:$Datos_Proxy[1]<br>";
//**************************************************
//**************************************************
$firma = urlencode($firma);
$mensaje = urlencode($mensaje);
//**************************************************
//**************************************************
//Verificamos si hay alguna sesión disponible para este número
$no_hay_sesion_vigente = true;
if ($MiBD_OK) {
$ultimo_uso_de_sesion = ObtenerValorSQL("xsms_modulos_tigo", "valor", "rama='{$telefono}.ultimo'");
} else {
$ultimo_uso_de_sesion = $MDB->getValue($telefono, "ultimo");
}
if ($ultimo_uso_de_sesion) {
//echo "Time: " . (time() - $ultimo_uso_de_sesion)."<br />";
if (time() - $ultimo_uso_de_sesion < 120) {
$no_hay_sesion_vigente = false;
if ($MiBD_OK) {
$ultimo_uso_de_sesion = ObtenerValorSQL("xsms_modulos_tigo", "valor", "{$telefono}.sesion");
} else {
$session = $MDB->getValue($telefono, "sesion");
}
//echo "Sesion reusada: $session <br />" ;
}
}
//**************************************************
// ---------------------------------------------------------------------------------------
if ($no_hay_sesion_vigente) {
// Inicio de sesion en el gateway de mensajes
$comando = "http://interactivo.mensajito.com/interactivo_sv/client.php?orden=1&nick=" . $firma . "&foo=" . rand(10000, 90000);
//echo "C1: ".$comando."<br />";
$snoopy->fetch($comando);
//echo "R1: ".$snoopy->results."<br />";
// Copiando el ID de sesion
$iPos = stripos($snoopy->results, "session=") + 8;
$session = substr($snoopy->results, $iPos);
//echo "Sesion obtenida: ".$session."<br />";
$comando = "http://interactivo.mensajito.com/interactivo_sv/client.php?orden=21&session=" . $session . "&nick=" . $firma . "&dstphone=503" . $telefono . "&pin=undefined&foo=" . rand(10000, 90000);
// Agregando al telefono destino
//echo "C2: ".$comando."<BR>";
$snoopy->fetch($comando);
//Acepto el telefono?
//echo "R2: ".$snoopy->results."<br>";
//echo "Sesion creada<br />";
if (!eregi('^invitar.*', $snoopy->results, $textoEncontrado)) {
//echo "ERROR: Tigo | No dio invitacion<br />";
return false;
}
if ($MiBD_OK) {
EstablecerValorSQL("xsms_modulos_tigo", "{$telefono}.ultimo='" . time() . "'");
EstablecerValorSQL("xsms_modulos_tigo", "{$telefono}.sesion='" . $session . "'");
} else {
$MDB->setValue($telefono, "ultimo", time());
$MDB->setValue($telefono, "sesion", $session);
$MDB->save();
}
}
// ---------------------------------------------------------------------------------------
// Se envia el mensaje
$comando = "http://interactivo.mensajito.com/interactivo_sv/client.php?orden=3&session={$session}&nick=" . $firma . "&mensaje=" . $mensaje . "&foo=" . rand(999, 7000);
//echo $comando."<br />";
$snoopy->fetch($comando);
//echo "RESULTADO:<br /><pre>".$snoopy->results."</pre><br />";
$srandom = stripos($snoopy->results, "error=0");
// ---------------------------------------------------------------------------------------
//Cerramos la sesion
// $comando = "http://interactivo.mensajito.com/interactivo_sv/client.php?orden=6&session=$session&foo=".rand(10000,90000);
//echo "Comando:".$comando."<br />";
// $snoopy->fetch($comando);
// ---------------------------------------------------------------------------------------
if ($srandom !== FALSE) {
return true;
} else {
return false;
}
}
$graph->labels = "Digicel,Telefonica/Movistar,Telecom/Claro,Telemovil/Tigo";
$graph->values = "{$c_Digicel_OK};{$c_Digicel_NO}, {$c_Telefonica_OK};{$c_Telefonica_NO}, {$c_Telecom_OK};{$c_Telecom_NO}, {$c_Tigo_OK};{$c_Tigo_NO}";
echo $graph->create();
echo "<h3>Comparativa de compañías.</h3>Demanda de envio por compañías.<br />";
$graph->labels = "Digicel,Telefonica/Movistar,Telecom/Claro,Telemovil/Tigo";
$graph->legend = "";
$graph->values = $c_Digicel_OK + $c_Digicel_NO . ", " . ($c_Telefonica_OK + $c_Telefonica_NO) . ", " . ($c_Telecom_OK + $c_Telecom_NO) . ", " . ($c_Tigo_OK + $c_Tigo_NO);
echo $graph->create();
echo "<h3>Eficiencia de envio por compañías.</h3>Porcentaje de envios exitosos respecto a total de mensajes por compañia.<br />";
$graph->type = "pBar";
$graph->legend = "";
$graph->showValues = 0;
$graph->barColors = "#E0E0E0,#E0E0E0,#E0E0E0,#E0E0E0";
$graph->labels = "Digicel,Telefonica/Movistar,Telecom/Claro,Telemovil/Tigo";
$graph->values = $c_Digicel_OK . ";" . ($c_Digicel_OK + $c_Digicel_NO) . ", " . $c_Telefonica_OK . ";" . ($c_Telefonica_OK + $c_Telefonica_NO) . ", " . $c_Telecom_OK . ";" . ($c_Telecom_OK + $c_Telecom_NO) . ", " . $c_Tigo_OK . ";" . ($c_Tigo_OK + $c_Tigo_NO);
echo $graph->create();
if ($MiBD_OK) {
echo "<hr /><h2>Estadisticas de visitas</h2>";
$graph->showValues = 1;
$graph->type = "hBar";
$c_Visitas_HTML = floatval(ObtenerValorSQL("xsms_estadisticas", "valor", "rama='text/html'"));
$c_Visitas_WAP = floatval(ObtenerValorSQL("xsms_estadisticas", "valor", "rama='text/vnd.wap.wml'"));
$graph->labels = "HTML,WAP/WML";
$graph->values = $c_Visitas_HTML . ", " . $c_Visitas_WAP;
echo $graph->create();
echo "<br />¡<b>" . ceil(($c_Visitas_HTML + $c_Visitas_WAP) / $numdias) . "</b> visitas por dia!<br />";
}
echo "<hr /><h2>Copyright</h2>Mensajitos.php es un proyecto creado por <b>mxgxw</b> -> www.nohayrazon.com<br />Este es Mensajitos.php TSV, una version modificada por <b>Vlad</b> del software Mensajitos.php<br />";
echo '</div>
</body>
</html>';
//$url_bad = $_POST['urlbad'];
//************************************************
//Comprobamos que no sea publicidad, cobro, etc.
if (DenegarFiltro($mensaje)) {
exit("Lo sentimos, publicidad y cobros no son aceptados. <br>Aprenda mas sobre esto aqui:<br>" . ' <A href="http://foro.todosv.com/index.php/topic,95">Filtros... en pro de los salvadoreños y en contra de las compañías tacañas.<A />');
}
//Validamos el numero telefonico
if ($telefono == "" || !ereg("^((2|7)[0-9]{7})\$", $telefono)) {
$estado = "Escriba el numero correctamente";
$ret = "Revise su numero";
} else {
if ($MiBD_OK) {
$cuentaNum = ObtenerValorSQL("xsms_flood", "valor", "clave='{$telefono}.cuenta'");
$ultimoNum = ObtenerValorSQL("xsms_flood", "valor", "clave='{$telefono}.ultimo'");
$cuentaIP = ObtenerValorSQL("xsms_flood", "valor", "clave='" . $_SERVER['REMOTE_ADDR'] . ".cuenta'");
$ultimoIP = ObtenerValorSQL("xsms_flood", "valor", "clave='" . $_SERVER['REMOTE_ADDR'] . ".ultimo'");
} else {
//Comprobamos que no tenga ban.
//Cuenta de mensajes a ese numero
$cuentaNum = $I_nMDB->getValue($telefono, "cuenta");
//Cuando se envio por ultima vez un mensaje a ese numero
$ultimoNum = $I_nMDB->getValue($telefono, "ultimo");
//Cuenta de mensajes desde esa IP
$cuentaIP = $I_nMDB->getValue($_SERVER['REMOTE_ADDR'], "cuenta");
//Cuando esa IP nos envio por ultima vez un mensaje
$ultimoIP = $I_nMDB->getValue($_SERVER['REMOTE_ADDR'], "ultimo");
}
//-------------------------------------------------
$flooder = 0;
if (time() - $ultimoIP < $intervalo_flood && $cuentaIP > $limite_flood_ip) {
//Si no ha pasado una hora desde su ultimo mensaje y ha enviado mas mensajes de la cuenta (IP)
