Ejemplos de código en Perl

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

También dispones de ejemplos de código en JavaScript, PHP y otros lenguajes de programación.

Te recomendamos consultes y tengas en cuenta los siguientes recursos y ayuda en tu integración:

• - Como realizar una integración con la SMS API.
• - Descripción, manual y ejemplos de código de la API JSON.
• - Todas las versiones de la API de LabsMobile.
• - Tutorial detallado paso a paso.
• - Crear una cuenta de prueba para tu integración.
• - Recomendaciones y buenas prácticas.
• - Plugin, módulos y librerías.
• - Contactar con el Centro de Soporte.

Enviar mensajes - REST API - JSON

Este es el código de ejemplo en Perl para enviar mensajes SMS con la SMS API de LabsMobile en la versión JSON. Como se puede ver se debe crear una estructura JSON con todos los parámetros del envío y realizar una llamada HTTP/POST con los datos JSON en el cuerpo de la llamada.

Es imprescindible realizar la llamada con la autentificación del nombre de usuario (email de registro) y la contraseña (o token API) de la cuenta.

            
use REST::Client;
use MIME::Base64;

my $api_key = "myusername";
my $api_pass = "mypassword";
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" : "Text of the SMS message",
    "tpoa" : "Sender",
    "recipient" : [
        {
            "msisdn":"12015550123"
        },
        {
            "msisdn":"447400123456"
        },
        {
            "msisdn":"5212221234567"
        }]
    }';

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

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

Puedes consultar todos los parámetros JSON disponibles, opciones de configuración, manuales y especificaciones en la siguiente url: https://apidocs.labsmobile.com/?perl#send-sms

Consulta de créditos - REST API - JSON

Ejemplo de código en Perl para la consulta del saldo de una cuenta. El resultado siempre se obtiene en créditos internos de la plataforma LabsMobile.

            
use REST::Client;
use MIME::Base64;

my $api_key = "myusername";
my $api_pass = "mypassword";
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();

Enviar mensajes - HTTP/GET

Ejemplo de envío para la versión GET de la SMS API de LabsMobile. Este es un método básico y simple de enviar mensajes SMS desde una aplicación o software creada en Perl codificando todos los parámetros en la misma url.

Es importante codificar todos los valores como url (con la función urlencode() por ejemplo).

Puedes ver y descargar el manual de la API GET de LabsMobile en la siguiente url: https://www.labsmobile.com/es/api-sms/versiones-api/http-get

                
use LWP::Simple;
$contents = get("http://api.labsmobile.com/get/send.php?username=[X]&password=[X]&msisdn=34609036253&sender=SENDER&message=This+is+the+message");

Consulta de créditos - HTTP/GET

                
use LWP::Simple;
$contents = get("http://api.labsmobile.com/get/balance.php?username=[X]&password=[X]");