WWW::SMS::o2UK(3)     User Contributed Perl Documentation    WWW::SMS::o2UK(3)


   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 $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

   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>

           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!
               }
           }

perl v5.38.0                      2023-07-26                 WWW::SMS::o2UK(3)