Correct printout of email addresses for renewal.

This commit is contained in:
Bradley M. Kuhn 2016-01-03 12:26:49 -08:00
parent d151b992c4
commit 6d7bae7e02

View file

@ -53,7 +53,8 @@ foreach my $supporterId (@supporterIds) {
open(SENDMAIL, "|/usr/lib/sendmail -f \"$FROM_ADDRESS\" -oi -oem -- $emailTo $FROM_ADDRESS") or
die "unable to run sendmail: $!";
print "To: ", join(', ', keys %emails), "\n";
print STDERR "Sending to $supporterId at $emailTo\n";
print SENDMAIL "To: ", join(', ', keys %emails), "\n";
print SENDMAIL @message;
close SENDMAIL;