NAME

WWW::TWSMS - Perl extension for send sms by TWSMS. (http://www.twsms.com)

SYNOPSIS

use WWW::TWSMS;
$sms = WWW::TWSMS->new(Username => "username", 
                       Password => "password", 
                       SmsType => 'now', 
                       SmsEncoding => 'big5'
                      );
$sms->msgReceiver("phone_number");
$sms->msgData("hello world");
$sms->msgSend();
$sms->success() or die $sms->errorDescription."\n" ;

DESCRIPTION

This's a Perl interface for send sms by TWSMS. (http://www.twsms.com)

WWW::TWSMS->new

$sms = new WWW::TWSM->new(Username => 'uname', Password => 'password', ...)

The following arguments may be passed to new as a hash.

Username

Your Username in the website of TWSMS

Password

Your Password in the website of TWSMS

SmsType

default 'now', [dlv]

'now' mean send SMS now. 'dlv' mean send SMS at a reserved time.

SmsPopup

default '',[1]

if SmsPopup = 1

mean the SMS context will show on the screen of Receiver's mobile phone,

but will not save into Receiver's mobile phone.

SmsMo

default '', micro-seconds before retry

SmsEncoding

default 'big5' , ['ascii','unicode','push','unpush']

big5: the SMS context in Chinese or Engilsh, the max of SMS context length is 70 character. ascii: the SMS context in Engilsh, the max of SMS context length is 160 character. unicode: the SMS context in Unicode.

SmsVldtime

SmsVldtime mean the available time of SMS.

Its unit in sec. Example: 86400 (mean 24 hours)

SmsDlvtime

SmsDlvtime mean send SMS at a reserved time.

Its format is YYYYMMDDHHII.

Example: 200607291730 (mean 2006/07/29 17:30)

EXPORT

None by default.

SEE ALSO

The API document of TWSMS

http://www.twsms.com/dl/api_doc.zip

WEBSITE

You can find information about TWSMS at :

http://www.twsms.com/

AUTHOR

Tsung-Han Yeh, <snowfly@yuntech.edu.tw>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Tsung-Han Yeh

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.