File Coverage

blib/lib/SMS/Send/TW/Qma.pm

Criterion	Covered	Total	%
statement	13	41	31.7
branch	0	8	0.0
condition			n/a
subroutine	5	9	55.5
pod	2	2	100.0
total	20	60	33.3

package SMS::Send::TW::Qma;

use strict;
use base 'SMS::Send::Driver';
use WWW::Mechanize;

use vars qw{$VERSION};
BEGIN {
   $VERSION = '0.01';
}

sub new {
   my ($class, %params) = @_;

   foreach(qw/username password/) {
      Carp::croak("No $_ specified") unless(defined $params{"_$_"});
   }

   my $self = bless { %params }, $class;

   return $self;
}

sub send_sms {
   my $self   = shift;
   my %params = @_;

   my $baseurl = 'http://www.qma.com/cdp/jsp/websms';
   my $posturl = 'http://www.qma.com/cdp/jsp/websms/SMS_Action.jsp';

   # Get the message and destination
   my $message   = $self->_MESSAGE( $params{text} );
   my $recipient = $self->_TO( delete $params{to} );

   my $ua = WWW::Mechanize->new(
      agent => __PACKAGE__." v. $VERSION",
   );

   $ua->agent_alias('Windows IE 6');
   $ua->get("$baseurl/SMS_send.jsp");
   $ua->submit_form(
	form_name => 'form1',
	fields    => {
			'j_username'	=> $self->{"_username"},
			'j_password'	=> $self->{"_password"},
                     },
   );

   # Should be ok now, right? Let's send it!
   # Input SMS_Message, Recipients

   $ua->post($posturl,
		[
			'receivers'     => $recipient,
			'sendContent'   => $message,
			'iscurrentsend' => 'Y',
			'func'          => 'addSmsMessageInfo',
			'targetURL'     => 'SMS_send_result.jsp',
#			'sender'        => "0953858839",
#			'contractid'    => 'sf093',
		]);


   $ua->content() =~ /document.location="(.+)"/i;
   $ua->get("$baseurl/$1&iscurrentsend=Y");

   return $ua->content();

}

sub _MESSAGE {

  my $class = ref $_[0] ? ref shift : shift;
  my $message = shift;
  unless ( length($message) <= 160 ) {
    Carp::croak("Message length limit is 160 characters");
  }

  return $message;
}

sub _TO {
  my $class = ref $_[0] ? ref shift : shift;
  my $to = shift;

  # International numbers need their + removed
  $to =~ y/0123456789//cd;

  return $to;
}


1;
__END__