Fix sending emails with UTF-8 characters in them with Perl >= 5.18.
authorAndrew Ruthven <andrew@etc.gen.nz>
Tue, 2 Dec 2014 07:30:26 +0000 (20:30 +1300)
committerAndrew Ruthven <andrew@etc.gen.nz>
Thu, 4 Dec 2014 21:04:33 +0000 (10:04 +1300)
ChangeLog
bin/mythtv-status
debian/changelog

index 27d8747..b902fce 100644 (file)
--- 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.
+
 2014-09-11     Andrew Ruthven
        Spotted that if the next recording is in 30 hours, then it is
        displayed as "0 Days, 3". Correct it so it'll be displayed
index 5802413..4ff6c9b 100755 (executable)
@@ -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');
index acef673..d3b7585 100644 (file)
@@ -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).