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.
To be taken into account
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.
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();
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();
{ "subid": "65f33a88ceb3d", "code": "0", "message": "Message has been successfully sent." }
{ "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.
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"; }
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"; }
{ "subid": "65f33a88ceb3d", "code": "0", "message": "Message has been successfully sent." }
{ "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.
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();
{"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.
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.
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:
Support resources
We recommend that you consult and take into account the following support resources in your integration:
- Description, manual and code examples of the SMS sending API.
- Technical guide to an OTP validation or authentication process by SMS.
- All LabsMobile API versions and functionalities.
- First Steps to API Integration Tutorial
- Create a demo account
- Recommendations and best practices in any integration.
- Plugins, modules and extensions.
- Need help? Contact our technicians