[SP-pm] [Spam] SMS

[André Garcia Carneiro]

Só avisando que eu não testei....

#!/usr/bin/perl

use Net::SMS;

# Create SMS Object
my $sms = Net::SMS->new();

# Set Message Properties
$sms->msgPin("+11005101234");
$sms->msgFrom("Demo");
$sms->msgCallback("+11005551212");
$sms->msgText("Hello World From Simplewire!");

# Send Message
$sms->msgSend(); 


Cheers!

---------- Cabeçalho original -----------

De: saopaulo-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: saopaulo-pm em mail.pm.org
Cópia: 
Data: Wed, 22 Mar 2006 09:44:50 -0300
Assunto: [Spam] [SP-pm] SMS

> Galera alguem tem algum script te enviar sms para qualquer celular??
> 
> Obrigado
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1143031508.245230.21140.morondava.terra.com.br,5140,20031127114101,20031127114101
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 21/03/2006 / Versão: 4.4.00/4723
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org