Ivo Marino > WWW-SMS > WWW::SMS::o2UK

Download:
WWW-SMS/WWW-SMS-0.09.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 1.00   Source  

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!
        }
    }
syntax highlighting: