How to send SMS from Perl using HTTP request

Download: perl-sms-api.pl (1,5 Mb)

In this guide you will learn how to send SMS messages from Perl using HTTP request with the help of Ozeki NG SMS Gateway. The explanation on its use and the sample source code will be provided as well.

Introduction

To send data from one application to another you can apply HTTP as it is the simplest method for this purpose. Perl has the ability to calls to submit HTTP requests, therefore it can be used to send SMS text messages to cellphones. To achieve SMS functionality you need to install a stable SMS gateway such as Ozeki NG SMS Gateway. With this software product you can operate with SMS messages with the use of HTTP GET or HTTP POST method calls (Figure 1).

how to send a message from perl sms api through http — Figure 1 - How to send SMS messages from Perl SMS API through HTTP

After the installation, this solution will work as follows: to start to send SMS messages first messages have to be forwarded to the SMS Gateway. The built-in webserver of the gateway provides an HTTP SMS API that allows to submit messages. After the messages arrived at the SMS gateway they will be forwarded to the mobile network either with a GSM modem attached to the computer with a data cable, or the gateway directly connects to the SMS center of the mobile service provider over the Internet.

Prerequisites

To setup and operate this solution properly you need the follows:

Download Ozeki NG SMS Gateway

Configuration

To send SMS messages from Perl using HTTP requests, first you need to download, install and configure Ozeki NG SMS Gateway software to your computer. Then import the source code provided below into a new project you write in Perl. After you imported it you can configure the code in the following way: In "host" variable replace 127.0.0.1. to the IP address on which Ozeki NG SMS Gateway has been installed. (In our example it is on the local computer that is why its IP address is 127.0.0.1. Replace "user_name" and "user_password" to the values with which you log into Ozeki NG SMS Gateway. Then replace the recipient to the intended recipient. In the message body you can type your message. Next, the example will piece together the HTTP request and then query it. Finally, it will verify whether the SMS sending is successful. In case of success you will read: "Message successfully sent", while if there was a problem the following message appears: "Message not sent! Please check your settings". Please note that you need to customize the values in the source code below.

Source code sample

Feel free to use and modify this source code sample!

 
   #!/usr/bin/perl
#!/usr/bin/perl

###############################################

##   Ozeki NG - SMS Gateway Perl example     ##

###############################################

use HTTP::Request;

use LWP::UserAgent;

use URI::Escape;

###############################################

###            Ozeki NG informations        ###

###############################################

$host = "127.0.0.1";

$port = "9501";

$username = "admin";

$password = "abc123";

$recipient = "+00123456";

$message = "Test Message from Perl";

###############################################

### Putting together the final HTTP Request ###

###############################################

$url  = "http://"       . $host;

$url .= ":" . $port;

$url .= "/api?action=sendmessage&";

$url .= "username="     . uri_escape($username);

$url .= "&password="    . uri_escape($password);

$url .= "&recipient="   . uri_escape($recipient);

$url .= "&messagetype=SMS:TEXT";

$url .= "&messagedata=" . uri_escape("HELLO WORLD");

################################################

####            Sending the message          ###

################################################

$request = HTTP::Request->new(GET=>$url);

$useragent = LWP::UserAgent->new;

$response = $useragent->request($request);

################################################

###        Verifying the response            ###

################################################

if ($response->is_success) {

    print "Message successfully sent"

} else {

    print "Message not sent! Please check your settings!"

}

More information

Python SMS API | TCL/TK SMS API