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

[KSrGEAR]

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

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

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

[Stasik]

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

PHP код:

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

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

[helldomain]

A chto, na perle eto ne pishetsya???

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

[helldomain]

Eto tochno.

[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";
}

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

[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]

легко