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