summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org>2014-01-06 22:40:20 +0100
committerGravatar Steven Schubiger <stsc@refcnt.org>2014-01-06 22:40:20 +0100
commit111b21b123bff372f7beb84e3152f22ac362e504 (patch)
treec45c8c3470964fcd052e9baf359552a22af9be66
parent34df6cdf7c1f108dca22738e570dda5b5452ca41 (diff)
downloadlugs-111b21b123bff372f7beb84e3152f22ac362e504.tar.gz
lugs-111b21b123bff372f7beb84e3152f22ac362e504.tar.bz2
lreminder: fix encoding of subject line
-rwxr-xr-xlreminder/reminder.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/lreminder/reminder.pl b/lreminder/reminder.pl
index aa0bc9e..2568006 100755
--- a/lreminder/reminder.pl
+++ b/lreminder/reminder.pl
@@ -15,7 +15,7 @@
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
#
# Author: Steven Schubiger <stsc@refcnt.org>
-# Last modified: Thu Jan 31 11:12:22 CET 2013
+# Last modified: Wed Dec 4 21:18:20 CET 2013
use strict;
use warnings;
@@ -24,6 +24,7 @@ use constant true => 1;
use constant false => 0;
use DBI ();
+use Encode qw(encode);
use File::Basename ();
use File::Spec ();
use FindBin qw($Bin);
@@ -34,7 +35,7 @@ use Mail::Sendmail qw(sendmail);
use Text::Wrap::Smart::XS qw(fuzzy_wrap);
use WWW::Mechanize ();
-my $VERSION = '0.41';
+my $VERSION = '0.42';
#-----------------------
# Start of configuration
@@ -228,7 +229,7 @@ MSG
sendmail(
From => $Config->{mail_from},
To => $mail_subscriber,
- Subject => "LUGS Reminder - $title",
+ Subject => encode('MIME-Q', "LUGS Reminder - $title"),
Message => $message,
) or die $Mail::Sendmail::error;
}