Kako poslati SMS iz Perla

Primer koda ispod će pokazati kako možete koristiti HTTP zahteve za slanje SMS poruka iz Perla preko SMS Gateway-a. Perl program prvo postavlja sve važne promenljive koje će se koristiti za slanje poruke. Zatim kreira string za slanje poruke i na kraju, inicira HTTP zahtev. Program će takođe ispisati odgovor.

Perl SMS API omogućava slanje SMS poruka iz programa napisanog u Perlu. Koristi HTTP zahteve i SSL šifrovanu komunikaciju za prosleđivanje zahteva za slanje SMS-a do SMS Gateway-a.

• Instaliran Perl
• Instaliran Ozeki 10 SMS Gateway
• Konfigurisan HTTP API korisnički nalog

1. Otvorite Notepad
2. Napravite novi fajl
3. Kopirajte primer koda sa ove stranice
4. Sačuvajte fajl kao HttpApiTester.pl
5. Otvorite Command Prompt
6. Idite do foldera gde ste sačuvali Perl fajl
7. Ukucajte 'perl HttpApitester.pl' u Command Prompt
8. Pritisnite Enter da pokrenete Perl fajl

Primer Perl izvornog koda ispod je slobodan za korišćenje, možete ga jednostavno implementirati u svoj projekat, ili možete modifikovati izvorni kod da ga koristite za druge projekte ili aplikacije. Ako želite samo da pokrenete i testirate ovaj primer, sve što treba da uradite je da pratite uputstva iznad ili pogledate tutorijal video koji pokazuje kako napraviti Perl fajl za izvorni kod i pokrenuti ga iz Command Prompt-a.

#!/usr/bin/perl 
use strict; 
use warnings; 
use Encode;
require HTTP::Request;
require LWP::UserAgent;

sub main
{
    my $username = "john";
	my $password = "Xc3ffs";
	my $messagetype = "SMS:TEXT";
	my $httpUrl = "https://127.0.0.1:9508/";
	my $recipient = Encode::encode("utf8", "+36201324567");
	my $messagedata = Encode::encode("utf8", "TestMessage");

	my $sendString = $httpUrl."api?action=sendmessage"."&username=" 
					.$username."&password=" 
					.$password."&recipient=".$recipient."&messagetype=" 
					.$messagetype."&messagedata=".$messagedata;
    
    print "Sending html request: ".$sendString."\n\n";

	my $request = HTTP::Request->new(GET => $sendString);
	my $ua = LWP::UserAgent->new (
   			ssl_opts => { verify_hostname => 0 },
			);
	my $response = $ua->request($request);

	print "Http response received :\n";
	print $response->content;

}

# Call main.
main();

Da biste mogli da pokrenete primer koda iznad, prvo morate napraviti Perl fajl za to. Da biste izvršili ovu operaciju, potrebno je samo da imate uređivač teksta. Možete preuzeti prilagođeni uređivač teksta, ali podrazumevana Notepad aplikacija instalirana na Windows-u može obaviti posao. Dakle, kao što Slika 1 pokazuje, samo otvorite Notepad aplikaciju sa svog desktop-a.

Sledeći korak je da dobijete izvorni kod. Ovo je lak zadatak, pošto se kod može naći na ovoj stranici, tako da samo treba da ga kopirate. Dakle, kao što možete videti na Slici 2, samo idite do sekcije sa primerom koda na ovoj stranici, označite ceo izvorni kod i pritisnite Ctrl+C na tastaturi da kopirate izvorni kod u clipboard.

Zatim, morate postaviti kopirani izvorni kod u vaš prazan tekstualni fajl. Da biste to uradili, samo idite do tekstualnog fajla i pritisnite Ctrl+V na tastaturi. Izvršavanjem ove akcije, izvorni kod će biti postavljen u vaš tekstualni fajl kao što Slika 3 pokazuje.

Корак 4 - Сачувајте текст као Perl фајл

Да бисте креирали Perl фајл, потребно је да сачувате текстуални фајл са екстензијом Perl фајлова. Ова екстензија је .pl. Дакле, изаберите опцију 'Сачувај као' у Notepad-у, као што можете видети на Слици 4, и након што сте дали име фајлу, додајте му екстензију '.pl' и кликните на 'Сачувај'. Ова операција је управо креирала Perl фајл који вам је потребан за покретање Perl SMS примера.

Последњи главни корак у водичу је покретање Perl фајла који сте претходно креирали. У овом случају, покренућете пример користећи Command Prompt. Command Prompt можете лако отворити тако што ћете отворити File Explorer и, као на Слици 5, једноставно укуцати 'cmd' у адресну траку и затим притиснути Enter. Ако сте у File Explorer-у навигирали до фолдера где сте сачували Perl фајл, Command Prompt ће користити ову локацију као подразумевану, тако да можете одмах покренути Perl фајл.

Последња ствар коју треба да урадите је да покренете команду која извршава Perl фајл. Ово је једноставна команда; потребно је само да укуцате 'perl *име фајла*.pl' у Command Prompt, као што је приказано на Слици 6. Након што притиснете Enter, Perl фајл ће извршити команде унутар себе и послати тест поруку. HTTP захтев и одговор од SMS Gateway-а биће исписани у Command Prompt-у.

Ozeki 10 SMS Gateway омогућава да проверите које поруке је ваша апликација послала, јер HTTP API сервис логује сваки догађај који се десио током времена док је активиран. Дакле, ако отворите SMS Gateway и изаберете детаље HTTP API сервиса, моћи ћете да видите догађаје. Као што можете видети на Слици 7, сервис је логовао догађај када је Perl програм послао HTTP захтев сервису.

Догађаји који су се десили током слања поруке такође се могу проверити преко догађаја. За то, отворите HTTP API корисничку везу, коју сте морали да конфигуришете претходно. Слика 8 показује како веза рукује HTTP захтевом и шаље поруку примаоцу који сте навели у вашем Perl SMS примеру програма.

У овом чланку, пружамо вам информације о томе како послати SMS поруке користећи Perl. Такође смо укључили пример кода који можете користити да започнете процес имплементације. Подешавање решења које може користити Perl језик за слање SMS-а олакшаће вам имплементацију решења за слање SMS-а у ваш комуникациони систем.

Ако желите да имплементирате више програмских језика у ваш комуникациони систем, слободно посетите чланке о другим програмским језицима компатибилним са Ozeki SMS Gateway-ом, као што су: Java.

Сада је следећа ствар коју треба да урадите да преузмете Ozeki SMS Gateway и одмах конфигуришете ово решење! Све је спремно да га покренете за мање од 10 минута.