HI,
--------------------------------
#!usr/bin/perl
$daten = <STDIN>;
%daten = &CGIDatenaufbereiter ($daten);
print "Content-type: text/html\n\n";
print '<html>';
print '<head>';
print '<title>Antwortseite</title>';
print '</head>';
print '<body>';
print '<hr>';
while ( ($temp, $wert) = each %daten )
{
print "$wert<br>";
$temp = 0;
}
print '<hr>';
print '</body>';
print '</html>';
sub CGIDatenaufbereiter
{
local ($cgidatenskalar, $name, $daten);
local @cgidatenliste;
local %cgidatenhash;
if ( $_[0] )
{
$cgidatenskalar = $_[0];
}
else
{
print STDERR "Es wurden keine Daten an den CGIDatenaufbereiter übergeben\n";
}
@cgidatenliste = split(/[&;]/ , $cgidatenskalar);
foreach $listeneintrag (@cgidatenliste)
{
$listeneintrag =~ s/+/ /go;
($name, $daten) = split( /=/ , $listeneintrag );
$name =~ s/%(..)/pack("c",hex($1))/ge;
$daten =~ s/%(..)/pack("c",hex($1))/ge;
$cgidatenhash{$name} = $daten;
}
return %cgidatenhash;
}
-----------------------------------------
Die Datei hat in der ersten Zeile den korrekten Pfad und läuft lokal und auf www.tripod.com. Bei HostEurope läuft es leider nicht und da ich eigentlich weiß, dass die Datei fehlerfrei ist habe ich eine Mail an das Support-Team geschickt.
Die Antwort:
------------------------------------------------
Sehr geehrter Kunde,
hier ein Auszug aus dem ErrorLog:
[Mon Jun 17 11:29:26 2002] [error] (2)No such file or directory: exec of /is/htdocs/32148/www.young-forum.de//cgi-bin/website.pl failed
[Mon Jun 17 11:29:26 2002] [error] [client 192.168.70.252] Premature end of script headers: /is/htdocs/32148/www.young-forum.de//cgi-bin/website.pl
Ihr Script sendet also keinen korrekten HTML Header.
Mit freundlichen Gruessen
Eric Drissler
ServiceCenter
Host Europe GmbH
-------------------------------------------------
Aber ich frage mich: Was ist an dieser Datei falsch ???
http://www.young-forum.de/website.html funktioniert nicht
http://www.tripod.com/homepagehaber0/website.html funktioniert
Die gleichen Dateien - nur die Erste Zeile jeweils angepasst.
MFG, Bevan