Hallo!
Ich habe ein Formular erstellt, bei dem man den Empfänger aus einem Pulldown-Menü ('Empfaenger') auswählen können soll.
Das Pulldown-Menü enthält 4 mögliche Empfänger:
Service=1, Wartung=2, Zentrale=3 und Vertrieb=4.
Da die Mailadressen geschützt bleiben sollen, will ich sie nicht in die HTML-Seite einbinden, sondern in das Perlscript. Genau hier hänge ich aber gerade.
Hier das Script, auf das ich aufbaue:
#!/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
$anwen = $query->param('Empfaenger'); # ---> Empfängeradresse
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject
$absender = $query->param('Absender'); # ---> Absendername
$Empfaenger1 = "irgendeine\@adresse.de";
$Empfaenger2 = "irgendeine.andere\@adresse.de";
$Empfaenger3 = "noch.eine\@adresse.de";
$Empfaenger4 = "eine.vierte\@adresse.de";
# -------> 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\n";
}
}
}
# -------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $absender\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n";
Mir fehlt jetzt praktisch die Anweisung, dass wenn 'anwen'='1' nimm $mailto='Adresse1@blabla.de\' usw.
Bin mit Perl (immer noch nicht) so fitt und wäre sehr dankbar, wenn mir jemand bei den 4 Code-Zeilen schnell helfen könnte!
if $anwen = '1' then $mailto = "$empfaenger1" usw. (ich hoffe, ihr versteht, was ich meine)
Danke für eure Hilfe!