|
|
||||||
 
|
Sending SMS basics using Perl class
RoutoMessaging provides you with sms gateway integration tools as ready-made scripts available to help you managing connection to our SMS gateway over your chosen programming language. These scripts as developer solution all work with the HTTP application. Join us now and get 10 SMS to test our SMS Gateway service.
Use the Perl Language code sample bellow to send sms trough RoutoMessaging SMS Gateway. Register for an HTTP API account and you will immediately receive 10 test messages to try our service.
Send SMS with Perl Language:
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
my $username = "your_username";
my $password = "your_password";
my $number = "123456789";
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $response = $ua->post(
"http://smsc5.routotelecom.com/cgi-bin/SMSsend",
{
if ($response->is_success) {
print $response->decoded_content; }
else {
die $response->status_line; }
use strict;
use LWP::UserAgent;
my $username = "your_username";
my $password = "your_password";
my $number = "123456789";
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $response = $ua->post(
"http://smsc5.routotelecom.com/cgi-bin/SMSsend",
{
number => $number,
user => $username,
pass => $password,
message => "Test message"
});user => $username,
pass => $password,
message => "Test message"
if ($response->is_success) {
print $response->decoded_content; }
else {
die $response->status_line; }
© 2010 Routo Telecommunications Ltd.
RoutoMessaging ® 2010.