diff options
author | Mark Wells <mark@freeside.biz> | 2016-12-14 13:00:24 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-12-14 13:41:39 -0800 |
commit | 5c59bb1d95ae3f0def9981a087f09ab0a687015b (patch) | |
tree | 2470c7489dbd7dfc7673d8a06a709bd4b3cff8de /FS/FS/Misc.pm | |
parent | 2e6c36147f13355a4f17afc1ff2a30642acf089e (diff) |
fix parsing of multiple To: addresses, #73241
Diffstat (limited to 'FS/FS/Misc.pm')
-rw-r--r-- | FS/FS/Misc.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index 9a43180..a2d1b3e 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -256,10 +256,17 @@ sub send_email { } push @to, $options{bcc} if defined($options{bcc}); + # fully unpack all addresses found in @to (including Bcc) to make the + # envelope list + my @env_to; + foreach my $dest (@to) { + push @env_to, map { $_->address } Email::Address->parse($dest); + } + local $@; # just in case eval { sendmail($message, { transport => $transport, from => $from, - to => \@to }) }; + to => \@env_to }) }; my $error = ''; if(ref($@) and $@->isa('Email::Sender::Failure')) { @@ -274,7 +281,7 @@ sub send_email { if ( $conf->exists('log_sent_mail') ) { my $cust_msg = FS::cust_msg->new({ 'env_from' => $options{'from'}, - 'env_to' => join(', ', @to), + 'env_to' => join(', ', @env_to), 'header' => $message->header_as_string, 'body' => $message->body_as_string, '_date' => $time, |