Opened by Gast at 2004-03-03 15:23
Hallo,
sorry, dass ich euch wieder nerven muss, aber es funktioniert leider immer noch nicht.
Bekomme jetzt eine 500 Error Message.
Benutze folgenden Code:
[CODE]
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my ($Feld, $Name, $Wert);
my %Formular;
my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
my %Formular=$cgi->Vars();
#read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
#my @Formularfelder = split(/&/, $Daten);
#my ($Feld, $Name, $Wert);
#my %Formular;
#foreach $Feld (@Formularfelder) {
# (my $Name, my $Wert) = split(/=/, $Feld);
# $Wert =~ tr/+/ /;
# $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $Wert =~ s/</</g;
# $Wert =~ s/>/>/g;
# $Formular{$Name} = $Wert;
# }
#print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung <i>comments.pl</i></h1>\n";
print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p><b>Land:</b> $Formular{LAND}</p>\n";
print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n";
print "</body></html>\n";
Nochmals einen großen Dank an allen.
--
Gruß
Piero
sorry, dass ich euch wieder nerven muss, aber es funktioniert leider immer noch nicht.
Bekomme jetzt eine 500 Error Message.
Benutze folgenden Code:
[CODE]
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my ($Feld, $Name, $Wert);
my %Formular;
my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
my %Formular=$cgi->Vars();
#read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
#my @Formularfelder = split(/&/, $Daten);
#my ($Feld, $Name, $Wert);
#my %Formular;
#foreach $Feld (@Formularfelder) {
# (my $Name, my $Wert) = split(/=/, $Feld);
# $Wert =~ tr/+/ /;
# $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $Wert =~ s/</</g;
# $Wert =~ s/>/>/g;
# $Formular{$Name} = $Wert;
# }
#print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung <i>comments.pl</i></h1>\n";
print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p><b>Land:</b> $Formular{LAND}</p>\n";
print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n";
print "</body></html>\n";
Nochmals einen großen Dank an allen.
--
Gruß
Piero