Enviar SMS con PerlEnviar SMS API REST json y Perl. Código fuente de ejemplo

SMS con REST Json

Integrar la API REST Json Perl de Altiria para enviar SMS es sencillo. Si programas en Perl en tu empresa, enviar SMS es tan sencillo como realizar una  llamada a los métodos SMS del interfaz REST Json y así añadir la funcionalidad de envío de SMS en el desarrollo de tu software.

Consulta nuestra documentación con las especificaciones técnicas (API SMS), solicita una cuenta de prueba y podrás comprobar directamente la calidad del servicio de nuestra plataforma SMS.

A continuación encontrarás código fuente de ejemplo  que utiliza los servicios web para enviar SMS API REST json con Perl. Recuerda que este código es sólo un punto de partida para agilizar la integración en tu software, pero se debe personalizar para implementar una adecuada gestión de los posibles códigos de error de manera adecuada a la herramienta o aplicación que se esté desarrollando. 

Si tienes problemas en integración, consulta nuestra página de preguntas frecuentes de integración de envío de SMS.

#!/usr/bin/perl

# Copyright (c) 2018, Altiria TIC SL
# All rights reserved.
# El uso de este código de ejemplo es solamente para mostrar el uso de la pasarela de envío de SMS de Altiria
# Para un uso personalizado del código, es necesario consultar la API de especificaciones técnicas, donde también podrás encontrar
# más ejemplos de programación en otros lenguajes de programación y otros protocolos (http, REST, web services)
# https://www.altiria.com/api-envio-sms/

require HTTP::Request;
require LWP::UserAgent;
use JSON;
use strict;
use warnings;

binmode(STDOUT, ":utf8");

sub altiriaSms{

	if ($_[3] eq 'true'){
		print 'Enter altiriaSms: destinations='.$_[0].', message='.$_[1].', senderId='.$_[2]."\n";
	}

	try {
		#Se fija la URL base de los recursos REST
		my $base_url = 'http://www.altiria.net/apirest/ws';
		
		my @array = split(',', $_[0]);

		my $json = JSON->new->utf8;
		
		#Se construye el mensaje JSON
		#XX, YY y ZZ se corresponden con los valores de identificación del usuario en el sistema.
		my $data_to_json = {credentials=>{domainId=>'XX',login=>'YY',passwd=>'ZZ'},
				    destination=> \@array,
				    message=>{msg=>$_[1],senderId=>$_[2]}
		};

		#Se inicia el objeto HTTP 
		my $request = HTTP::Request->new( 'POST', $base_url.'/sendSms' );
		#Se añade el JSON al cuerpo de la petición codificado en UTF-8
		$request->header( 'Content-Type' => 'application/json;charset=UTF-8' );
		#Se añade el JSON a la petición
		$request->content( $json->encode($data_to_json) );

		my $lwp = LWP::UserAgent->new;
		#Se fija el tiempo máximo de espera de la respuesta del servidor (60 segundos)
		$lwp->timeout(60);
		#Se consigue la respuesta
		my $response = $lwp->request( $request );

		my $message = $response->decoded_content;

		#El cliente HTTP en caso de timeout devuelve un estado 500 con su correspondiente mensaje
		if(index($message, 'timeout') != -1){
			die 'Timeout error'; #Se lanza una excepción
		}

		if ($_[3] eq 'true'){
			if ( $response->is_success ) {
				print "Código de estado HTTP: ".$response->code."\n";
				my $decoded = decode_json($message);
				my $altiria_status = $decoded->{'status'};
				print "Código de estado de Altiria: " .$altiria_status. "\n";
			
				if($altiria_status eq '000'){#Se procesa la respuesta capturada
					print "Cuerpo de la respuesta: \n";
					print "details[0]destination: ".$decoded->{'details'}[0]{'destination'}."\n";
					print "details[0]status: ".$decoded->{'details'}[0]{'status'}."\n";
					print "details[1]destination: ".$decoded->{'details'}[1]{'destination'}."\n";
					print "details[1]status: ".$decoded->{'details'}[1]{'status'}."\n";
				}else{#Error en la respuesta del servidor
					print "Error de Altiria: ".$message."\n";
				}
			} else {
				print "ERROR GENERAL: ".$response->code."\n";
				print $message."\n";
			}
		}
		return 	$message;	
	};
	catch {
		print "Error: ".$@->what."\n";
        };
}

print "The function altiriaSms returns: ".altiriaSms('346xxxxxxxx,346yyyyyyyy','Mensaje de prueba', '', 'true')."\n";
#No es posible utilizar el remitente en América pero sí en España y Europa
#Utilizar esta llamada solo si se cuenta con un remitente autorizado por Altiria
#print "The function altiriaSms returns: ".altiriaSms('346xxxxxxxx,346yyyyyyyy','Mensaje de prueba', 'remitente', 'true')."\n";


Otros protocolos de envío de SMS

API HTTP POST SMS

API HTTP POST SMS

Pasarela de envío de SMS mediante Http Post. También soportamos HTTPS

Web Services SOAP SMS

Web Services SOAP SMS

Pasarela SMS mediante web services SOAP

Web de envío SMS

Web de envío SMS

Además de la integración del envío de SMS en su aplicativo, Altiria ofrece un panel de control web en que podrás consultar las estadísticas de envío y descargar informes con el estado de los envíos y la confirmación de entrega.

Mail2SMS: enviar SMS por email

Mail2SMS: enviar SMS por email

Pasarela de envío de SMS masivos por email.

Marketing SMS

Marketing SMS

Además del propio envío de SMS, Altiria te ofrece sugerencias para que tus envíos de SMS sean más efectivos.

Envío de landing web móvil parametrizada

Además del envío de un SMS API REST json Perl , la pasarela SMS gateway de Altiria te ofrece la posibilidad de enviar una página web móvil, SMS landing, con información adicional sin las restricciones de espacio de un SMS o con un formulario de contacto para recibir respuesta de tus clientes o usuarios o enviarles encuestas, formularios de satisfacción o firma de contratos.

Además de poder parametrizar el texto del mensaje SMS, Altiria también te permite enviar parámetros adicionales  en la petición de envío para parametrizar el contenido de la web y que tus usuarios y clientes reciban un servicio personalizado.

Cobertura internacional

Siempre se debe usar el formato de numeración internacional, incluyendo el código de país. Por ejemplo, para un número de móvil de España sería 346XXXXXXXX. En el ejemplo de código anterior WS Rest Json en Perl, se está enviando un SMS de prueba a dos teléfonos de España, 346xxxxxxxx y 346yyyyyyyy, que deberán ser sustituidos por los teléfonos con los que se quiera probar, siempre incluyendo el prefijo internacional. Ofrecemos la mejor cobertura internacional con conexiones directas de máxima calidad.

Características adicionales para enviar SMS con REST JSON API Perl

  • Remitente personalizado: Personalización en el envío de SMS por REST JSON API Perl del remitente de origen por una cadena de texto, por ejemplo, el nombre de su empresa. (*)
  • Sistema avanzado de control de crédito con aviso automático por email que impide quedarse sin crédito de envío de forma inesperada.
  • Informes automáticos de envío de SMS en Perl y confirmación de entrega, permiten mantener un control periódico de los envíos realizados.
  • Posibilidad de reenvío de SMS pendientes por falta de crédito. Si realizó un envío de SMS mediante Perl y no tenía crédito, los mensajes se quedan encolados en nuestros sistemas hasta que disponga de crédito, de forma que no necesita repetir el envío.

(*) La disponibilidad de la confirmación de entrega al usuario y del remitente personalizado depende de cada país.