File Coverage

blib/lib/SMS/Send/US/TMobile.pm

Criterion	Covered	Total	%
statement	21	38	55.2
branch	0	10	0.0
condition	0	6	0.0
subroutine	7	9	77.7
pod	2	2	100.0
total	30	65	46.1

package SMS::Send::US::TMobile;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

# use LWP::UserAgent;
use URI::Escape;
use Net::SSLeay;
use base 'SMS::Send::Driver';

sub new {
   return bless {}, shift;
}

sub send_sms {
	my ($self, %args) = @_;
    my $url = 'https://web.mms.msg.t-mobile.com/smsportal/index.html'; # ?act=smsc&locale=en';

	my %params = (
	    'act'            => 'smsc',
	    'locale'         => 'en',
    #	'trackResponses' => 'No',
    #	'Send.x'         => 'Yes',
	#	'DOMAIN_NAME'    => '@tmomail.com',
	    'receiver'       => $args{'to'}    || '', # To: maxlength 10 digits
	    'sender'         => $args{'_from'} || '', # From: prepended to 'text', seperated by '/'
	    'text'           => $args{'text'}  || '', # message 'text'
	    'msgTermsUse'    => 1,
	    'Send'           => 1,
	);

	# cleanup
	$params{'receiver'} =~ s{\D}{}g; # remove non-digits

	# validate
	croak q{'_from' must be specified} if !$params{'sender'};
	croak q{'to' must contain ten digits} if length $params{'receiver'} != 10;
	croak q{'_from' and 'text' combined must not be more than 159 characters}
	    if length( $params{'sender'} ) +  length( $params{'text'} ) > 159;

	# send away
    my $uri = join( '&', map { $_ . '=' . uri_escape( $params{ $_ } ) } keys %params );

#	my $ua = LWP::UserAgent->new;
#   my $req = HTTP::Request->new( 'POST' => $url );
#   $req->content_type('application/x-www-form-urlencoded');
#   $req->content( $uri );
#   my $res = $ua->request($req);

    # must match $url above:
    my ($content, $response, %reply_headers) = Net::SSLeay::post_https(
        'web.mms.msg.t-mobile.com',
        443,
        '/smsportal/index.html',
        '',
        Net::SSLeay::make_form(%params),
    );

    if ( $content ) { # if( $res->is_success ) {
        return 1 if $content =~ m{Your message has been delivered}; # if $res->as_string =~ m{Your message has been delivered};
		# eval { die $res->as_string };
		$@ = {
			'args'       => \%args,
			# essencially useless info at this point: 'caller'     => [ caller() ],
			'url'        => $url,
			'content'    => $uri,
			'is_success' => 1,
			'as_string'  => $response, # $res->as_string,
		};
		return 0; # bah! this is not cool but required or you get 'Driver did not return a result'
	}
	else {
		# eval { die $res->as_string };
		$@ = {
			'args'       => \%args,
			# essencially useless info at this point: 'caller'     => [ caller() ],
			'url'        => $url,
			'content'    => $uri,
			'is_success' => 0,
			'as_string'  => $response, # $res->as_string,
		};
		return 0; # bah! this is not cool but required or you get 'Driver did not return a result'
	}
}

1;

__END__