From b9d5e6a114b2818922f7df6316ca40f9314de91d Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 2 Dec 2014 20:30:26 +1300
Subject: [PATCH] Fix sending emails with UTF-8 characters in them with Perl >=
5.18.
---
ChangeLog | 4 ++++
bin/mythtv-status | 6 +++---
debian/changelog | 6 ++++++
3 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 3695b12..7ab3520 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-02 Andrew Ruthven
+ Add in more UTF-8 encodings as required for Perl v5.18, thanks to
+ Jan Schneider for reporting the UTF-8 issue.
+
2013-10-28 Andrew Ruthven
Guard against zero total disk space, this affected Werner Mahr.
diff --git a/bin/mythtv-status b/bin/mythtv-status
index 0313574..04525c7 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -85,7 +85,7 @@ my @size_thresholds = (
my $return_code_only = 0;
-my $VERSION = '0.10.4';
+my $VERSION = '0.10.5';
# Some display blocks are disabled by default:
$c->{'display'}{'Shows due to Auto Expire'} = 0;
@@ -681,10 +681,10 @@ if ($return_code_only) {
my $mail = MIME::Entity->build(
To => $c->{'email'},
- Subject => $title . (defined $suffix ? " - $suffix" : ''),
+ Subject => encode('UTF-8', $title . (defined $suffix ? " - $suffix" : '')),
Charset => $charset,
Encoding=> "quoted-printable",
- Data => $output
+ Data => encode('UTF-8', $output),
);
$mail->send('sendmail');
diff --git a/debian/changelog b/debian/changelog
index acef673..d3b7585 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+mythtv-status (0.10.5-1) unstable; urgency=low
+
+ * Fix sending emails with UTF-8 characters in them with Perl >= 5.18.
+
+ -- Andrew Ruthven <andrew@etc.gen.nz> Tue, 02 Dec 2014 20:29:13 +1300
+
mythtv-status (0.10.4-1) unstable; urgency=low
* New upstream release (Closes: #724166, #709377, #709449).
--
2.30.2