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
VLADles 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.cgitiene 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, 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>";
