Re: Como receber alertas no Celular

Fri, 22 Jun 2001 08:04:14 -0500 

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. <[EMAIL PROTECTED]>\n";
print MAIL "To: [EMAIL PROTECTED]";
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     [EMAIL PROTECTED]
------------------------------------------------------
SysAdmin & *UNIX* Developer            Linux Solutions
(021) 526-7262 ramal 21
----------------  Yes, I have a Palm  ----------------

Responder a