ES

Perl code samples for integration with the LabsMobile SMS API

Below are the examples of programming code in Perl language to send SMS messages through the LabsMobile platform API.

This documentation is designed for you to connect your applications with the LabsMobile platform and automate the sending of SMS messages. The main objective of the integration of these applications is the sending of SMS messages and related communications.

Advice We recommend using our API SMS http/POST in JSON format for any integration with the LabsMobile platform. But we have other API versions that you can use depending on your environment and requirements.

With these examples you will be able to perform the integration of the following functionalities:

  • Send SMS messages individually or in bulk.
  • Check your account balance.
  • Receive delivery confirmation and/or error notifications corresponding to the messages sent.
  • Obtain notification and data of the messages received in the virtual numbers contracted.

The LabsMobile API SMS uses a common base URL for all requests: https://api.labsmobile.com.

It is highly recommended to use a URL that includes the HTTPS protocol in any version of the API.

Authentication is done with the username and an API token, myUsername:myToken. You must create the API token from the API Settings section of your account.


Send SMS with http/POST

Here is an example of code in Perl language to send SMS messages using the API SMS http/POST that uses the JSON format for the information exchange variables.

As you can see, you need to create a structure in JSON format containing all the necessary parameters for sending and make a HTTP/POST call with this data in the body of the request.

Simple sending to a single recipient with http/POST (Perl)
use REST::Client;
use MIME::Base64;

my $api_key = "myUsername";
my $api_pass = "myToken";
my $client = REST::Client->new();

$client->addHeader("Authorization", "Basic " .
                  encode_base64("$api_key:$api_pass", ""));
$client->addHeader('Content-Type', 'application/json');
$client->addHeader('charset', 'UTF-8');
$client->addHeader('Accept', 'application/json');

$req = '{
   "message" : "Your verification code is 123",
   "tpoa" : "Sender",
   "recipient" : [
       {
           "msisdn":"12015550123"
       }
     ]
   }';

$url = "https://api.labsmobile.com/json/send";

$client->POST($url, $req);
print $client->responseContent();
              

Bulk sending to multiple recipients with http/POST (Perl)
use REST::Client;
use MIME::Base64;

my $api_key = "myUsername";
my $api_pass = "myToken";
my $client = REST::Client->new();

$client->addHeader("Authorization", "Basic " .
                  encode_base64("$api_key:$api_pass", ""));
$client->addHeader('Content-Type', 'application/json');
$client->addHeader('charset', 'UTF-8');
$client->addHeader('Accept', 'application/json');

$req = '{
   "message" : "Do not miss our Sale! Use code XXXX123 for 20% off.",
   "tpoa" : "Sender",
   "recipient" : [
       {
           "msisdn":"12015550123"
       },
       {
           "msisdn":"12015550124"
       },
       {
           "msisdn":"12015550125"
       }
     ]
   }';

$url = "https://api.labsmobile.com/json/send";

$client->POST($url, $req);
print $client->responseContent();
                

Positive result
{
  "subid": "65f33a88ceb3d",
  "code": "0",
  "message": "Message has been successfully sent."
}
  

Wrong result
{
  "subid": "65f7f7041385d",
  "code": "35",
  "message": "The account has no enough credit for this sending"
}
  

All error codes can be found in API documentation, error codes.

For more details on the available parameters and configuration options, see the official documentation at:


Send SMS with http/GET

This is an example of code in Perl language to send SMS messages using the SMS API http/GET.

As you will see, you must pass a series of GET variables in the same URL and make a HTTP call. It is important to encode all values as URL using the uri_escape() function.

Important The SMS http/GET API transmits credentials (username and API token) unencrypted and unsecured. We recommend using this API GET only when absolutely essential and use the API SMS http/POST instead.

Simple sending to a single recipient with http/GET (Perl)
use LWP::Simple;
use URI::Escape;

my $username = "myUsername";
my $password = "myToken";
my $msisdn = "12015550123";
my $sender = "Sender";
my $message = "Your verification code is 123";

my $url = sprintf("https://api.labsmobile.com/get/send.php?username=%s&password=%s&msisdn=%s&sender=%s&message=%s",
                   uri_escape($username),
                   uri_escape($password),
                   uri_escape($msisdn),
                   uri_escape($sender),
                   uri_escape($message));

my $contents = get($url);

if ($contents) {
print "Successful GET request. Response:\n$contents\n";
} else {
   print "GET request failed.\n";
}
                

Bulk sending to multiple recipients using http/GET (Perl)
use LWP::Simple;
use URI::Escape;

my $username = "myUsernmae";
my $password = "myToken";
my $msisdn = "[12015550123,12015550124,12015550125]";
my $sender = "Sender";
my $message = "Don't miss our Sale! Use code XXXX123 for 20% off.";

my $url = sprintf("https://api.labsmobile.com/get/send.php?username=%s&password=%s&msisdn=%s&sender=%s&message=%s",
                   uri_escape($username),
                   uri_escape($password),
                   uri_escape($msisdn),
                   uri_escape($sender),
                   uri_escape($message));

