Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Perl Online / Offline scripta

[es] :: Perl :: Perl Online / Offline scripta

[ Pregleda: 5248 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Bruce
Svedska

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



Profil

icon Perl Online / Offline scripta16.09.2002. u 17:01 - pre 262 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

icon Re: Perl Online / Offline scripta16.09.2002. u 18:01 - pre 262 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

icon Re: Perl Online / Offline scripta16.09.2002. u 22:16 - pre 262 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

icon Re: Perl Online / Offline scripta16.09.2002. u 22:51 - pre 262 meseci
Nema na čemu, tu sam da pomognem.
 
Odgovor na temu

Bruce
Svedska

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



Profil

icon Re: Perl Online / Offline scripta17.09.2002. u 20:01 - pre 262 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

icon Re: Perl Online / Offline scripta17.09.2002. u 21:11 - pre 262 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

[es] :: Perl :: Perl Online / Offline scripta

[ Pregleda: 5248 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.