Hallo,
ich habe leider absolut keine Ahnung von Perl, muss aber ein vorhandenes Script, das zum Versenden von Email dient etwas erweitern. Hier mal der Code Teil:
Alles anzeigen
Bevor die Mail versendet wird, soll zusätzlich nach bestimmten Adressen gefilter werden. Der Filter sieht so aus:
*@internal.meindomain.com
also alle Mails, deren Empfänger, nach dem @ ein "internal.meindomain.com" haben sollen nicht versendet werden.
Es kann sein, das hier noch mehr dazu kommt, also müssten die Filter wahrscheinlich in einem Array gespeichert werden (zumindest würd ich's in PHP so machen ;-)). Also so in der Richtung:
$array = array('*@internal.meindomain.com', '*@internal2.meindomain2.de')
Wäre schön, wenn mir jemand helfen könnte.
70abc
ich habe leider absolut keine Ahnung von Perl, muss aber ein vorhandenes Script, das zum Versenden von Email dient etwas erweitern. Hier mal der Code Teil:
Quellcode
- if($data->{emailadresse})
- {
- $smtp->mail($senderAddress);
- $smtp->to($data->{emailadresse});
- $smtp->data();
- $smtp->datasend($msg->stringify);
- $smtp->dataend();
- printTimestamp();
- print "Mail ".$data->{betreff}." versendet an ".$data->{emailadresse}."\n";
- }
- else
- {
- print "Mail ".$data->{betreff}." nicht versendet, eMail Adresse leer\n";
- }
Bevor die Mail versendet wird, soll zusätzlich nach bestimmten Adressen gefilter werden. Der Filter sieht so aus:
*@internal.meindomain.com
also alle Mails, deren Empfänger, nach dem @ ein "internal.meindomain.com" haben sollen nicht versendet werden.
Es kann sein, das hier noch mehr dazu kommt, also müssten die Filter wahrscheinlich in einem Array gespeichert werden (zumindest würd ich's in PHP so machen ;-)). Also so in der Richtung:
$array = array('*@internal.meindomain.com', '*@internal2.meindomain2.de')
Wäre schön, wenn mir jemand helfen könnte.
70abc
We raise hopes, here ... until they're old enough to fend for themselves.
- Mike Callahan
- Mike Callahan