Como agendar um SMS em Perl

A maneira mais simples de enviar SMS a partir de Perl é usar a API HTTP/Rest de SMS integrada do Ozeki SMS Gateway. Ao usar essa API, você enviará mensagens SMS fazendo uma solicitação HTTP Post para o gateway de SMS. A solicitação HTTP Post conterá uma mensagem formatada em formato json. O gateway de SMS enviará esse SMS para o telefone do destinatário e retornará uma resposta HTTP 200 OK para sua solicitação.

como agendar um sms em perl
Figura 1 - Como agendar um SMS em Perl

Código Perl para enviar SMS agendado para celular

O exemplo de código SMS em Perl abaixo demonstra como você pode enviar SMS usando a API de SMS HTTP REST do Ozeki SMS Gateway com a biblioteca Perl Ozeki.Libs.Rest. Esta biblioteca é fornecida gratuitamente, e você pode usá-la e modificá-la em qualquer um de seus projetos.

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 } = "Hello world!";
$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);

Como usar o exemplo de SMS em Perl:

Este exemplo de SMS em Perl pode ser usado em qualquer aplicação Perl. Para usá-lo, você deve adicionar a biblioteca Ozeki.Libs.Rest ao seu projeto. Depois de adicionar a biblioteca, você deve colocar a diretiva using Ozeki.Libs.Rest; na seção de cabeçalho do seu código-fonte Perl. Isso permitirá que você use as classes fornecidas pela biblioteca Ozeki.Libs.Rest. Você pode usar a classe Message para criar o SMS. Você pode usar a classe MessageApi para enviar o SMS agendado para o gateway de SMS. O gateway de SMS encaminhará sua mensagem para a rede móvel por meio de uma conexão sem fio ou pela Internet.

Baixar SendScheduledSms.pl

O código-fonte explicado neste artigo pode ser baixado, usado e modificado gratuitamente.
Download: SendScheduledSms.pl.zip (76.1Kb)

O que está no arquivo SendScheduledSms.pl?

O arquivo SendScheduledSms.pl contém a biblioteca Ozeki.Libs.Rest, que fornece todas as ferramentas necessárias para enviar e receber mensagens SMS. Você também encontrará o arquivo SendScheduledSms.pl no zip, que contém o código de exemplo para mostrar como enviar um SMS agendado. Este código de exemplo está listado abaixo.

Figura 2 - O que está dentro de SendScheduledSms.pl.zip

Como enviar SMS agendado a partir de Perl (Passos simples)

Para enviar SMS agendado a partir de Perl:

  1. Instale o usuário da API HTTP
  2. Baixe o arquivo SendScheduledSms.pl.zip
  3. Extraia o arquivo .zip da pasta de Downloads
  4. Abra o arquivo SendScheduledSms.pl em um editor de texto
  5. Edite o arquivo para agendar SMS a partir de Perl
  6. Inicie o Ozeki SMS Gateway
  7. Execute SendScheduledSms.pl usando o prompt de comando
  8. Verifique os logs
Instale o Ozeki SMS Gateway e crie um usuário HTTP API

Para poder enviar SMS a partir de Perl, primeiro você precisa instalar o Ozeki SMS Gateway. O gateway de SMS pode ser instalado no mesmo computador onde você desenvolve seu código Perl no Visual Studio. Após a instalação, o próximo passo é conectar o Ozeki SMS Gateway à rede móvel. Você pode enviar um SMS de teste da interface gráfica do Ozeki para verificar se sua conexão com a rede móvel está funcionando. O passo final para preparar seu ambiente é criar um usuário da API HTTP de SMS. Crie um usuário com o nome de usuário "http_user" e senha "qwe123" para fazer o exemplo funcionar sem modificações.

Após configurar o ambiente, você pode executar seu código Perl.

URL da API HTTP para enviar SMS a partir de Perl

Para enviar SMS a partir de Perl, seu Perl terá que fazer uma solicitação HTTP para o gateway de SMS. A URL da API é mostrada abaixo. Observe que o endereço IP (127.0.0.1) deve ser substituído pelo endereço IP do seu gateway de SMS. Se o Ozeki SMS Gateway estiver instalado no mesmo computador onde o aplicativo Perl de SMS está sendo executado, pode ser 127.0.0.1. Se estiver instalado em um computador diferente, deve ser o endereço IP desse computador. 

http://127.0.0.1:9509/api?action=rest
Autenticação HTTP para enviar SMS a partir de Perl

