Cómo programar un SMS en Perl

La forma más sencilla de enviar SMS desde Perl es utilizar la API HTTP/Rest de SMS integrada en Ozeki SMS Gateway. Cuando uses esta API, enviarás mensajes SMS mediante una solicitud HTTP Post al gateway de SMS. La solicitud HTTP Post contendrá un mensaje formateado en formato JSON. El gateway de SMS enviará este SMS al teléfono del destinatario y devolverá una respuesta HTTP 200 OK a tu solicitud.

cómo programar un sms en perl
Figura 1 - Cómo programar un SMS en Perl

Código Perl para enviar SMS programados a móviles

El ejemplo de código Perl para SMS a continuación demuestra cómo puedes enviar SMS usando la API HTTP Rest de Ozeki SMS Gateway con la biblioteca Perl Ozeki.Libs.Rest. Esta biblioteca se proporciona gratuitamente y puedes usarla y modificarla en cualquiera de tus proyectos.

SendScheduledSms.pl
use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use DateTime;

my $configuration = new Ozeki::Libs::Rest::Configuration();
$configuration->{ Username } = "http_user";
$configuration->{ Password } = "qwe123";
$configuration->{ ApiUrl } = "http://127.0.0.1:9509/api";

my $msg = new Ozeki::Libs::Rest::Message();
$msg->{ ToAddress } = "+36201111111";
$msg->{ Text } = "¡Hola mundo!";
$msg->{ TimeToSend } = DateTime->new(year=>2021,month=>7,day=>2,hour=>16,minute=>0,second=>0)->stringify;

my $api = new Ozeki::Libs::Rest::MessageApi($configuration);

my $result = $api->Send($msg);

print($result->stringify);

Cómo usar el ejemplo de SMS en Perl:

Este ejemplo de SMS en Perl puede usarse en cualquier aplicación Perl. Para usarlo, debes añadir la biblioteca Ozeki.Libs.Rest a tu proyecto. Después de añadir la biblioteca, debes incluir la directiva using Ozeki.Libs.Rest; en la sección de encabezado de tu código fuente Perl. Esto te permitirá usar las clases proporcionadas por la biblioteca Ozeki.Libs.Rest. Puedes usar la clase Message para crear el SMS. Puedes usar la clase MessageApi para enviar el SMS programado al gateway de SMS. El gateway de SMS enviará tu mensaje a la red móvil ya sea mediante una conexión inalámbrica o a través de Internet.

Descargar SendScheduledSms.pl

El código fuente explicado en este artículo puede descargarse, usarse y modificarse gratuitamente.
Descargar: SendScheduledSms.pl.zip (76.1Kb)

¿Qué contiene el archivo SendScheduledSms.pl?

El archivo SendScheduledSms.pl contiene la biblioteca Ozeki.Libs.Rest, que te proporciona todas las herramientas necesarias para enviar y recibir mensajes SMS. También encontrarás el archivo SendScheduledSms.pl en el zip, que contiene el código de ejemplo para mostrarte cómo enviar un SMS programado. Este código de ejemplo se muestra a continuación.

Figura 2 - Qué hay dentro de SendScheduledSms.pl.zip

Cómo enviar SMS programados desde Perl (Guía simple)

Para enviar SMS programados desde Perl:

  1. Instalar usuario de API HTTP
  2. Descargar el archivo SendScheduledSms.pl.zip
  3. Extraer el archivo .zip de la carpeta de Descargas
  4. Abrir el archivo SendScheduledSms.pl en un editor de texto
  5. Editar el archivo para programar SMS desde Perl
  6. Iniciar Ozeki SMS Gateway
  7. Ejecutar SendScheduledSms.pl usando la línea de comandos
  8. Verificar los registros

Instalar Ozeki SMS Gateway y crear un usuario de API HTTP

