FTP online ?

[Maik]

HI zusammen,

ich würd mir gerne ein kleines Script (Perl natürlich) schreiben, dass prüft ob ein FTP-Server online ist.
Gibt es da beim Modul NET::FTP irgendeine Funktion dafür ?
Hab in der Perldoc gelesen, aber nix gefunden ...

Und mitm dem Net::Ping klappts nicht, denn mein Provider erlaubt kein icmp und mit tcp kommt, dass mein ftp-Server immer offline wäre.

Gruß
Maik

[xNeTworKx]

Hallo,
ich hab mir da mal was gebastelt. Die Lösung ist zwar nicht gerade das Gelbe vom Ei, aber sie funktioniert.

use CGI;
use LWP::UserAgent;
use strict;

my $query = new CGI;
my $ua = LWP::UserAgent->new();
my $url = 'ftp://255.255.255.255/pingdatei.html';

my $request = HTTP::Request->new('GET', $url);
my $response = $ua->request($request);

if ($response->is_error()) {
   print $query->redirect('offline.html');
   }
   else   {
   print $query->redirect('online.html');
   }

Das einzige was du machen musst, ist in diesem Fall eine leere Datei namens pingdatei.html auf dem ftp abzulegen. Falls er die Datei findet -> online, wenn nicht -> offline