#!/usr/bin/perl -w
package WWW::SMS::Vizzavi;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(%PREFIXES _send MAXLENGTH);
%PREFIXES = map {$_, 1} qw(333 335 338 339 340 347 348 349 328 329 380 388 389);

$VERSION = '1.00';
sub MAXLENGTH ()        {140}

sub _send {
        my $self = shift;

        use HTTP::Request::Common qw(GET POST);
        use HTTP::Cookies;
        use LWP::UserAgent;

        $ua = LWP::UserAgent->new;
        $ua->agent('Mozilla/5.0');
        $ua->cookie_jar(HTTP::Cookies->new(
                file => "lwpcookies.txt", 
                autosave => 1));

        $self->{smstext} = substr($self->{smstext}, 0, MAXLENGTH - 1) 
                if (length($self->{smstext})>MAXLENGTH);

        $req = POST 'http://sms.vizzavi.it/global.asp',
                        [
                        'txtMsg' => $self->{smstext} ,'selPref' => $self->{prefix},
                        'TypeOpen' => '1' ,'txtTel' => $self->{telnum} ,
                        'Counter' => ''
                        ];
        $req->headers->referer('http://sms.vizzavi.it/freesms_conf.asp');
        print "1...\n";
        $file = $ua->simple_request($req)->as_string;
        return 0 unless ($file =~ m'Messaggio\+accodato\+con\+successo's);
        $ua->cookie_jar->clear();
        1;
}

1;