[es] - Perl Online / Offline scripta

Bruce
Svedska

Član broj: 5323
Poruke: 4
*.cust.bredbandsbolaget.se

Profil

^{16.09.2002. u 17:01 - pre 267 meseci}

Pozdravljam!

Trazim po netu evo vec danima scriptu koja bi mi pomogla pri rijesenju mog problema. Radi se o nazovimo je 'Online/Offline' scripti, koja bi mi printala jednostavno Online/Offline status mog radija na sajtu. Dakle, voljeo bih kad bi mi neko mogao pomoci na bilo koji nacin da rijesim ovaj problem. Unaprijed se zahvaljujem na sve poruke zakacene na moju temu. Hvala!

Pojasnjenje:
Imam web site na kojem postavljam informacije vezane za Internet Radio. Iz razloga tog sto radio nije online 24/7 vec par odredjenih dana sedmicno i par sati tim danima, potrebna mi je scripta koja bi 'pingala' moju staticku ip adresu na odredjeni port i printala rijec 'Online' na sajt kada radio radi ili 'Offline' kada je radio ugasen. Imam sve predispozicije (nadam se :)) da bi mi scripta ovog programskog jezika pomogla.

Napomena:
a) Imam staticnu IP adresu,
b) imam hosting koji podrzava sve prog. jezike pa i Perl,
c) znam se koristiti scriptama ovog prog. jezika ali ne znam ih sam pisati.

Odgovor na temu

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.verat.net

Profil

Re: Perl Online / Offline scripta

^{16.09.2002. u 18:01 - pre 267 meseci}

Evo rešenja tvog problema:

Code:

#! /usr/bin/perl

use IO::Socket;

# IP adresa tvog servera
$moj_ip = "121.32.23.212";

# Port na kome funkiconise taj tvoj radio
$moj_port = 4321;

$sock = IO::Socket::INET->new(PeerAddr => $moj_ip,
PeerPort => $moj_port,
Proto => 'tcp');

print "Content-type: text/html\n\n";

print("Online!\n")if ($sock);
print("Offline...\n") if (!$sock);

Sada, naravno, možeš ovaj skript direktno da pozivaš a možeš i da ga pozivaš putem SSI-a pa da posetioci na nekoj (ili možda svakoj) stranici vide da li tvoj radio radi ili ne.
Ukoliko ne znaš šta je SSI, potraži na forumu, mislim da se o tome ranije pričalo.

Pozdrav

Odgovor na temu

Bruce
Svedska

Član broj: 5323
Poruke: 4
*.cust.bredbandsbolaget.se

Profil

Re: Perl Online / Offline scripta

^{16.09.2002. u 22:16 - pre 267 meseci}

Zahvaljujem!!!

Scripta mi radi bas onako kako sam ja zamisljao i u svojim idejama zahtjevao!
Hvala jos jednom!

Ps. Iskorisio sam SSI!

Sajt je u izgradnji, ali se moze pogledati kako to izgleda do sada...
...adresa je: www.druginacin.tk

Odgovor na temu

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.verat.net

Profil

Re: Perl Online / Offline scripta

^{16.09.2002. u 22:51 - pre 267 meseci}

Nema na čemu, tu sam da pomognem.

Odgovor na temu

Bruce
Svedska

Član broj: 5323
Poruke: 4
*.cust.bredbandsbolaget.se

Profil

Re: Perl Online / Offline scripta

^{17.09.2002. u 20:01 - pre 267 meseci}

Zdravo jos jednom!

Interesuje me da li se u scriptu gore moze dodati red sa timeout opcijom.
Primjetio sam da dio (frame) u sajtu koji zove tu scriptu se neotvara brzo jer mu treba dok se pong vrati a tu je klasican timeout od 60 sec. predpostavljam. Nadam se da me kontas sta mi treba, u protivnom javni mi pa cu pojasniti detaljnije.

Hvala i cujemo se....

Odgovor na temu

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.verat.net

Profil

Re: Perl Online / Offline scripta

^{17.09.2002. u 21:11 - pre 267 meseci}

Ne vidim u čemu je problem, sajt se otvara odjednom bez problema. Do duše, vidim da si isključio skript, da tako kažem, ali i kada je bio aktiviran, stranica se brzo učitavala.

Odgovor na temu