nicht angemeldet
Hi,
Keine Ahnung, was da los ist mit Michaels Script, aber:
GET http://meta-text.net/ HTTP/1.0
das Original des später installierten Skripts habe ich hier noch auf Platte - falls jemand darin einen Fehler findet ... viel Spaß beim Suchen ...
mfG - Michael
#! /home/local/bin/perl
####################################
Lies die Server-ID einer URL
####################################
use CGI;
use LWP::Simple;
#=======================================================================
CGI-Header fuer ein HTML-Dokument
print "Content-type: text/html\n\n";
#=======================================================================
Dokumentkopf
print "<HTML>\n\n";
print "<HEAD>\n";
print " <META NAME="GENERATOR" CONTENT="${0}">\n";
print " <META NAME="AUTHOR" CONTENT="Michael Schröpl">\n";
print "</HEAD>\n\n";
print "<BODY BGCOLOR=#AAAAAA>\n";
#=======================================================================
Ueberschrift
print "<DIV ALIGN=CENTER>\n";
print "<H2>Webserver-Kennung zu einer URL</H2>\n";
#=======================================================================
CGI-Parameter lesen (objektorientiert, Perl 5)
my $query = new CGI;
my $url = $query -> param ('URL');
#=======================================================================
Document-Head lesen - da steht auch der Server-Name drin
my ($mime, $size, $mod, $expires, $server) = LWP::Simple::head ($url);
#=======================================================================
Antwort analysieren und ausgeben
my $reply = "";
#-----------------------------------------------------------------------
Ist die ganze Ausgabe leer?
if ("$mime$size$mod$expires$server" eq "")
{ $reply = "Keine Antwort beim Zugriff auf die URL '<TT>$url</TT>'"; }
#-----------------------------------------------------------------------
Ist nur der Server-Name leer?
elsif ("$server" eq "")
{ $reply = "Keine Identifikation gesendet vom Server der URL '<TT>$url</TT>'"; }
#-----------------------------------------------------------------------
Ansonsten die Antwort anbieten
else
{ $reply = "Der Server der URL<BR>'<TT>$url</TT>'<BR>identifiziert sich als<BR>'<TT>$server</TT>'"; }
#=======================================================================
Ergebnis anzeigen
print "<TABLE BGCOLOR=#FFFFCC>\n";
print " <TR ALIGN=CENTER>\n";
print " <TD>$reply</TD>\n";
print " </TR>\n";
print "</TABLE>\n";
#-----------------------------------------------------------------------
Dokumentabschluss
print "</DIV>\n";
print "</BODY>\n";
print "</HTML>\n";
#=======================================================================
exit (0);