Changeset 2652 for trunk/gsdl/perllib/plugins/EMAILPlug.pm

Timestamp:

2001-07-12T22:40:05+12:00 (23 years ago)

Author:

jrm21

Message:

Needed to replace \s with
s. Also checked for multipart/related.

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -120 +120 @@
     # Parse the document's text and extract metadata
     #
+
+    # Protect backslashes
+    $$textref =~ s@\\@\\\\@g;
 
     # Separate header from body of message
@@ -351 +354 @@
         $text=$part_text;
         }
-    } elsif ($mimetype eq "multipart/mixed" ||
-         $mimetype eq "multipart/digest") {
+    } elsif ($mimetype =~ m@multipart/(mixed|digest|related)@) {
         $text="";
         foreach my $message_part (@message_parts) {