Connect failed: Connection timed out

[GastForen Archiv Perl und CGI Formular: Pflichtfelderprüfung und Dankeseite - Denkfehler?

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Archiv - Archivierte Foren
Themen
Beiträge
Moderatoren
Letzter Beitrag

Formular: Pflichtfelderprüfung und Dankeseite - Denkfehler?

Yvonne082
Beiträge gesamt: 25

17. Mär 2013, 19:02
Beitrag # 1 von 1
Bewertung:
(34963 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo zusammen,

ich habe mich an meinem ersten Perl Formular versucht und so richtig klappt mein Vorhaben nicht :-(

Die Idee: einer Downloadseite soll ein Formular vorgeschaltet werden, dass erst nachdem es ausgefüllt wurde auf die Downloadseite weiterleitet.

Also habe ich den Self HTML Perl Form-Mailer > http://aktuell.de.selfhtml.org/artikel/cgiperl/form-mail/ mit dem JavaScript zum Überprüfen von Formulardaten kombiniert > http://de.selfhtml.org/javascript/beispiele/formulareingaben.htm

Als "Dankeseite" habe ich die Downloadseite angegeben.

Wenn ich aber nun im Formular nichts eingebe und auf "weiter" klicke kommt zwar die gewünschte Meldung "Bitte Ihren Namen eingeben!" wenn ich dann aber OK klicke springt er nicht zurück sondern direkt auf die Downloadseite.

Kann mir vielleicht jemand einen Rat geben was ich falsch gemacht habe?
Hier die Codes:


<script type="text/javascript">

function chkFormular () {
if (document.Formular.name.value == "") {
alert("Bitte Ihren Namen eingeben!");
document.Formular.User.focus();
return false;
}

if (document.Formular.email.value == "") {
alert("Bitte Ihre E-Mail-Adresse eingeben!");
document.Formular.Mail.focus();
return false;
}
if (document.Formular.email.value.indexOf("@") == -1) {
alert("Keine E-Mail-Adresse!");
document.Formular.email.focus();
return false;
}
if (document.Formular.telefon.value == "") {
alert("Bitte geben Sie Ihre Telefonnummer ein.");
document.Formular.telefon.focus();
return false;
}
var chkZ = 1;
for (i = 0; i < document.Formular.telefon.value.length; ++i)
if (document.Formular.telefon.value.charAt(i) < "0" ||
document.Formular.telefon.value.charAt(i) > "9")
chkZ = -1;
if (chkZ == -1) {
alert("Bitte geben Sie eine gültige Telefonnummer ein.");
document.Formular.telefon.focus();
return false;
}
}

</script>





<form name="Formular" action="/cgi-bin/selfmailer.pl" method="post" onsubmit="return chkFormular()">
<input type="hidden" name="return" value="http://www.dankeseite.de">
<input type="hidden" name="delimiter" value=": ">
<input type="hidden" name="subject" value="Download Formular">


Firma*:<br />
<input type="text" name="firma" size="35"><br /><br />

Vor- und Nachname:<br />
<input type="text" name="name" size="35" required><br /><br />

E-Mail:<br />
<input type="text" name="email" size="35" required><br /><br />

Telefon:<br />
<input type="text" name="telefon" size="35" required><br /><br /><br />

<input type="submit" value="weiter">
<input type="reset" value="Eingaben l&ouml;schen">

</form>







#!/usr/bin/perl

# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
# --> Ziel-Mailadresse, an die gesendet werden soll:
$mailto = 'meine mailadresse';

# -------> Modul für CGI-Scripts einbinden:
use CGI;

# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;

# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject

# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
# VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\n";
}
}
}

# -------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";



Ich wäre wirklich sehr dankbar wenn jemand eine Idee hat?! So langsam verzweifle ich :(

Viele Grüße
Yvonne
X