FTP online ?

[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