nicht angemeldet
Hallo Leite,
grundsätzlich erstmal vielen dank für Eure hilfe. das war klasse und ich habe was gelernt - spidse :-))
jetzt rücke ich wieder mit einer frage an, wenn sie auch etwas ubedeutend sein mag. ich habe mir ein merksames script, welches nicht unbedingt benutzt werden soll. nur ich beisse mir aus "wissensgründen" die zähne an dem fehler aus, der da drinne steckt. es funzt nicht
wer zeit und lust hat - BITTE HILFE!!!!!
danke im voraus
Gruss
Kai
SCRIPT:
!/usr/bin/perl/
print "Content-Type: text/html";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE> Ihre Nachricht An Uns</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<H1>Feedback</H1>\n;
print "<P>Sie haben soeben folgende Angaben in das Formular eingetragen:</P>\n"
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
$eingabe = $ENV{'QUERY_STRING'};
}
else
{
binmode STDIN;
read (STDIN, $eingabe, $ENV{'CONTENT_LENGTH'});
}
@Formularfelder = split(/&/,$eingabe);
foreach $Paar (@Formularfelder)
{
($formularname, $wert) = split(/=/,$Paar);
$wert =~ tr/+/ /;
$wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg;
print "<P>$formularname = $wert</P>\n";
}
print "<H1>Ausgabe von Variablen</H1>\n";
print "<P>Server-Software: $ENV{'SERVER_TYPE'}</P>\n";
print "<P>Server-Name: $ENV{'SERVER_NAME'}</P>\n";
print "</BODY>\n";
print "</HTML>\n";