Para poder enviar SMS desde Perl, primero necesitas instalar Ozeki SMS Gateway. El gateway de SMS puede instalarse en la misma computadora donde desarrollas tu código Perl en Visual Studio. Después de la instalación, el siguiente paso es conectar Ozeki SMS Gateway a la red móvil. Puedes enviar un SMS de prueba desde la interfaz gráfica de Ozeki para verificar que tu conexión a la red móvil funcione. El paso final para preparar tu entorno es crear un usuario de API HTTP para SMS. Crea un usuario con el nombre "http_user" y la contraseña "qwe123" para que el ejemplo funcione sin modificaciones.

Una vez configurado el entorno, puedes ejecutar tu código Perl.

URL de la API HTTP para enviar SMS desde Perl

Para enviar SMS desde Perl, tu código Perl deberá realizar una solicitud HTTP al gateway de SMS. La URL de la API se muestra a continuación. Ten en cuenta que la dirección IP (127.0.0.1) debe reemplazarse por la dirección IP de tu gateway de SMS. Si Ozeki SMS Gateway está instalado en la misma computadora donde se ejecuta la aplicación Perl de SMS, puede ser 127.0.0.1. Si está instalado en una computadora diferente, debe ser la dirección IP de esa computadora.

http://127.0.0.1:9509/api?action=rest
	

Autenticación HTTP para enviar SMS desde Perl

Para autenticar el cliente Perl de SMS, necesitas enviar el nombre de usuario y la contraseña en una cadena codificada en base64 al servidor en una solicitud HTTP. El formato utilizado es: base64(nombre de usuario+":"+contraseña). En Perl puedes usar el siguiente código para hacer esta codificación:

my ($self, $Username, $Password) = @_;
my $Username_Password = "${Username}:${Password}";
my $Username_Password_encoded = encode_base64($Username_Password);
return "Basic ${Username_Password_encoded}";
	

Por ejemplo, si codificas el nombre de usuario 'http_user' y la contraseña 'qwe123', obtendrás la siguiente cadena codificada en base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar

Encabezado de solicitud HTTP para enviar SMS desde C#

Para enviar los mensajes SMS, necesitas incluir las siguientes líneas como encabezados en la solicitud HTTP. Ten en cuenta que incluimos un tipo de contenido y un encabezado de Autorización.

Content-Type: application/json
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

Solicitud HTTP para enviar SMS programados desde Perl

Para enviar el SMS, tu aplicación Perl enviará una solicitud HTTP similar a la que se muestra a continuación. Ten en cuenta que esta solicitud contiene una parte de encabezado HTTP y una parte de cuerpo HTTP. El cuerpo HTTP es una cadena de datos codificada en JSON. Contiene el número del destinatario y el texto del mensaje.

POST /api?action=sendmsg HTTP/1.1
Connection: TE, close
Content-Length: 998
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 192.168.0.14:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.43

{
	"messages": [
		{
			"message_id": "ab4c1e78-db41-11eb-8298-c00c4d4e2ea7",
			"to_address": "+36201111111",
			"text": "Hola mundo 1",
			"create_date": "2021-07-02T14:27:45",
			"valid_until": "2021-07-09T14:27:45",
			"time_to_send": "2021-07-02T14:27:45",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true,
			"tags": []
		},
		{
	  		"message_id": "ab4c4523-db41-11eb-838d-c00c4d4e2ea7",
	  		"to_address": "+36202222222",
	  		"text": "Hola mundo 2",
	  		"create_date": "2021-07-02T14:27:45",
	  		"valid_until": "2021-07-09T14:27:45",
	  		"time_to_send": "2021-07-02T14:27:45",
	  		"submit_report_requested": true,
	  		"delivery_report_requested": true,
	  		"view_report_requested": true,
	  		"tags": []
		},
		{
			"message_id": "ab4c59cd-db41-11eb-82c0-c00c4d4e2ea7",
			"to_address": "+36203333333",
			"text": "Hola mundo 3",
			"create_date": "2021-07-02T14:27:45",
			"valid_until": "2021-07-09T14:27:45",
			"time_to_send": "2021-07-02T14:27:45",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true,
			"tags": []
		}
	]
}

