Install
perl modules can be found at http://search.cpan.org/
openssl
get the latest openssl from http://www.openssl.org
linux:/usr/src
# tar -zxvf openssl-0.9.6g.tar.gz
$ ./config
$ make
$ make test
$ make install
NET::SSL
get latest Net::Ssl from http://search.cpan.org/author/CHAMAS/
linux:/usr/src
# tar -zxvf Crypt-SSLeay-0.45.tar.gz
> perl Makefile.PL
> make
> make test
> make install
and test it :-)
# lwp-request https://www.nodeworks.com
use
LWP::UserAgent;
my
$ua
= new LWP::UserAgent;
my
$res
=
$ua
->request(
$req
);
$res
->code.
"\n"
;
res code should be 200 in case of success
WWW::SMS
get latest Www::Sms from http://search.cpan.org/author/GIULIENK/
update SMS.pm
with
the new provider
if
wanted
copy o2UK.pm into your /WWW/SMS/ perl library directory, e.g. into:
linux:/usr/lib/perl5/site_perl/5.6.1/WWW/SMS>
which is free at the moment and you can
send
100 sms/month free
you have to pass the username/password or the file which contains it
dunno all the sim cards provided yet: o2 and vodafone work
and test it :-)
use
WWW::SMS;
#international prefix, operator prefix, phone number, message text
my
$sms
= WWW::SMS->new(
'44'
,
'7777'
,
'123456'
,
'This is a test.'
,
'username'
=>
'your_o2_username'
,
'password'
=>
'your_o2_password'
);
for
(
$sms
->gateways() ) {
"Trying $_...\n"
;
if
(
$sms
->
send
(
$_
) ) {
# try to send a sms...
last
;
# until it succeds ;)
}
else
{
$WWW::SMS::Error
;
# unlucky!
}
}