[interchange] Support recipient addresses in CC and BCC when using Net::SMTP
Jon Jensen
interchange-cvs at icdevgroup.org
Tue May 15 04:22:48 UTC 2018
commit 42452c0c6400fc6e08418c7c59011375400d48a1
Author: Andrew Baerg <andrew at pullingshots.ca>
Date: Wed May 9 13:21:04 2018 -0600
Support recipient addresses in CC and BCC when using Net::SMTP
lib/Vend/Util.pm | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Util.pm b/lib/Vend/Util.pm
index d3ea439..96b3818 100644
--- a/lib/Vend/Util.pm
+++ b/lib/Vend/Util.pm
@@ -2262,6 +2262,12 @@ sub send_mail {
my @to;
my @addr = split /\s*,\s*/, $to;
+ for(@extra_headers) {
+ s/\s*$/\n/;
+ next unless /^(Cc|Bcc):\s*(\S.+)$/mi;
+#::logDebug("smtp adding receipients for $1=$2");
+ push @addr, split(/\s*,\s*/, $2);
+ }
for (@addr) {
if(/\s/) {
## Uh-oh. Try to handle
More information about the interchange-cvs
mailing list