Para autenticar o cliente de SMS em Perl, você precisa enviar o nome de usuário e senha em uma string codificada em base64 para o servidor em uma solicitação HTTP. O formato usado é: base64(nome de usuário+":"+senha). Em Perl, você pode usar o seguinte código para fazer essa codificação: 

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

Por exemplo, se você codificar o nome de usuário 'http_user' e a senha 'qwe123', você obterá a seguinte string codificada em base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar

Cabeçalho da requisição HTTP para enviar SMS a partir de C#

Para enviar as mensagens SMS, você precisa incluir as seguintes linhas como cabeçalhos na requisição HTTP. Observe que incluímos um tipo de conteúdo e um cabeçalho de Autorização. 

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

Requisição HTTP para enviar SMS agendado a partir de Perl

Para enviar o SMS, sua aplicação Perl enviará uma requisição HTTP semelhante à mostrada abaixo. Observe que esta requisição contém uma parte de cabeçalho HTTP e uma parte de corpo HTTP. O corpo HTTP é uma string de dados codificada em JSON. Ela contém o número do destinatário e o texto da mensagem. 

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": "Hello world 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": "Hello world 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": "Hello world 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": []
		}
	]
}

Resposta HTTP recebida pelo exemplo de SMS em Perl

Assim que o gateway SMS receber esta requisição, ele gerará uma resposta HTTP. A resposta HTTP conterá um código de status, para indicar se a requisição de envio de SMS foi bem-sucedida ou não. Também retornará uma estrutura codificada em JSON para fornecer detalhes úteis sobre o envio da mensagem. 

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": "Messages queued for delivery.",
	"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": "Hello world!",
	      "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"
	    }
	  ]
	}
}

Exemplo de SMS em Perl: SendScheduledSms.pl (Tutorial em vídeo)

Neste vídeo, você aprenderá sobre o processo de download do arquivo de projeto SendScjheduledSMS.pl. O vídeo começará com o download da pasta do projeto. Ele o guiará até ter o sistema completo que você pode começar a usar. Você verá o que precisa modificar no terminal. O vídeo tem apenas 1:36 de duração, mas é muito detalhado. Você não terá problemas para seguir os passos.

Vídeo 1 - Como baixar e configurar a solução acima (Tutorial em vídeo)

O código de exemplo

O código de exemplo abaixo faz parte do SendScheduledSms.pl.zip. Este código enviará mensagens SMS agendadas para o número armazenado na variável 'ToAddress'. O texto das mensagens será o texto na variável 'Text'. Execute o código para enviar todas as mensagens para todos os destinatários. Se você estiver familiarizado com a linguagem de programação Perl, sinta-se à vontade para modificar o código conforme desejar.

Figura 3 - SendScheduledSms.pl

Como usar o código (Tutorial em vídeo)

Neste vídeo, você aprenderá sobre o processo de execução do código e envio de mensagens SMS para o destinatário. O vídeo começará com o código aberto e terminará com o registro das mensagens enviadas. No final do vídeo, você verá uma pasta no Ozeki SMS Gateway, intitulada Mensagens adiadas. Na pasta, você encontrará todas as mensagens enviadas. O vídeo tem apenas 1 minuto de duração e o guia por todos os passos necessários para enviar as mensagens adiadas. O Ozeki SMS Gateway oferece uma interface de usuário muito intuitiva, então você não terá problemas para seguir os passos.

Vídeo 2 - Como usar o arquivo SendMultipleSms.pl (Tutorial em vídeo)

Resumo

O objetivo deste artigo foi mostrar os passos para agendamento de SMS em Perl com a ajuda do Ozeki SMS Gateway. Esta solução permite adiar mensagens, o que pode ser muito útil quando você quer garantir que não incomode os clientes quando eles estão ocupados. Ao fazer isso, você pode alcançar uma imagem amigável para o cliente e melhorar a eficiência. Os clientes têm maior probabilidade de ler as mensagens quando têm tempo livre para isso. Também deve ser dito que o Ozeki SMS Gateway permite gerenciar os custos de SMS e acompanhar o tráfego de mensagens.

Certifique-se de que a leitura não termine aqui, visite a página de tutoriais da Ozeki, onde mais informações podem ser encontradas sobre tópicos como exclusão de SMS em Perl.

A única coisa a fazer agora é baixar o Ozeki SMS Gateway e começar a trabalhar!

More information