Ejemplos de código en Perl para la API SMS de LabsMobile

A continuación se presentan los ejemplos de código de programación en lenguaje Perl para enviar mensajes SMS a través de la API de la plataforma LabsMobile.

Esta documentación está diseñada para que puedas conectar tus aplicaciones con la plataforma LabsMobile y automatizar el envío de mensajes SMS. El principal objetivo de la integración de estas aplicaciones es el envío de mensajes SMS y comunicaciones relacionadas.

Consejo Recomendamos utilizar nuestra API SMS http/POST en formato JSON para cualquier integración con la plataforma LabsMobile. Pero tenemos otras versiones API que puedes utilizar según tu entorno y requisitos.

Con estos ejemplos podrás realizar la integración de las siguientes funcionalidades:

Enviar mensajes SMS de forma individual o masiva.
Consultar el saldo de tu cuenta.
Recibir las notificaciones de confirmaciones de entrega y/o error que corresponden a los mensajes enviados.
Obtener notificación y datos de los mensajes recibidos en los números virtuales contratados.

A tener en cuenta

La API SMS de LabsMobile utiliza una URL base común para todas las peticiones: https://api.labsmobile.com.

Es altamente recomendable emplear una URL que incluya el protocolo HTTPS en cualquier versión de la API.

La autenticación se realiza con el nombre de usuario y un token API, myUsername:myToken. Debes crear el token API desde la sección Configuración API de tu cuenta.

Enviar SMS con http/POST

Aquí tienes un ejemplo de código en lenguaje Perl para enviar mensajes SMS utilizando la API SMS http/POST que utiliza el formato JSON para las variables de intercambio de información.

Como puedes observar, necesitas crear una estructura en formato JSON que contenga todos los parámetros necesarios para el envío y realizar una llamada HTTP/POST con estos datos en el cuerpo de la solicitud.

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"
}

Es posible consultar todos los códigos de error en Documentación API, códigos de error.

Para obtener más detalles sobre los parámetros disponibles y las opciones de configuración, consulta la documentación oficial en:

Documentación API SMS http/POST

Enviar SMS con http/GET

Este es un ejemplo de código en lenguaje Perl para enviar mensajes SMS utilizando la API SMS http/GET.

Como podrás observar, debes pasar una serie de variables GET en la misma URL y realizar una llamada HTTP. Es importante codificar todos los valores como URL utilizando la función uri_escape().

Importante La API SMS http/GET transmite las credenciales (username y token API) sin cifrar y de forma no segura. Recomendamos utilizar esta API GET sólo cuando sea totalmente imprescindible y utilizar en su lugar la API SMS http/POST.

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"
}

Es posible consultar todos los códigos de error en Documentación API, códigos de error.

Para obtener más detalles sobre los parámetros disponibles y las opciones de configuración, consulta la documentación oficial en:

Documentación API SMS http/GET

Consulta de saldo de una cuenta

Con este ejemplo de código en Perl se puede consultar el saldo de la cuenta utilizando la API SMS de LabsMobile

Mediante una llamada a este endpoint, puedes obtener información sobre la cantidad de créditos disponibles en tu cuenta de LabsMobile. La conexión se establece a través de una solicitud HTTP/GET con autenticación en el encabezado de la conexión HTTP.

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"}

Consulta la documentación completa en:

Documentación Consulta de saldo

Recibir estado de mensajes enviados

Este script de ejemplo recibe una llamada por parte de la plataforma LabsMobile cuando un mensaje SMS enviado cambia de estado. Para implementar esta solución, es esencial configurar los parámetros adecuados, la URL de confirmación en el parámetro ackurl en la petición o la URL por defecto en la Configuración API de tu cuenta.

Por tanto, es necesario publicar un script como este en tu sistema para que nuestra plataforma llame a la URL cuando ocurra un cambio de estado en cualquiera de los mensajes enviados.

El código de ejemplo obtiene los parámetros de la URL utilizando la variable global $_GET y luego asigna estos parámetros a variables locales.

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);
}

Consulta la documentación completa en:

Documentación Recepción estados SMS enviados

Recepción de mensajes SMS

Una vez contratado un número virtual, podrás recibir mensajes vía API en una URL específica mediante una llamada HTTP/GET a un script de tu sistema. Cada mensaje recibido invocará la URL, transmitiendo todos sus datos en variables en formato JSON

Para activar esta funcionalidad se debe informar la URL de recepción de mensajes en la Configuración de tu cuenta.

Es necesario configurar un endpoint en tu sistema para que la plataforma LabsMobile llame a este script cuando se reciba un SMS en cualquiera de los números virtuales contratados.

El código de ejemplo obtiene los parámetros de la URL utilizando la variable global $_GET y luego asigna estos parámetros a variables locales

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);
}

Consulta la documentación completa en:

Documentación Recepción mensajes SMS

Recursos de soporte

Recomendamos consultes y tengas en cuenta los siguientes recursos de soporte en tu integración: