Напишите кусок JavaScript'a, plz ...

[KSrGEAR]

Есть FTP сервер. Бывает Online/Offline.
Соответственно состоянию сервера изменяется текстовая строка на веб-странице... Status: Offline или Status: Online.

Нужен кусок JavaScript'a, который бы за это отвечал.

[Mrachik]

Ты бы еще спросил как поисковую систему на JavaScript написать :), это невозможно...

[Stasik]

того, тут что-то все умничать любят, вот тебе код на PHP:


<?
$fp = @fsockopen("127.0.0.1", 21, $errno, $errstr, 30);
if (!$fp) {
echo "Offline";
} else {
echo "Online";
fclose ($fp);
}
?>

[Mrachik]

Да куда мне умничать? Я же не такой крутой как ты и PHP не знаю:idontnow: . Больше все как-то на perl'e... :нет

[helldomain]

A chto, na perle eto ne pishetsya???

[Mrachik]

На перле можно написать все и даже больше:dance:

[helldomain]

Eto tochno.
:dance: :kill:

[Stasik]

дык, на перле конечно можно написать всё гемор только, пхп прикладнее IMHO он же специально для веб разрабатывался :atention:

так

#!/usr/bin/perl
print "Content-type: text/html\n\n";
use IO::Socket;
$fp = IO::Socket::INET->new(
Proto=>"tcp",
PeerAddr=>"127.0.0.1",
PeerPort=>"21",
Reuse=>5,
Type => SOCK_STREAM);
if (!$fp) {
print "Offline";
} else {
print "Online";
}

я не пробовал, но по идее должно работать :smile:

[helldomain]

A esli na 21 portu chto-to drugoe rabotaet (naprimer AudioGalaxy) ili sam ftp provis? Dobaw proverku perwih treh znakow w stroke prisilaemoi serverom na eq "220".

[Stasik]

ню блин загнул, ща пойду тестить :) 5минут

[helldomain]

LOL. Eh, glawnoe razognut wowremya ;-))).

[Stasik]

ебался я, ебался...... короче вот так может, он проверяет 200.....


#!/usr/bin/perl
print "Content-type: text/html\n\n";
use Net::FTP;
$ftp = Net::FTP->new("127.0.0.1", Timeout => 1);
if ($ftp == NULL)
{
print "Offline";
} else {
print "Online";
}

[helldomain]

Kruto. Wot teper eto shedevr. Prodadim za bolshie babki. Wmeste s logo KpNemo. ;-)))

[Stasik]

легко