Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

send-mass-email: improve email presentation

Browse source
This commit is contained in:
Bradley M. Kuhn 2017-08-01 09:21:34 -07:00
parent 77ac4ba16f
commit 434f2de875
1 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
scripts/send-mass-email.plx
View file

@ -38,19 +38,33 @@ foreach my $id (@supporterIds) {
# next if $isLapsed;
next unless $sp->emailOk($id);
my $emailTo = $sp->getPreferredEmailAddress($id);
if (not defined $emailTo) {
my(@addr) = $sp->getEmailAddresses($id);
$emailTo = $addr[0];
my @emails;
my $preferredEmail = $sp->getPreferredEmailAddress($id);
if (defined $preferredEmail) {
push(@emails, $preferredEmail);
} else {
(@emails) = $sp->getEmailAddresses($id);
}
my $fullEmailLine = "";
my $emailTo = join(' ', @emails);
my $displayName = $sp->getDisplayName($supporterId);
foreach my $email (@emails) {
$fullEmailLine .= ", " if ($fullEmailLine ne "");
my $line = "";
if (defined $displayName) {
$line .= "\"$displayName\" ";
}
$line .= "<$email>";
$fullEmailLine .= Encode::encode("MIME-Header", $line);
}
open(SENDMAIL, "|-", "/usr/lib/sendmail -f \"$FROM_ADDDRESS\" -oi -oem -- \'$emailTo\'");
print SENDMAIL "To: $emailTo\n";
print SENDMAIL "To: $fullEmailLine\n";
print SENDMAIL @emailLines;
close SENDMAIL;
print STDERR "Emailed $emailTo with $id\n" if ($VERBOSE);
print STDERR "Emailed $emailTo with $id who expires on $expiresOn\n" if ($VERBOSE);
}
###############################################################################
#