File Coverage

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

Criterion	Covered	Total	%
statement	19	50	38.0
branch	0	8	0.0
condition			n/a
subroutine	7	11	63.6
pod	2	2	100.0
total	28	71	39.4

package SMS::Send::TW::emome;

use strict;
use Carp;
use WWW::Mechanize;
use Text::Iconv;
use base 'SMS::Send::Driver';


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

# Preloaded methods go here.

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

   foreach(qw/username password language/) {
      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://websms1.emome.net/sms/sendsms/new.jsp?msg=';
   my $posturl = 'http://websms1.emome.net/sms/sendsms/send.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);
   $ua->submit();
   $ua->submit();
   $ua->submit_form(
        form_name => 'form1',
        fields    => {
                        uid  => $self->{"_username"},
                        pw   => $self->{"_password"},
                     },
   );

   $ua->content() =~ /window.location.href='(.+)'/i;
   $ua->get($1);
   $ua->post($posturl,
		[
		  'nextURL' 	  => '0',
		  'resend'	  => '1',			# 0:¤£­«°e¡@1:­«°e
		  'language'	  => $self->{"_language"},	# 1:¤¤¤å¡@  2:­^¤å
		  'phonelist'	  => $recipient,
		  'data'	  => $message,
		  'rad'		  => '0', 			# 0:¥ß§Y¶Ç°e  1:¹w¬ù¶Ç°e
		]);

   return $ua->content;
}

sub _MESSAGE {

  my $class = ref $_[0] ? ref shift : shift;
  my $message = shift;
  my $converter = Text::Iconv->new("big5", "utf-8");
  unless ( length($message) <= 160 ) {
    Carp::croak("Message length limit is 160 characters");
  }


  return $converter->convert($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__