Re: Como receber alertas no Celular
Caro Edson,
Segue o que você está procurando. Espero que entenda
o código-fonte. Uso a linguagem PERL nos scripts abaixo:
------- início corte aqui
#!/usr/bin/perl
# atl.pl
# Este script funciona para telefones ATL
$CELULAR = "2199085746";
$MENSAGEM = "Você está recebendo uma mensagem via celular...";
open(MAIL,"| /usr/lib/sendmail -t");
print MAIL "From: Voce S.A. <voce\@seudominio.com.br>\n";
print MAIL "To: $CELULAR\@atlexpress.com.br\n";
print MAIL "Subject: Atencao\n";
print MAIL $MENSAGEM;
close(MAIL);
-------- final corte aqui
-------- inicio corte aqui
#!/usr/bin/perl
# telefonica.pl# Envia mensagens para celulares Telefônica
# Faço uso do módulo CGI.pm e do browser Lynx
use CGI;
# Variáveis usadas
$DE = "Joao da Silva";
$ID = "2196274653";
$MENSAGEM = "Voce esta recebendo uma mensagem no celular";
$LYNX = "/usr/bin/lynx";
# Destinatário
$CELULAR = "2196277432";
# escapear a mensagem, ou seja, tranformá-la em formato de
# formulário codificado HTML
$MENSAGEM = CGI::escape($mensagem);
$DE = CGI::escape($de);
$ID = CGI::escape($id);
# URL da Telefônica
$BASEURL = "http://www.movistaraviso.com.br/cgi-bin/send.plx?";
$POSURL = "cna=$DE\\&cph=$ID\\&rcp=$CELULAR\\&msg=$MENSAGEM\\&sid=1";
$URL = $BASEURL . $POSURL;
# Manda ver !
system("$LYNX -dump $url 1> /dev/null 2> /dev/null");
-------- final corte aqui
Espero ter ajudado.
Atenciosamente,
--
------------------------------------------------------
Fábio Berbert de Paula fabio@linuxsolutions.com.br
------------------------------------------------------
SysAdmin & *UNIX* Developer Linux Solutions
(021) 526-7262 ramal 21
---------------- Yes, I have a Palm ----------------
Reply to: