WWW::TWSMS - Perl extension for send sms by TWSMS. (http://www.twsms.com)
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" ;
This's a Perl interface for send sms by TWSMS. (http://www.twsms.com)
$sms = new WWW::TWSM->new(Username => 'uname', Password => 'password', ...)
The following arguments may be passed to new as a hash.
Your Username in the website of TWSMS
Your Password in the website of TWSMS
default 'now', [dlv]
'now' mean send SMS now. 'dlv' mean send SMS at a reserved time.
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.
default '', micro-seconds before retry
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 mean the available time of SMS.
Its unit in sec. Example: 86400 (mean 24 hours)
SmsDlvtime mean send SMS at a reserved time.
Its format is YYYYMMDDHHII.
Example: 200607291730 (mean 2006/07/29 17:30)
None by default.
The API document of TWSMS
You can find information about TWSMS at :
Tsung-Han Yeh, <email@example.com>
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.