apply patch for vacation body encoding - see #288

pull/289/head
David Goodwin 6 years ago
parent a0b4e690b2
commit c3d3a9dbc8

@ -18,7 +18,7 @@
use utf8; use utf8;
use DBI; use DBI;
use Encode qw(decode); use Encode qw(decode encode);
use MIME::EncWords qw(:all); use MIME::EncWords qw(:all);
use Email::Valid; use Email::Valid;
use strict; use strict;
@ -30,7 +30,6 @@ use Email::Simple::Creator;
use Try::Tiny; use Try::Tiny;
use Log::Log4perl qw(get_logger :levels); use Log::Log4perl qw(get_logger :levels);
use File::Basename; use File::Basename;
# ========== begin configuration ========== # ========== begin configuration ==========
# IMPORTANT: If you put passwords into this script, then remember # IMPORTANT: If you put passwords into this script, then remember
@ -484,7 +483,7 @@ sub send_vacation_email {
'Content-Type' => "text/plain; charset=utf-8", 'Content-Type' => "text/plain; charset=utf-8",
'X-Loop' => 'Postfix Admin Virtual Vacation', 'X-Loop' => 'Postfix Admin Virtual Vacation',
], ],
body => $body, body => encode('UTF-8', $body),
); );
if($test_mode == 1) { if($test_mode == 1) {

Loading…
Cancel
Save