Probleme mit E-Mail Formular Achtung Quellcode. Bitte helfen. Dringend

Nordel

Hallo!

Ich will für meine HP ein E-Mail Formular einrichten.
Weis jemand eine !einfache! Seite die das erklärt!
Habs schon so oft probiert aber es hat nie geklappt!
Meistens findet er die URL nicht wenn ich auf abschicken klicke.

Hier mal der Quellcode zur HTMl Seite:
-------------------------------------------------------------------

Anfrageformular

http://www.flauschiflair.de/html/cgi-bin/feedback/feedback1.pl" method="POST">

Lasst
uns eine Nachricht zukommen!

An wen senden?
Betreff?
Ihr Name
Ihr Vorname
E-Mail Adresse

Ihr Text

-------------------------------------------------------------

Hier die Datei die im CGI-Verzeichnis liegt:
/html/cgi-bin/feedback/feedback1.pl

---------------------------------------------
#!/usr/bin/perl

# Der Pfad zu Ihrem Mailprogramm
$mailprog = '/usr/sbin/sendmail';

# Der Pfad zu Ihren Date-Kommando
$date = '/usr/bin/date';

# An welche URL soll der User geleitet werden, wenn er seine Mail
# geschrieben hat?
$returnurl = "http://www.Flauschiflair.de/Links.html";

# Zeitspanne in Sek nach der weitergeleitet wird zu obiger URL
$weiterleitungszeit = 5;

# Der Pfad, nicht eine URL, zu dem Verzeichnis mit den Infotexten, keinen / am Ende
$datenpfad = "/home/10/hwinspid/cgi-bin/feedback";

# E-Mail des Empfängers UNBEDINGT den \ vor dem @ notieren
@email_liste = [email]("PaulWei\@web.de.de","Flauschiflair\@web.de");[/email]

############################################################

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
###############################################################
# Hier JEDES Formularelement eintragen was in dem Formular
# vorkommt von welchem der User absendet
# Die Reihenfolge spielt hier keine Rolle

$empfaenger = $FORM{'empfaenger'};
$subject = $FORM{'subject'};
$name = $FORM{'name'};
$vorname = $FORM{'vorname'};
$mailadresse = $FORM{'mailadresse'};
$anfragetext = $FORM{'anfragetext'};

###############################################################
# Liste der Pflichtfelder die der Kunde ausfuellen muss.
# Kann beliebig angepasst werden

# Fehlerbehandlung Anfang
$fehlermeldung = "" ;
$fehler_gefunden = "" ;

$errormeldung = "

Das Feld Name wurde nicht ausgefüllt.\n" ;

if ($name eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "

Das Feld Vorname wurde nicht ausgefüllt.\n" ;

if ($vorname eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "

Bitte geben Sie eine gültige E-Mail Adresse ein.\n" ;

if ($mailadresse !~ [email]/.+\@.+\..+/)[/email] {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "

Das Feld E-Mail wurde nicht ausgefüllt.\n" ;

if ($mailadresse eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

if ($fehler_gefunden) {
&fehlerausgabe; }

# Fehlerbehandlung Ende
###############################################################

&datumsausgabe;
&mailsenden;
&bestaetigung;

sub mailsenden {
open (MAIL, "|$mailprog -t") || die $!;
print MAIL "To: $email_liste[$empfaenger]\n";
print MAIL "From: $name\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Eine Anfrage von ihrem Feedbackformular\n";
print MAIL "Name: $name \n";
print MAIL "Vorname: $vorname\n";
print MAIL "E-Mail: $mailadresse\n";
print MAIL "==================================\n";
print MAIL "Anfragetext:\n";
print MAIL "$anfragetext\n";
print MAIL "==================================\n\n";
print MAIL "Gesendet um: $datum\n";

close(MAIL);

open (MAIL, "|$mailprog -t") || die $!;
print MAIL "To: $mailadresse\n";
print MAIL "From: $email_liste[$empfaenger]\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Hallo $vorname $name\n\n";
print MAIL "Wir haben Ihre Nachricht erhalten und\n";
print MAIL "werden diese so schnell wie möglich bearbeiten.\n";
print MAIL "==================================\n";
if ($autoresponder ne '0') {
print MAIL "Hier der zusätzlich angeforderte Text zur Mail:\n\n";
print MAIL "@file\n\n";
print MAIL "==================================\n\n";
}
print MAIL "Viele Grüße\n";
print MAIL "Flauschiflair\n";
print MAIL "Gesendet um: $datum\n";

close(MAIL);

}
###################################################
sub datumsausgabe {

# Datumsroutine

@tage = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
@monate = ('Januar','Februar','Maerz','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
($sec, $min, $stunde, $mtag, $mon, $jahr, $tag, $nr_tag, $isdst) = localtime(time);
if($stunde < 10) { $stunde = "0$stunde"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$jahr = 1900 + $jahr;
$datum = "$stunde:$min Uhr $tage[$tag], $mtag. $monate[$mon] , $jahr";
}
###################################################
sub bestaetigung {
print "Content-type: text/html\n\n";
print <<"END"

Danke!

Vielen Dank!

Vielen Dank Herr/Frau $vorname $name, für Ihre Anfrage.

Sie werden in $weiterleitungszeit Sekunden weitergeleitet,

falls nicht, klicken Sie bitte untenstehen Link.

Zurück zur Hauptseite

END
}

###################################################
sub fehlerausgabe {
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "Fehler aufgetreten\n";
print "\n";
print "\n";
print "

\n";
print "\n";
print "

\n";
print "\n";
print "\n";
print "

\n";
print "Beim ausfüllen haben Sie folgendes vergessen:

$fehlermeldung

\n";
print "Bitte gehen Sie zurück und versuchen es erneut!

\n";
print "

\n";
exit;
}
###################################################

Wenn ich auf Absenden klicke kommt folgendes:
Not Found
The requested URL /http://www.flauschiflair.de/cgi-bin/feedback/feedback1.pl was not found on this server.

Die CMD Rechte sind richtig eingestellt!
An was kanns liegen!

Wäre super nett wenn ihr mir helfen könntet!!!!!!!!

SabineP

Hallo Nordel, hab´ jetzt nicht das ganze Script getestet.

ändere erstmal die URL in der action Deines Formulars:

vorher:
http://www.flauschiflair.de/html/cgi-bin/feedback/feedback1.pl" method="POST">

nachher:
http://www.flauschiflair.de/cgi-bin/feedback/feedback1.pl" method="POST">

Falls dann immer noch Fehlermeldungen erscheinen, dann melde Dich nochmal.

Gruß Sabine

Anonym

Hmm die Einstellung hatte ich davor und es kam die gleiche Meldung!

SabineP

Hier ist die URL:

http://www.flauschiflair.de/cgi-bin/feedback/feedback1.pl

Es kommt keine Fehlermeldung "not found"

Vielleicht hattest Du http:// vergessen.

Gruß Sabine

Anonym

Super jetzt gehts!
Hab das http vergessen
immer das offensichtlichste.....