Changeset 3627

Timestamp:

2002-12-09T14:52:41+13:00 (21 years ago)

Author:

jrm21

Message:

added less-obfuscated quote-printable parsing in qp_decode()

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -669 +669 @@
         # the RFC also mentions "parallel".
     }
-    } # end of ($mimetype !~ multipart)
+    } # end of ($mimetype =~ multipart)
     elsif ($mimetype =~ m@message/rfc822@) {
     my $msg_header = $text;
@@ -769 +769 @@
     my $text=shift;
 
-    my @lines=split('\n', $text);
-
     # if a line ends with "=\s*", it is a soft line break, otherwise
     # keep in any newline characters.
-    foreach my $line (@lines) {
-    if ($line !~ s/=\s*$//) {$line.="\n";}
-
-    if ($line =~ /=[0-9A-Fa-f]{2}/) { # it contains an escaped char
-        my @hexcode_segments=split('=',$line);
-        shift @hexcode_segments;
-        my @hexcodes;
-        foreach my $hexcode (@hexcode_segments) {
-        $hexcode =~ s/^(..).*$/$1/;  # only need first 2 chars
-        chomp($hexcode); # just in case...
-        my $char=chr (hex "0x$hexcode");
-        $line =~ s/=$hexcode/$char/g;
-        }
-    }
-    }
-    $text= join('', @lines);
+
+    $text =~ s/=\s*\r?\n//mg;
+    $text =~ s/=([0-9A-Fa-f]{2})/chr (hex "0x$1")/eg;
     return $text;
 }