my $contents = get($url);

if ($contents) {
print "Successful GET request. Response:\n$contents\n";
} else {
   print "GET request failed.\n";
}
                

Positive result
{
  "subid": "65f33a88ceb3d",
  "code": "0",
  "message": "Message has been successfully sent."
}
  

Wrong result
{
  "subid": "65f7f7041385d",
  "code": "35",
  "message": "The account has no enough credit for this sending"
}
  

All error codes can be found in API documentation, error codes.

For more details on the available parameters and configuration options, see the official documentation at:


Account balance inquiry

With this code example in Perl you can consult your account balance using the LabsMobile API SMS.

Through a call to this endpoint, you can get information about the amount of credits available in your LabsMobile account. The connection is established through a HTTP/GET request with authentication in the HTTP connection header.

Account balance inquiry (Perl)
use REST::Client;
use MIME::Base64;

my $api_key = "myUsername";
my $api_pass = "myToken";
my $client = REST::Client->new();

$client->addHeader("Authorization", "Basic " .
                  encode_base64("$api_key:$api_pass", ""));
$client->addHeader('Content-Type', 'application/json');
$client->addHeader('charset', 'UTF-8');
$client->addHeader('Accept', 'application/json');

$url = "https://api.labsmobile.com/json/balance";

$client->GET($url);
print $client->responseContent();
                

Result
{"code":0,"credits":"10"}

  

See the complete documentation at:


Receive status of sent messages

This example script receives a call from the LabsMobile platform when a sent SMS message changes status. To implement this solution, it is essential to configure the appropriate parameters, the confirmation URL in the ackurl parameter in the request or the default URL in the API Settings of your account.

Therefore, it is necessary to publish a script like this in your system so that our platform calls the URL when a status change occurs in any of the sent messages.

The example code obtains the URL parameters using the global $_GET variable and then assigns these parameters to local variables.

Script for receiving status of sent messages (Perl)
use strict;
use warnings;
use CGI;
use HTTP::Daemon;
use HTTP::Status;

my $port = 3000;

my $d = HTTP::Daemon->new(LocalPort => $port) || die;
print "Servidor HTTP iniciado en el puerto $port\n";

while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        if ($r->method eq 'GET' && $r->url->path eq '/') {
            my $cgi = CGI->new($r->url->query);
            my $queryParams = $cgi->Vars;
            my $acklevel = $queryParams->{acklevel};
            my $credits = $queryParams->{credits};
            my $msisdn = $queryParams->{msisdn};
            my $status = $queryParams->{status};
            my $subid = $queryParams->{subid};
            my $timestamp = $queryParams->{timestamp};

            print "Variable acklevel: $acklevel\n";
            print "Variable credits: $credits\n";
            print "Variable msisdn: $msisdn\n";
            print "Variable status: $status\n";
            print "Variable subid: $subid\n";
            print "Variable timestamp: $timestamp\n";

            $c->send_status_line(HTTP::Status::RC_OK);
            $c->send_crlf;
        } else {
            $c->send_error(HTTP::Status::RC_FORBIDDEN);
        }
    }
    $c->close;
    undef($c);
}
                

See the complete documentation at:


Receiving SMS messages

Once you have contracted a virtual number, you will be able to receive messages via API on a specific URL via a HTTP/GET call to a script in your system. Each message received will invoke the URL, transmitting all its data in variables in JSON format.

To activate this functionality you must inform the URL for receiving messages in the Settings of your account.

It is necessary to configure an endpoint in your system so that the LabsMobile platform calls this script when an SMS is received on any of the contracted virtual numbers.

The example code obtains the URL parameters using the global variable $_GET and then assigns these parameters to local variables.

Script for receiving incoming messages (Perl)
use strict;
use warnings;
use HTTP::Daemon;
use HTTP::Status;
use URI::QueryParam;

my $port = 3000;
my $d = HTTP::Daemon->new(LocalPort => $port) || die "No puedo crear el servidor: $!\n";
print "Servidor HTTP iniciado en el puerto $port\n";

while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        if ($r->method eq 'GET' && $r->url->path eq '/') {
            my $uri = $r->url;
            my $queryParams = $uri->query_form_hash;
            my $inbound_number = $queryParams->{inbound_number};
            my $service_number = $queryParams->{service_number};
            my $msisdn = $queryParams->{msisdn};
            my $message = $queryParams->{message};
            my $timestamp = $queryParams->{timestamp};

            print "Variable inbound_number: $inbound_number\n";
            print "Variable service_number: $service_number\n";
            print "Variable msisdn: $msisdn\n";
            print "Variable message: $message\n";
            print "Variable timestamp: $timestamp\n";

            $c->send_status_line(HTTP::Status::RC_OK);
            $c->send_crlf;
        } else {
            $c->send_error(HTTP::Status::RC_FORBIDDEN);
        }
    }
    $c->close;
    undef($c);
}
                

See the complete documentation at: