perl modules can be found at http://search.cpan.org/
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
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 $req = new HTTP::Request('GET', 'https://www.nodeworks.com');
my $res = $ua->request($req);
print $res->code."\n";
res code should be 200 in case of success
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>
you have to sign up with O2 http://www.o2.co.uk/ (previous genie)
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() ) {
print "Trying $_...\n";
if ( $sms->send($_) ) { # try to send a sms...
last; # until it succeds ;)
} else {
print $WWW::SMS::Error; # unlucky!
}
}