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

Correct display name details.

Browse source
This commit is contained in:
Bradley M. Kuhn 2019-12-24 09:22:48 -08:00
parent ab9e3fbde0
commit 60fa54814c
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/send-supporter-emails-by-category.plx
View file

@ -163,10 +163,14 @@ foreach my $id (@supporterIds) {
open(my $sendmailFH, "|-", '/usr/lib/sendmail', '-f', $FROM_ADDDRESS, '-oi', '-oem', '--',
@emails);
binmode $sendmailFH, ":utf8";
print $sendmailFH "To: $fullEmailLine\n";
foreach my $line (@{$groupLines{$group}}) {
s/FIXME_DISPLAYNAME/$displayName/g;
print $sendmailFH $line;
die "no displayname for this item" if not defined $displayName or $displayName =~ /^\s*$/;
my $thisLine = $line; # Note: This is needed, apparently $line is by reference?
$thisLine =~ s/FIXME_DISPLAYNAME/$displayName/g;
print $sendmailFH $thisLine;
}
close $sendmailFH;
usleep(60000);