nicht angemeldet
Hallo Zusammen ,
ich bin schon seit paar Stunden am Skript.
Im Formular gibt es ein Button "Abschicken" und (oder) "Vorschau"
Jedoch erkennt dieses Skript dies nicht. Der fehler müßte an Zeile 40 liegen,
aber WO ist da der Fehler?? Ich bin am verzweifeln.....
---
&referer_test;
if ($ENV{'CONTENT_LENGTH'} == 0 ) { &fehler }
Ende des Tests
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@feldpaare = split(/&/, $buffer);
foreach $paar (@feldpaare) {
($feldname, $wert) = split(/=/, $paar);
$wert =~ tr/+/ /;
$wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FM{$feldname} = $wert;
}
absender
($absenderUserFound,$absenderEmail)=&absenderVerifyUser($FM{'absendername'},$FM{'pwd'});
if ($absenderUserFound) {
&ausgabe2;
} else {
&falsch2;
}
empfänger
sub ausgabe2 {
($UserFound,$Email)=&VerifyUser($FM{'username'});
if ($UserFound) {
&ausgabe;
} else {
&falsch;
}
checken ob Vorschau oder gleich senden
sub ausgabe {
if ($FM{'Abschicken'} ne "") {
&senden;
}
elsif ($FM{'Vorschau'} ne "") {
&vorschau;
}
}
Hierbei kommt immer folgende Fehlermeldung:
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:
Ich habe es auch mal so versucht:
&referer_test;
if ($ENV{'CONTENT_LENGTH'} == 0 ) { &fehler }
Ende des Tests
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@feldpaare = split(/&/, $buffer);
foreach $paar (@feldpaare) {
($feldname, $wert) = split(/=/, $paar);
$wert =~ tr/+/ /;
$wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FM{$feldname} = $wert;
}
absender
($absenderUserFound,$absenderEmail)=&absenderVerifyUser($FM{'absendername'},$FM{'pwd'});
if ($absenderUserFound) {
&ausgabe2;
} else {
&falsch2;
}
empfänger
sub ausgabe2 {
($UserFound,$Email)=&VerifyUser($FM{'username'});
if ($UserFound) {
&ausgabe;
} else {
&falsch;
}
checken ob Vorschau oder gleich senden
sub ausgabe {
if ($FM{'Abschicken'} ne "") {
&senden;
}
elsif ($FM{'Vorschau'} ne "") {
&vorschau;
}
}
eMail versenden
Auch das haut nicht hin.
:-((((((((((
Schöne Grüße, Micha