Hi,
$mailto = $query->param('mailto'); # ---> Empfängeradresse
[...]
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
*Nie*, absolut *niemals*, die Mailadresse, an die was versendet werden soll, einfach als Parameter übernehmen bzw. übergeben. Das Skript wird somit zum Sprungbrett für jeden Spammer!
Bei Formmailern immer die Adresse fest im Code angeben:
print MAIL "To: deine@mailadresse.de\n";
Achja:
foreach(@names) {
$name = $_;
kann man auch als
foreach $name (@names){
schreiben.
HTH
ortenau-s-bahner
--
ss:} zu:$ ls:} fo:| de:] va:) ch:? sh:( n4:# rl:? br:> js:| ie:( fl:{ mo:)
ss:} zu:$ ls:} fo:| de:] va:) ch:? sh:( n4:# rl:? br:> js:| ie:( fl:{ mo:)