Changeset 2781

Timestamp:

2001-10-04T12:02:28+12:00 (23 years ago)

Author:

jrm21

Message:

oops - left off a '$' at end of a pattern match.

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -472 +472 @@
             $part_content_type="message/rfc822";
         }
-        if ($part_header =~ m@^content\-type:\s*([\w+/\-]+)\s*\;?\s*(.*?)\s*@mi) {
+        if ($part_header =~ m@^content\-type:\s*([\w+/\-]+)\s*\;?\s*(.*?)\s*$@mi) {
             $part_content_type=$1; $part_content_type =~ tr/A-Z/a-z/;
             $part_content_info=$2;
@@ -547 +547 @@
         } elsif ($part_content_type =~ /multipart/) { 
             # recurse again
+
             $tmptext=text_from_mime_message($part_content_type,
                             $part_content_info,