Jak zaplanować wysłanie SMS w Perl

Najprostszym sposobem wysyłania SMS z Perla jest użycie wbudowanego interfejsu HTTP/Rest SMS API Ozeki SMS Gateway. Korzystając z tego API, będziesz wysyłać wiadomości SMS poprzez wysłanie żądania HTTP Post do bramki SMS. Żądanie HTTP Post będzie zawierać wiadomość sformatowaną w formacie json. Bramka SMS wyśle tę wiadomość SMS na telefon odbiorcy i zwróci odpowiedź HTTP 200 OK na twoje żądanie.

Kod Perl do wysyłania zaplanowanych SMS na telefon

Poniższy przykładowy kod SMS w Perl demonstruje, jak możesz wysyłać SMS przy użyciu interfejsu HTTP rest sms API Ozeki SMS Gateway, korzystając z biblioteki Perl Ozeki.Libs.Rest. Ta biblioteka jest dostarczana bezpłatnie i możesz jej używać oraz modyfikować w dowolnym z twoich projektów.

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);

Jak używać przykładu SMS w Perl:

Ten przykład SMS w Perl może być używany w dowolnej aplikacji Perl. Aby go użyć, musisz dodać bibliotekę Ozeki.Libs.Rest do swojego projektu. Po dodaniu biblioteki, musisz umieścić dyrektywę using Ozeki.Libs.Rest; w sekcji nagłówkowej swojego kodu źródłowego Perl. To pozwoli ci korzystać z klas dostarczonych przez bibliotekę Ozeki.Libs.Rest. Możesz użyć klasy Message do tworzenia SMS. Możesz użyć klasy MessageApi do wysłania zaplanowanego SMS do bramki SMS. Bramka SMS przekaże twoją wiadomość do sieci komórkowej poprzez połączenie bezprzewodowe lub przez Internet.

Pobierz SendScheduledSms.pl

Kod źródłowy omówiony w tym artykule może być pobrany, używany i modyfikowany bezpłatnie.
Pobierz: SendScheduledSms.pl.zip (76.1Kb)

Co znajduje się w pliku SendScheduledSms.pl?

Plik SendScheduledSms.pl zawiera bibliotekę Ozeki.Libs.Rest, która dostarcza wszystkich narzędzi niezbędnych do wysyłania i odbierania wiadomości SMS. Znajdziesz tam również plik SendScheduledSms.pl, który zawiera przykładowy kod pokazujący, jak wysłać zaplanowaną wiadomość SMS. Ten przykładowy kod jest wymieniony poniżej.

Jak wysłać zaplanowaną wiadomość SMS z Perla (Proste wskazówki)

Aby wysłać zaplanowaną wiadomość SMS z Perla:

1. Zainstaluj użytkownika HTTP API
2. Pobierz plik SendScheduledSms.pl.zip
3. Wypakuj plik .zip z folderu Pobrane
4. Otwórz plik SendScheduledSms.pl w edytorze tekstu
5. Edytuj plik, aby zaplanować wysłanie SMS z Perla
6. Uruchom Ozeki SMS Gateway
7. Uruchom SendScheduledSms.pl za pomocą wiersza poleceń
8. Sprawdź logi

Zainstaluj Ozeki SMS Gateway i utwórz użytkownika HTTP API

Aby móc wysyłać SMS z Perla, najpierw musisz zainstalować Ozeki SMS Gateway. Bramka SMS może być zainstalowana na tym samym komputerze, na którym tworzysz swój kod Perl w Visual Studio. Po instalacji kolejnym krokiem jest podłączenie Ozeki SMS Gateway do sieci komórkowej. Możesz wysłać testową wiadomość SMS z interfejsu Ozeki, aby sprawdzić, czy twoje połączenie z siecią komórkową działa. Ostatnim krokiem przygotowania środowiska jest utworzenie użytkownika HTTP sms api. Utwórz użytkownika z nazwą "http_user" i hasłem "qwe123", aby przykład działał bez modyfikacji.

Po skonfigurowaniu środowiska możesz uruchomić swój kod Perl.

URL API HTTP do wysyłania SMS z Perla

Aby wysłać SMS z Perla, twój Perl będzie musiał wysłać żądanie HTTP do bramki SMS. URL API jest pokazany poniżej. Zauważ, że adres IP (127.0.0.1) powinien zostać zastąpiony adresem IP twojej bramki SMS. Jeśli Ozeki SMS Gateway jest zainstalowany na tym samym komputerze, na którym działa aplikacja SMS Perl, może to być 127.0.0.1. Jeśli jest zainstalowany na innym komputerze, powinien to być adres IP tego komputera.

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

Uwierzytelnianie HTTP do wysyłania SMS z Perla

Aby uwierzytelnić klienta SMS Perl, musisz wysłać nazwę użytkownika i hasło w zakodowanym ciągu base64 do serwera w żądaniu HTTP. Używany format to: base64(nazwa_użytkownika+":"+hasło). W Perl możesz użyć następującego kodu do wykonania tego kodowania:

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

Na przykład, jeśli zakodujesz nazwę użytkownika 'http_user' i hasło 'qwe123', otrzymasz następujący zakodowany ciąg base64: aHR0cF91c2VyOnF3ZTEyMw==. Aby wysłać