File Coverage

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

Criterion	Covered	Total	%
statement	16	46	34.7
branch	0	8	0.0
condition			n/a
subroutine	6	10	60.0
pod	2	2	100.0
total	24	66	36.3

package SMS::Send::TW::PChome;

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

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

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

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

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

   return $self;
}

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

   # 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');

   # Should be ok now, right? Let's send it!
   # Login
   $ua->post('https://login.pchome.com.tw/adm/person_sell.htm',
		[ 'mbrid'	=> $self->{"_username"},
		  'mbrpass'	=> $self->{"_password"},
		  'chan'    	=> 'sms',
		  'record_ipw'  => 'false',
		  'ltype'	=> 'checklogin',
		  'buyflag'	=> '', ]);


   # Input SMS_Message, Recipients
   $ua->get('http://sms.pchome.com.tw/quick_index.htm');
   $ua->post('http://sms.pchome.com.tw/check_msg.htm',
		[ 'encoding_type' => 'BIG5',
		  'msg_body'	  => $message,
		  'mobile_list'	  => $recipient,
		  'send_type'	  => 1, ]);


   # Input Authcode
   $ua->field('ezpay_key', $ua->value('ezpay_key'));	# Forward Hidden field: ezpay_key
   $ua->field('exh_no', $ua->value('exh_no'));		# Forward Hidden field: exh_no
   $ua->field('auth_code', $self->{"_authcode"});	# put Auth Code
   $ua->current_form()->action('https://ezpay.pchome.com.tw/auth_access.htm');
   $ua->submit();

   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__