PMG::Utils::decode_rfc1522 - new helper

diff --git a/PMG/Utils.pm b/PMG/Utils.pm
index 1aedd9b8d8ac48844fb48c62867a59a5ffa416a7..4b5b80db53d80a60f69c45769832ba77ba0fe2bc 100644 (file)
--- a/PMG/Utils.pm
+++ b/PMG/Utils.pm
@@ -856,6 +856,31 @@ sub create_rrd_data {
     return $res;
 }
 
+sub decode_rfc1522 {
+    my ($enc) = @_;
+
+    my $res = '';
+
+    return '' if !$enc;
+
+    eval {
+       foreach my $r (MIME::Words::decode_mimewords($enc)) {
+           my ($d, $cs) = @$r;
+           if ($d) {
+               if ($cs) {
+                   $res .= decode($cs, $d);
+               } else {
+                   $res .= $d;
+               }
+           }
+       }
+    };
+
+    $res = $enc if $@;
+
+    return $res;
+}
+
 sub rfc1522_to_html {
     my ($enc) = @_;