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

IMHO.WS (https://www.imho.ws/index.php)

- Веб-программирование (https://www.imho.ws/forumdisplay.php?f=29)

- - Напишите кусок JavaScript'a, plz ... (https://www.imho.ws/showthread.php?t=2501)

KSrGEAR

08.03.2002 13:38

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

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

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

Mrachik

10.05.2002 09:08

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

Stasik

10.05.2002 20:10

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

PHP код:


		
			
<?

$fp = @fsockopen("127.0.0.1", 21, $errno, $errstr, 30);

if (!$fp) {

    echo "Offline";

} else {

    echo "Online";

    fclose ($fp);

}

?>

Mrachik

12.05.2002 08:24

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

helldomain

13.05.2002 12:27

A chto, na perle eto ne pishetsya???

Mrachik

13.05.2002 13:18

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

helldomain

13.05.2002 13:47

Eto tochno.
:dance: :kill:

Stasik

13.05.2002 16:51

дык, на перле конечно можно написать всё гемор только, пхп прикладнее 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

13.05.2002 19:59

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

13.05.2002 20:32

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

helldomain

13.05.2002 20:36

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

Stasik

13.05.2002 20:54

ебался я, ебался...... короче вот так может, он проверяет 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

13.05.2002 21:03

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

Stasik

13.05.2002 21:12

легко

Часовой пояс GMT +4, время: 13:54.