File Coverage

blib/lib/WWW/SMS/Beeline.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	8	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	1	0.0
total	12	42	28.5

#!/usr/bin/perl -w

#Copyright (c) 2001 Dmitry Dmitriev. All rights reserved.
#http://www-sms.sourceforge.net/
#This program is free software; you can redistribute it and/or
#modify it under the same terms as Perl itself.

package WWW::SMS::Beeline;
use Telephone::Number;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(@PREFIXES _send MAXLENGTH);

@PREFIXES = (Telephone::Number->new('7', [
                qw(095 901 903)
		], undef)
);

$VERSION = '1.01';

sub MAXLENGTH () {156} # maximum message length

sub hnd_error {
	$_ = shift;
	$WWW::SMS::Error = "Failed at step $_ of module Beeline.pm\n";
	return 0;
}

sub _send {
	my $self = shift;

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

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

	  my $ua = LWP::UserAgent->new;
	  $ua->agent('Mozilla/5.0');
	  $ua->proxy('http', $self->{proxy}) if ($self->{proxy});


          #STEP 1
	  my $step = 1;

	  $req = POST 'http://www.beeonline.ru/mini-site/xt_sendsms_msg.xsp',
	                    [ phone => $self->{telnum},
			      smpl_phone => $self->{telnum},
			      service => '1',
			      number_sms => 'name_sms_send',
			      prf => $self->{intpref} . $self->{prefix},
			      termtype => 'G',
			      message => $self->{smstext},
			      mlength => "156"
			     ];

          my $file=$req->content;
	  $req = GET 'http://www.beeonline.ru/mini-site/xt_sendsms_msg.xsp?'.$file.'&y=%36&x=%33%34';
	  $req->content_type('application/x-www-form-urlencoded');
          $req->referer('http://www.beeonline.ru/mini-site/sendsms.xsp');
	  $res = $ua->request($req);
	  $res->is_success() || (return &hnd_error($step));
	  #STEP 1

	  #STEP 2
          $step++;
	  ($res->content =~ /Âàøå ñîîáùåíèå îòïðàâëåíî!/) || (return &hnd_error($step));
	  #STEP 2
	  1;

}
1;