Como enviar SMS a partir de Perl
A maneira mais simples de enviar SMS a partir de Perl é usar a API HTTP/Rest de SMS integrada do Ozeki SMS Gateway. Quando você usa esta API, enviará mensagens SMS fazendo uma requisição HTTP Post para o gateway de SMS. A requisição HTTP Post conterá uma mensagem formatada em formato json. O gateway de SMS enviará este SMS para o telefone do destinatário e retornará uma resposta HTTP 200 OK para a sua requisição.
O exemplo de código SMS em Perl abaixo demonstra como você pode enviar SMS usando a API HTTP Rest de 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 dos seus projetos.
SendSms.pl
use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
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!";
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 para o gateway de SMS. O gateway de SMS encaminhará sua mensagem para a rede móvel através de uma conexão wireless ou pela Internet.
Baixar SendSms.pl
O código-fonte explicado neste artigo pode ser baixado, usado e modificado gratuitamente.
Download: SendSms.pl.zip (76.0Kb)
O arquivo SendSms.pl.zip 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 SendSms.pl no zip, que contém o código de exemplo para mostrar como enviar um SMS. Este código de exemplo está listado abaixo.
Para usar a biblioteca Ozeki::Libs::Rest, você deve instalar alguns módulos:
Ubuntu
$ sudo apt-get install libdatetime-perl $ cpan $ install JSON $ install UUID::Generator::PurePerl $ install UUID::Object
Neste vídeo, mostramos como instalar as dependências do Perl no sistema operacional Linux. O vídeo começa com a abertura de um terminal e termina com as dependências instaladas. O vídeo tem apenas 1:10 de duração, mas explica o processo de forma detalhada. Se você assistir ao vídeo inteiro, não terá problemas para recriar os passos.
Windows
cpanm DateTime cpanm UUID::Generator::PurePerl cpanm UUID::Object cpanm JSON
Neste vídeo, mostramos como instalar as dependências do Perl no sistema operacional Windows. O vídeo começa com a abertura de um prompt de comando e termina com todas as dependências instaladas. O vídeo tem apenas 46 segundos, mas explica o processo de forma detalhada. O processo é fácil de fazer, então com a ajuda deste vídeo, você não terá problemas para seguir os passos.
Como enviar SMS a partir de Perl (Passos simples)
Para enviar SMS a partir de Perl:
- Instale um usuário de API HTTP
- Ative "Log communication events" na aba Advanced
- Baixe e extraia o arquivo SendSms.pl.zip
- Abra o arquivo sendsms.pl em qualquer editor de texto
- Inicie o aplicativo Ozeki SMS Gateway
- Execute o código Perl SendSms.pl no prompt de comando
- Verifique os logs para ver se o SMS foi enviado
Instale o Ozeki SMS Gateway e crie um usuário de API HTTP
Para poder enviar SMS a partir de 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 Bloco de Notas do Windows ou no Visual Studio Code. Após a instalação, o próximo passo é conectar o Ozeki SMS Gateway à rede móvel. Você pode criar um usuário de API HTTP para 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.
URL da API HTTP para enviar SMS a partir de Perl
Para enviar SMS a partir de Perl, seu código Perl precisará fazer uma requisiçã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 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 SMS em Perl, você precisa enviar o nome de usuário e senha em uma string codificada em base64 para o servidor em uma requisiçã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 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==
Requisição HTTP para enviar SMS a partir de Perl
Para enviar o SMS, seu aplicativo 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: 341
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.52
{
"messages": [
{
"message_id": "fa32293f-db00-11eb-804d-ffacbeab4160",
"to_address": "+36201111111",
"text": "Olá mundo!",
"create_date": "2021-07-02T06:44:40",
"valid_until": "2021-07-09T06:44:40",
"time_to_send": "2021-07-02T06:44:40",
"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. Ela 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: Tue, 29 Jun 2021 11:48:38 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked
{
"http_code": 200,
"response_code": "SUCCESS",
"response_msg": "Mensagens enfileiradas para entrega.",
"data": {
"total_count": 1,
"success_count": 1,
"failed_count": 0,
"messages": [
{
"message_id": "fa32293f-db00-11eb-804d-ffacbeab4160",
"from_station": "%",
"to_address": "+36201111111",
"to_station": "%",
"text": "Olá mundo!",
"create_date": "2021-07-02 06:44:40",
"valid_until": "2021-07-09 06:44:40",
"time_to_send": "2021-07-02 06:44:40",
"submit_report_requested": true,
"delivery_report_requested": true,
"view_report_requested": false,
"tags": [
{
"name": "Type",
"value": "SMS:TEXT"
}
],
"status": "SUCCESS"
}
]
}
}
Conecte seu gateway SMS à rede móvel e crie uma conta de usuário da API HTTP
Assumimos que você já instalou o Ozeki SMS Gateway e que conectou-o à rede móvel. Para poder enviar SMS para um telefone móvel a partir de Perl, você precisa configurar uma conta de usuário da API HTTP no Ozeki SMS Gateway. Neste vídeo, vamos explicar o processo de criação de uma nova conta de usuário da API HTTP. O vídeo começará com a abertura do aplicativo Ozeki SMS Gateway e o guiará até ter o usuário da API HTTP criado. No processo, você aprenderá como configurar um novo usuário e como ativar a opção de registro. O vídeo tem apenas 30 segundos e explica o processo de forma muito detalhada. Você não terá problemas para entender as etapas.
Como enviar SMS a partir de Perl usando a API SMS Perl (Tutorial em vídeo)
Este vídeo mostra como baixar o arquivo SendSms.pl.zip desta página e como abrir o arquivo SendSms.pl no Bloco de Notas. Se assistir ao vídeo, você notará que o conteúdo do SendSms.pl.zip é colocado na área de trabalho do Windows. Você também verá que abrimos o arquivo SendSms.pl com o Bloco de Notas do Windows.
Na Figura 1, você pode ver o código-fonte do projeto de exemplo. Se você estiver familiarizado com a linguagem de programação Perl, sinta-se à vontade para modificar o código conforme desejar. Este código enviará um SMS para o número de telefone armazenado na variável toAddress, com o texto armazenado na variável Text.
Depois que o SMS for enviado, é uma boa ideia verificar seu gateway SMS, para ver o que foi recebido. Você pode verificar o registro abrindo os detalhes do usuário HTTP no console de gerenciamento do Ozeki SMS Gateway. O vídeo a seguir mostra o que procurar.
Como verificar se o SMS foi enviado para a rede móvel
O passo final para verificar o procedimento é dar uma olhada nos registros da conexão com a rede móvel. Você pode precisar ativar o registro na configuração da conexão antes de enviar a mensagem para ver os registros. Se o registro estiver ativado, você verá o número de telefone e o texto da mensagem que enviou.
Como é a recepção de um SMS em um telefone Android (Tutorial em vídeo)
Neste vídeo, você verá como é a recepção de uma mensagem SMS em um dispositivo Android. Começará com uma página inicial comum do Android. Você verá a notificação aparecer e, em seguida, o aplicativo Mensagens aberto com o SMS visível nele. O vídeo tem apenas 18 segundos, mas apresenta todo o processo.
Conclusão
Este guia teve como objetivo mostrar como enviar SMS em Perl com a ajuda do Ozeki SMS Gateway. Se tudo foi lido com atenção, a mensagem com seus clientes em Perl com o Ozeki SMS Gateway não deve causar nenhum tipo de problema. É importante destacar que o Ozeki SMS Gateway permite registrar mensagens SMS em um banco de dados e oferece vários recursos de relatórios para fornecer mais informações sobre a conexão SMS.
Continue lendo na página de tutoriais da Ozeki, onde mais informações podem ser encontradas sobre tópicos como agendamento de SMS em Perl.
A única coisa a fazer agora é baixar o Ozeki SMS Gateway e começar a trabalhar!
More information
- Enviar SMS em Perl com a API REST HTTP (exemplo de código)
- Enviar múltiplos SMS em Perl com a API REST HTTP (exemplo de código)
- Agendar SMS em Perl com a API REST HTTP (exemplo de código)
- Receber SMS em Perl com a API REST HTTP (exemplo de código)
- Excluir SMS em Perl com a API REST HTTP (exemplo de código)
- Como baixar a última biblioteca de SMS em Perl do Github