CGI Email Formular überprüfung

[mercutio813]

Ich brauch schon wieder mal eure Hilfe!

Ich hab ein Formular erstellt leider kann jeder bestellen ohne etwas einzutragen. Kann man bei meinem Formular nicht etwas hinzufügen damit er die Felder überprüft und wenn es nicht richtig ausgefüllt ist, dieses auch den user mitteilt.

Die .pl Datei hab ich mal angehängt. Leider kenn i mi ned so gut mit dem Zeug aus, muss ich dann auch etwas im HTML code ändern?

Hier mal der Text von der Datei:

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

# -------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";

# -------> 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
$mailto = $query->param('mailto'); # ---> Empfängeradresse
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject


# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
$mailto = "office\@kings-d.com";
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";
-------------------------------------------------------------------------------------------------------------------------------

danke
lg mercutio

 

[Trice]

Weiß leider nicht viel über Perl
aber sieh dich mal hier um.
http://de.selfhtml.org/perl/funktionen/zeichenketten.htm

Du musst eigentlich nur mit 'length' prüfen
ob die zeichenketten lang genug sind.

Am besten wärs du prüfst die strings
mit regulären Ausdrücken, ist
aber n bissel schwieriger.