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:58 -0800 |
commit | c74a93a8460dc0e867e93a5ded0c63a1585b86c9 (patch) | |
tree | f8b4ad3cb3e8149086f14c73b9b154fc898565c0 /FS/FS/Misc.pm | |
parent | ed39371920249d4ce54bdaaf1f67b60fab2df834 (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, |