[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