File Coverage

blib/lib/WWW/TWSMS.pm

Criterion	Covered	Total	%
statement	18	101	17.8
branch	0	64	0.0
condition	0	12	0.0
subroutine	6	16	37.5
pod	0	10	0.0
total	24	203	11.8

package WWW::TWSMS;

use 5.006;
use strict;
use warnings;
use HTTP::Request::Common qw(GET POST);
use HTTP::Cookies;
use LWP::UserAgent;


require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use WWW::TWSMS ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';


# Preloaded methods go here.



sub new {

	my $class = shift;
	my $self  = {NOTHING            => 'nothing'};
	my %args  = @_;

	bless($self, $class);
	$self->reset();

	$self->{m_Username}     = $args{Username} if (defined $args{Username});
	$self->{m_Password}     = $args{Password} if (defined $args{Password});
	$self->{m_SmsType}	= $args{SmsType} if (defined $args{SmsType});
	$self->{m_SmsPopup}	= $args{SmsPopup} if (defined $args{SmsPopup});
	$self->{m_SmsMo}	= $args{SmsMo} if (defined $args{SmsMo});
	$self->{m_SmsEncoding}	= $args{SmsEncoding} if (defined $args{SmsEncoding});
	$self->{m_SmsVldtime}	= $args{SmsVldtime} if (defined $args{SmsVldtime});
	$self->{m_SmsDlvtime}	= $args{Dlvtime} if (defined $args{Dlvtime});

	return $self;
}


sub reset {

	# pop value
	my $self = shift();

	# check to make sure that this function is being called on an object
	die "You must instantiate an object to use this function" if !(ref($self));

	#-----------------------------------------------------------------
	# Define default package vars
	#-----------------------------------------------------------------

	$self->{m_SoftwareWebsite}		= "www.twsms.com";
	$self->{m_SoftwareTitle}		= "Perl TWSMS API";


	$self->{m_ErrorCode}			= 0;
	$self->{m_ErrorDescription}		= undef;
	$self->{m_ErrorResolution}		= undef;

	$self->{m_StatusCode}			= undef;
	$self->{m_StatusDescription}		= undef;


	$self->{m_SmsType}			= 'now';	# now => ¥ß§Y¶Ç°e , dlv => ¹w¬ùµo°e
	$self->{m_SmsPopup}			= '';		# 1 => Åý²°T¥ýÅã¥Ü¦b¤â¾÷µe­±¡A¦ý¤£·|¦s¨ì¤â¾÷
	$self->{m_SmsMo}			= '';		# Y => Âù¦V²°T
	$self->{m_SmsEncoding}			= 'big5';	# big5  => ¤¤­^¤åªº¤º®e¡Aªø«×¬°70­Ó¦r¤¸
								# ascii => ¯Â­^¤åªº¤º®e¡Aªø«×¬°160­Ó¦r¤¸
	$self->{m_SmsReceiver}			= undef;	# ±µ¦¬Â²°Tªº¤â¾÷¸¹½X
	$self->{m_SmsVldtime}			= undef;	# ¦³®Ä´Á­­¡A¥H¬í¬°³æ¦ì
	$self->{m_SmsDlvtime}			= undef;	# ¹w¬ù®É¶¡¡A®æ¦¡¬°YYYYMMDDHHII¡A¦p200405121830
								# ·ím_SmsType TAG¬°dlv¤~¦³®Ä

	$self->{m_Secure}			= 0;
	$self->{m_ConnectionTimeout}		= 30;
	$self->{m_RemoteHost}			= 'api.twsms.com';
	$self->{m_RemotePort}			= 80;

	$self->{m_Username}			= undef;
	$self->{m_Password}			= undef;



}

sub msgReceiver {

	my $self = shift;
	if (@_ == 1) {
		$self->{m_SmsReceiver} = shift() if ($_[0] =~ m/^\d{10}$/);
	}

	return $self->{m_SmsReceiver} if defined($self->{m_SmsReceiver}) || return undef;
}

sub msgData {

	my $self = shift;

	# check to make sure that this function is being called on an object
	die "You must instantiate an object to use this function" if !(ref($self));

	if (@_ == 1) { $self->{m_SmsMsgData} = shift(); }

	return $self->{m_SmsMsgData} if defined($self->{m_SmsMsgData}) || return undef;
}

