FrankS: Graphiken, SSI

Beitrag lesen

Hi Tausch!

Muss es SSI sein? Ob das File existiert, kannst Du in Perl so testen:

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new();  # User-Agent erzeugen
$request = HTTP::Request->new('GET','http://www.name.de/grafik.gif');

Netzzugriff ausfuehren

$response = $ua->request($request);
if($response->is_success) {
    # das file gibts noch
    # man kann z.B. den header ausgeben
    print $response->headers_as_string();

} else {
    # nicht gefunden
    # error ausgeben
    print "ERROR Code: ", $response->code()," Message: ", $response->message(), "\n";
}

Gruß Frank