Revert "Fix encoding" master
authorJoey Schulze <joey@infodrom.org>
Wed, 12 Oct 2022 19:38:43 +0000 (21:38 +0200)
committerJoey Schulze <joey@infodrom.org>
Wed, 12 Oct 2022 19:38:43 +0000 (21:38 +0200)
This reverts commit a30a0eafc444ebe57bb678c269c16b10cb9e746c.

masks/dates/send-reminder

index 432e73e..7eb0308 100755 (executable)
@@ -63,13 +63,13 @@ sub send_reminder
     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,