Perl interface to Huawei E3131 3G HSPA+ USB Modem to send and receive sms. (code is messy and in alpha ;=))
Functions of perl module :
- telephonySmsList
- telephonySmsDelete
- telephonySmsSend
- telephonySmsClean
Example of script to send a sms :
use SMS;
my $fnret = SMS::telephonySmsSend({ to => '06123456789' , message => 'This is a test' });
if($fnret->{'status'} eq '100')
{
print 'Sms sent !';
}
Feel free to modify the code and fork the repo ;)