Respuesta HTTP recibida por el ejemplo de SMS en Perl

Una vez que el gateway de SMS reciba esta solicitud, generará una respuesta HTTP. La respuesta HTTP contendrá un código de estado para indicar si la solicitud de envío de SMS fue exitosa o no. También devolverá una estructura codificada en JSON para proporcionarte detalles útiles sobre el envío del mensaje.

HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Fri, 02 Jul 2021 16:00:35 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked

{
	"http_code": 200,
	"response_code": "SUCCESS",
	"response_msg": "Mensajes en cola para entrega.",
	"data": {
	  "total_count": 1,
	  "success_count": 1,
	  "failed_count": 0,
	  "messages": [
	    {
	      "message_id": "7596081e-db3e-11eb-827e-c00c4d4e2ea7",
	      "from_station": "%",
	      "to_address": "+36201111111",
	      "to_station": "%",
	      "text": "¡Hola mundo!",
	      "create_date": "2021-07-02 14:04:47",
	      "valid_until": "2021-07-09 14:04:47",
	      "time_to_send": "2021-07-02 16:10:00",
	      "submit_report_requested": true,
	      "delivery_report_requested": true,
	      "view_report_requested": false,
	      "tags": [
	        {
	          "name": "Type",
	          "value": "SMS:TEXT"
	        }
	      ],
	      "status": "SUCCESS"
	    }
	  ]
	}
}

Ejemplo de SMS en Perl: SendScheduledSms.pl (Tutorial en video)

En este video, aprenderás sobre el proceso de descarga del archivo de proyecto SendScjheduledSMS.pl. El video comenzará con la descarga de la carpeta del proyecto. Te llevará a tener el sistema completo que puedes empezar a usar. Verás qué necesitas modificar en la terminal. El video solo dura 1:36 pero es muy detallado. No tendrás problemas para seguir los pasos.

Video 1 - Cómo descargar y configurar la solución anterior (Tutorial en video)

El código de ejemplo

El código de ejemplo a continuación es parte del SendScheduledSms.pl.zip. Este código enviará mensajes SMS programados al número almacenado en la variable 'ToAddress'. El texto de los mensajes será el texto en la variable 'Text'. Ejecuta el código para enviar todos los mensajes a todos los destinatarios. Si estás familiarizado con el lenguaje de programación Perl, siéntete libre de modificar el código a tu gusto.

Figura 3 - SendScheduledSms.pl

Cómo usar el código (Tutorial en video)

En este video, aprenderás sobre el proceso de ejecutar el código y enviar mensajes SMS al destinatario. El video comenzará con el código abierto y terminará con el registro de los mensajes enviados. Al final del video, verás una carpeta en Ozeki SMS Gateway, titulada Mensajes pospuestos. En la carpeta, encontrarás todos los mensajes enviados. El video solo dura 1 minuto y te guía a través de todos los pasos que necesitas seguir para enviar los mensajes pospuestos. Ozeki SMS Gateway ofrece una interfaz de usuario muy intuitiva, por lo que no tendrás problemas para seguir los pasos.

Video 2 - Cómo usar el archivo SendMultipleSms.pl (Tutorial en video)

Resumen

El propósito de este artículo fue mostrar los pasos para programar SMS en Perl con la ayuda de Ozeki SMS Gateway. Esta solución permite posponer mensajes, lo que puede ser muy útil cuando quieres asegurarte de no molestar a los clientes cuando están ocupados. Al hacer esto, puedes lograr una imagen amigable con el cliente y mejorar la eficiencia. Los clientes tienen más probabilidades de leer los mensajes cuando tienen tiempo libre para hacerlo. También hay que decir que Ozeki SMS Gateway te permite gestionar los costos de SMS y mantener un seguimiento del tráfico de SMS.

Asegúrate de que la lectura no termine aquí, visita la página de tutoriales de Ozeki donde encontrarás más información sobre temas como eliminación de SMS en Perl.

Lo único que queda por hacer ahora es descargar Ozeki SMS Gateway y empezar a trabajar.

More information