foreach my $row (values %$dates) {
my ($year,$month,$day) = split(/-/, $row->{date});
my $dow = $wdays[Day_of_Week($year,$month,$day)];
- $body .= sprintf("\n%-10s %s %s\n", $dow, $row->{date}, encode('UTF-8', $row->{name}));
+ $body .= sprintf("\n%-10s %s %s\n", $dow, $row->{date}, $row->{name});
push @datenames, $row->{name};
}
my %mail = ('To' => $cfg->{DATES_REMINDER},
'From' => sprintf('%s <%s>', $cfg->{TITLE}, $cfg->{MAIL_FROM}),
- 'Subject' => encode("MIME-Header", join(', ', @datenames)),
+ 'Subject' => encode("MIME-Header", decode('UTF-8', join(', ', @datenames))),
'Content-type' => 'text/plain; charset=UTF-8',
'Content-Transfer-Encoding' => '8bit',
'Message' => $body,