Sv Community El Salvador
Soporte y Tecnología => Programación => Scripts => Mensaje iniciado por: Jaru en septiembre 21, 2007, 01:00:59 pm
-
bueno, ahora me pidieron mi kodigo de PERL para mandar mensajes a DIGICEL.
este kodigo fue hecho gracias a el trabajo investigativo de mxgxw y al gran aporte en el tema del amigo VLAD
les dejo aki komo funciona, deberia de funcionar sin problemas en un servidor ke korra PERL.
lo hago publiko para ke todo mundo pueda usarlo.
ha estado funcionando aki por mucho tiempo:
http://naruto.madpage.com/sms/digicel.cgi (http://naruto.madpage.com/sms/digicel.cgi)
tiene una diferencia en komparacion a mensajitos o a XMR (hasta donde yo se), ke en esta version mia de mensajes a digicel, tiene una seleccion extra, si keres mandar el mensaje komo normal o komo urgente, ke implika esto?
• mensaje normal: el mensaje es enviado komo kualkier otro SMS y entra a la bandeja de SMS recibidos en el celular/unidad movil destino.
• mensaje urgente: el mensaje es enviado directamente a la pantalla del celular/unidad movil destino, (dependiendo del celular) generalmente no se guarda en la bandeja de entrada y no requiere intervencion manual para su despliegue (favor utilizar esta opcion kon mesura, no keremos SPAM en los celulares...).
les invito a ke prueben komo funciona en mi site (http://naruto.madpage.com/sms/digicel.cgi), prueben komo funcionan las opciones de NORMAL y URGENTE
el kodigo es el siguiente:
#!/usr/bin/perl
#use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use LWP::UserAgent;
use HTTP::Request;
# digicel.cgi
# codificado por naruto, xbatusai@hotmail.com
# gracias a mxgxw y a VLAD por su apoyo en el desarrollo de este script
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$longyr = $year + 1900;
$fixmo = $mon + 1;
# haciendo ke los meses sean 0x si son menores de 10 donde x => [1-9]
if ($fixmo < 10)
{
$temp="0";
$fixmo=$temp.$fixmo;
}
if ($hour < 10)
{
$temp="0";
$hour=$temp.$hour;
}
if ($min < 10)
{
$temp="0";
$min=$temp.$min;
}
if ($sec < 10)
{
$temp="0";
$sec=$temp.$sec;
}
# NOTA: la fecha y hora no se utiliza en este codigo
#pero esta ahi para usos ke el usuario krea konveniente.
my $telefono = param('telefono') || "NULL0";
my $mensaje = param('mensaje') || "visita http://naruto.madpage.com";
my $firma = param('firma') || "anonimo";
my $tipo = param('tipo') || "NULL0";
print "Content-type: text/html\n\n";
# remover el las tags de <noscript><body></noscript>, esto es solo para evitar banners en mi server
print "<noscript><body></noscript>";
print "<body>";
#print "$telefono <br> $mensaje <br> $firma <br> $tipo <hr>";
print "mensajitos a digicel version naruto. <hr>";
print "<form action=\"digicel.cgi\" method=\"post\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tbody><tr><td colspan=\"2\"></td></tr>
<tr>
<td>Teléfono:</td>
<td><input name=\"telefono\" maxlength=\"8\" size=\"8\" value=\"${telefono}\" type=\"text\"></td>
</tr>
<tr>
<td colspan=\"2\">Mensaje:</td>
</tr>
<tr>
<td colspan=\"2\"><div align=\"center\">
<textarea name=\"mensaje\" rows=\"4\" cols=\"15\" maxlength=\"125\"></textarea>
</div></td>
</tr>
<tr>
<td>Firma:</td>
<td><input name=\"firma\" size=\"8\" maxlength=\"25\" value=\"${firma}\" type=\"text\"></td>
</tr>
<tr>
<td colspan=\"2\"><div align=\left\">
<input type=\"radio\" name=\"tipo\" value=\"normal\" checked>mensaje normal<br>
<input type=\"radio\" name=\"tipo\" value=\"urgente\" >mensaje urgente<br>
</div></td>
</tr>
<tr>
<td colspan=\"2\">
<div align=\"center\">
<input name=\"enviar\" value=\"enviar\" type=\"submit\">
</div></td>
</tr>
</tbody></table>
</form>";
print "<hr>";
$mensaje =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
$temp = "urgente";
if ($tipo eq $temp)
{
print "mensaje urgente ha sido enviado<hr>";
$url = "http://200.35.189.5:8696/submit_sm?source_addr=${firma}&destination_addr=${telefono}&data_coding=16&short_message=${mensaje}";
}
$temp = "normal";
if ($tipo eq $temp)
{
print "mensaje normal ha sido enviado<hr>";
$url="http://200.35.189.5:8696/submit_sm?source_addr=${firma}&destination_addr=${telefono}&short_message=${mensaje}";
}
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
print "si quieres compartir esta pagina<br>puede hacerlo accediendo al siguiente link,<br>
es mas corto y te trae al mismo lugar:<br><b>http://tinyurl.com/39nkml</b><br><hr>";
print "</body>";
-
buenale naruto...
mira y telecom no se puede hacer lo mismo? yo en mi celular seguid recibo mensajes asi pero solo de los malditos de telecom :dumb:
-
buenale naruto...
mira y telecom no se puede hacer lo mismo? yo en mi celular seguid recibo mensajes asi pero solo de los malditos de telecom :dumb:
fijate ke teniendo los accesos a los gateways necesarios, CLARO ke se podria, la kosa esta en konseguir esa informacion, el ke ha sido bueno investigando eso es mxgxw
seria de averiguarse ahi... y si se puede.
nota: la implementacion de mensajes a digicel es la mas facil de hacer, solo requiere de un fetching a la URL necesaria kon la info necesaria, el metodo puede ser GET, no utiliza cookies. las demas compañias requieren de mas kodigo para su implementacion, ya les metere mano...
-
esta en algo la opción de urgente, realmente no sabia para que era esa opción.
-
al fin aprendi cual es el secreto de los msj a cel desde sitios web XD
-
Excelente codigo, gracias por compartir....ya lo tengo copiado por aca.
-
al fin aprendi cual es el secreto de los msj a cel desde sitios web XD
mmm en si no era secreto, mxgxw siempre lo tuvo komo kodigo abierto solo ke en PHP... jhajajaja la info siempre a estado ahi, yo solo lo adapte a PERL, eso era algo ke habiamos hablado kon mxgxw desde hace años, hacer la version COMPLETA de mensajitos en PERL pero komo soy aragan no la habia hecho... ahorita solo digicel he implementado, si se fijan el kodigo esta todo desordenado... ya lo arreglare para ke sea una libreria :D
-
mmm en si no era secreto, mxgxw siempre lo tuvo komo kodigo abierto solo ke en PHP... jhajajaja la info siempre a estado ahi.....
lo se, lo que pasa es que me daba hueva tar leyendo, pero ahora que pusiste el codigo en un post. lo medio leí y encontre la ciencia XD....
-
Hey y esta onda ya trae la respectiva correccion para los codigos que te obligan a poner los de Digicel a la hora de mandar un mensaje desde su Web
http://www.digicel.com.sv/fun_stuff/web_text.php
-
Hey y esta onda ya trae la respectiva correccion para los codigos que te obligan a poner los de Digicel a la hora de mandar un mensaje desde su Web
http://www.digicel.com.sv/fun_stuff/web_text.php
fijate ke no la necesita... porke la URL ke usa es otra... no es la ke vos pones, es una direccion directa a los servers de digicel, si leyeras el codigo te dieras cuenta... leelo y lo notaras! :angel: es un gateway diferente, komo lo konsiguieron, NO SE? a mi solo me lo pasaron :D
ademas este kodigo ke puse podes enviar mensajes urgentes y normales, algo ke ni el mismo digicel en su pagina web tienen...
-
simon eso esta muy bien la opcion de urgentes solo estaba disponible en los celulares y anteriormente en la pagina de movistar tambien
-
Me alegra que hayas compartido el codigo ^^
PD: Entre lo urgente y lo no urgente la unica diferencia ha sido siempre que el "urgente" no se puede guardar, de ahi los dos tienen la misma prioridad.
Mas bien el "urgente" vendria siendo "noticia" nada mas.
-
PD: Entre lo urgente y lo no urgente la unica diferencia ha sido siempre que el "urgente" no se puede guardar, de ahi los dos tienen la misma prioridad.
también que te evitas toda la propaganda que te envia digicel cada vez que te cae un mensajito desde la página de ellos... ¬¬
-
Si. Lo que me preocupa -y que ni me habia fijado- es que ya estan empezando a poner protección de envío.
Una vez lo logren hacer de forma correcta el bloqueo va a estar mucho mas dificil que a otras compañias :(
-
Si. Lo que me preocupa -y que ni me habia fijado- es que ya estan empezando a poner protección de envío.
Una vez lo logren hacer de forma correcta el bloqueo va a estar mucho mas dificil que a otras compañias :(
Yo confio en que vas a lograr superar las barreras que te pongan. :thumbsup:
-
Yo confio en que no las pongan :rofl: porque ahi si quedo perdido a menos que mxgxw o rddogsv o alguien se hechen una adaptacion de ocr para captcha jejeje
-
Ya va a salir mxgxw con que va a diseñar una backpropagation o una ARTII para quebrarse las imagenes XD
-
yo lo ke me fijo ke los mensajes desde la web oficial de digicel los han kambiado pero el gateway ke usamos nosotros para mandarlos nunka la han tokado...
yo konfio en ke vale 20 si le ponen captcha o te pongan a resolver ecuaciones o lo ke sea ... mientras esta otra URL ke utilizamos no la token :D
-
es obvio que ellos saben eso naruto, cuando ya no la quieran dejar usar la van a quitar :S
-
tengo unas preguntar para naruto ¬¬ yo envio mensajitos de tu pagina me parece buenisima :thumbsup: pero tengo una interrogante como esque me envian mensajes a mi y a mis conocidos diciendo que la pagina esta de nuevo funcionando, la interrogante es como eske tenes nuestros numeros? :rtfr: los guardas en alguna base? algun log? donde queda la privacidad? quien me asegura que no guardas los mensajes que se envian?
-
envíale un correo con tu enigma por favor...
tema cerrado :thumbsup: