Como Excluir um SMS em Perl

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

O exemplo de código SMS em Perl abaixo demonstra como você pode receber SMS usando a API HTTP Rest SMS 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.

DeleteSms.pl

use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use Ozeki::Libs::Rest::Folder;

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();
#Você precisa alterar este atributo ID para excluir uma mensagem específica
$msg->{ ID } = "19fed2a2-da46-11eb-8339-ffacbeab4160";

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

my $result = $api->Delete(Ozeki::Libs::Rest::Folder->Inbox, $msg);

print($result);
	

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. Após a biblioteca ser adicionada, você deve incluir a diretiva use 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 excluir as mensagens SMS no gateway SMS. O gateway SMS encaminhará sua mensagem para a rede móvel por meio de uma conexão wireless ou pela Internet.

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

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

Para excluir SMS usando Perl:

1. Baixe o arquivo DeleteSms.pl.zip
2. Extraia o arquivo .zip da pasta de Downloads
3. Abra o arquivo DeleteSms.pl em qualquer editor de texto
4. Inicie o Ozeki SMS Gateway
5. Selecione http_user na guia Usuários e aplicativos
6. Verifique os detalhes da mensagem na Caixa de Entrada
7. Insira o ID da mensagem SMS no código DeleteSms.pl
8. Execute DeleteSms.pl para excluir SMS com Perl

Para poder enviar SMS a partir do Perl, primeiro você precisa instalar o Ozeki SMS Gateway. O gateway 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 de API HTTP SMS. Crie um usuário com o nome de usuário "http_user" e senha "qwe123" para que o exemplo funcione sem modificações.

Após a configuração do ambiente, você pode executar seu código Perl.

Para enviar SMS a partir do Perl, seu Perl terá que enviar uma solicitação HTTP para o gateway 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 SMS. Se o Ozeki SMS Gateway estiver instalado no mesmo computador onde o aplicativo Perl 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
	

Para autenticar o cliente SMS 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

Requisição HTTP para excluir SMS com Perl

Para excluir 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=deletemsg HTTP/1.1
Connection: TE, close
Content-Length: 153
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

{
	"folder":"inbox",
	"message_ids":	[
		"da837770-e3bd-4970-a824-579423d9b242"
	]
}
	

Cabeçalho da requisição HTTP para excluir SMS com Perl

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==
	

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 submissão do SMS foi bem-sucedida ou não. Também retornará uma estrutura codificada em JSON para fornecer detalhes úteis sobre a submissão 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": "",
	"data": {
	  "folder": "inbox",
	  "message_ids": [
	    "da837770-e3bd-4970-a824-579423d9b242"
	  ]
	}
}
	

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

Exemplo de SMS em Perl: DeleteSms.pl

O código de exemplo abaixo faz parte do DeleleSms.pl (Figura 3). Quando você executa este código, ele excluirá uma mensagem com o ID fornecido no código. Você pode encontrar o ID fornecido na variável 'ID'. Execute o código e ele procurará a mensagem e a excluirá. Se você estiver familiarizado com a linguagem de programação Perl, sinta-se à vontade para modificar o código.

Usando o código (Tutorial em vídeo)

Neste vídeo, você verá o código em ação. Vamos mostrar como executar o código e verificar seus resultados. Ele começará com um terminal aberto e o código aberto e mostrará a pasta de entrada vazia no final. O vídeo tem apenas 1:14 de duração e é fácil de seguir. Você não terá problemas para seguir os passos.

Resumo

Nesta página, você leu sobre como excluir mensagens SMS do Perl com a API REST HTTP do Ozeki SMS Gateway. Agora, você pode criar as condições para usar o repositório Perl baixável para excluir mensagens SMS. Esta solução pode ser um divisor de águas em seu sistema de mensagens devido às chamadas de método bem escritas e a uma classe SMS bem projetada que permite configurar os parâmetros do SMS.

O Ozeki SMS Gateway tem muito mais a oferecer, então vá e mergulhe em outro artigo intrigante. Recomendo o guia Como baixar a biblioteca Perl SMS mais recente do Github para mais informações.

Baixe o Ozeki SMS Gateway e configure seu sistema agora!