sub msgSend {

	my $self = shift;

        my $ua = LWP::UserAgent->new;
           $ua->agent('Mozilla/5.0');

        my $req = POST "http://$self->{m_RemoteHost}/send.php",
                [
			'username' => $self->{m_Username},
			'password' => $self->{m_Password},
			'type'	   => $self->{m_SmsType},
			'encoding' => $self->{m_SmsEncoding},
			'mobile'   => $self->{m_SmsReceiver},
			'message'  => $self->{m_SmsMsgData},
			'popup'	   => $self->{m_SmsPopup},
			'mo'	   => $self->{m_SmsMo},
			'vldtime'  => $self->{m_SmsVldtime},
			'dlvtime'  => $self->{m_SmsDlvtime}
                ];

	my $file = $ua->request($req)->as_string;
	my $CheckRes = $1 if ($file =~ m/msgid=(.*)/);
	if ($CheckRes <= 0){
		$self->errorCode($CheckRes);
		$self->statusDescription('¶Ç°e¥¢±Ñ');
	} else {
		$self->statusCode($CheckRes);
		$self->statusDescription('¶Ç°e§¹¦¨');
	}

}

sub statusCode {
	# pop value
    my $self = shift();

	# check to make sure that this function is being called on an object
    die "You must instantiate an object to use this function" if !(ref($self));

    if (@_ == 1) { $self->{m_StatusCode} = shift(); }

    return $self->{m_StatusCode} if defined($self->{m_StatusCode}) || return undef;
}

sub statusDescription {
	# pop value
    my $self = shift();

	# check to make sure that this function is being called on an object
    die "You must instantiate an object to use this function" if !(ref($self));

    if (@_ == 1) { $self->{m_StatusDescription} = shift(); }

    return $self->{m_StatusDescription} if defined($self->{m_StatusDescription}) || return undef;
}

sub errorCode {
	# pop value
	my $self = shift();
	my %ERR_DESCRIPTION = ( '-1' => 'µo°e¥¢±Ñ',
				'-2' => '±b¸¹©Î±K½X¿ù»~',
				'-3' => 'popup TAG ³]©w¿ù»~',
				'-4' => 'mo TAG ³]©w¿ù»~',
				'-5' => 'encoding TAG ³]©w¿ù»~',
				'-6' => 'mobile TAG ³]©w¿ù»~',
				'-7' => 'message TAG ³]©w¿ù»~',
				'-8' => 'vldtime TAG ³]©w¿ù»~',
				'-9' => 'dlvtime TAG ³]©w¿ù»~',
				'-10' => '²°T³q¼Æ¤£¨¬',
				'-11' => '±b¸¹°±¥Î',
				'-12' => 'type TAG ³]©w¿ù»~',
				'-13' => '·í¨Ï¥Îwap push¥\¯à®É,¤£¥i±Ä¥Î¹w¬ù¤è¦¡µo°e',
				'-14' => '¨Ó·½IP¨S¦³¨Ï¥ÎÅv­­',
				'-99' => '¨t²Î¿ù»~¡]¦p¥X²{¦¹¿ù»~,½Ð³qª¾«ÈªA¤¤¤ß¡^'
			);
	# check to make sure that this function is being called on an object
    die "You must instantiate an object to use this function" if !(ref($self));



    if (@_ == 1) {
    	$self->{m_ErrorCode} = shift();
	$ERR_DESCRIPTION{$self->{m_ErrorCode}} ? $self->errorDescription($ERR_DESCRIPTION{$self->{m_ErrorCode}}) : $self->errorDescription($self->{m_ErrorCode});
    }

    return $self->{m_ErrorCode} if defined($self->{m_ErrorCode}) || return undef;
}

sub errorDescription {
	# pop value
    my $self = shift();

	# check to make sure that this function is being called on an object
    die "You must instantiate an object to use this function" if !(ref($self));

    if (@_ == 1) { $self->{m_ErrorDescription} = shift(); }

    return $self->{m_ErrorDescription} if defined($self->{m_ErrorDescription}) || return undef;
}

sub success {
	# pop value
    my $self = shift();

	# check to make sure that this function is being called on an object
    die "You must instantiate an object to use this function" if !(ref($self));

    # if the error_code is between 0 and 10 then its an okay response.
    if ($self->errorCode > 0) {
        return 1;
    }

    return 0;
}



1;
__END__