From: mkanat%bugzilla.org <>
Date: Mon, 24 Sep 2007 02:53:58 +0000 (+0000)
Subject: Bug 369835: email_in.pl should convert character encoding to utf8
X-Git-Tag: bugzilla-3.0.3~36
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=48dc1f6e17cfcdc7556f250a1b7a2bc726b8998e;p=thirdparty%2Fbugzilla.git

Bug 369835: email_in.pl should convert character encoding to utf8
Patch By Fedor Ezeev <fe@alterplast.ru> r=mkanat, a=mkanat
---

diff --git a/email_in.pl b/email_in.pl
index be9abadea5..ea5082844d 100644
--- a/email_in.pl
+++ b/email_in.pl
@@ -36,6 +36,7 @@ use Email::MIME;
 use Email::MIME::Attachment::Stripper;
 use Getopt::Long qw(:config bundling);
 use Pod::Usage;
+use Encode qw(encode decode);
 
 use Bugzilla;
 use Bugzilla::Bug qw(ValidateBugID);
@@ -295,9 +296,17 @@ sub get_text_alternative {
     my $body;
     foreach my $part (@parts) {
         my $ct = $part->content_type || 'text/plain';
+        my $charset = 'iso-8859-1';
+        if ($ct =~ /charset=([^;]+)/) {
+            $charset= $1;
+        }
         debug_print("Part Content-Type: $ct", 2);
+        debug_print("Part Character Encoding: $charset", 2);
         if (!$ct || $ct =~ /^text\/plain/i) {
             $body = $part->body;
+            if (Bugzilla->params->{'utf8'}) {
+                $body = encode('UTF-8', decode($charset, $body));
+            }
             last;
         }
     }