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

Timestamp:

2001-07-11T15:00:50+12:00 (23 years ago)

Author:

jrm21

Message:

typo in regexp broke import... encoding type should have had [^{\s], not
[}s] (only broke base64 though, quoted-printable and 7bit/8bit were OK...)

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -80 +80 @@
     my $self = new BasPlug ("EMAILPlug", @_);
     # make sure we don't run textcat (defaults to "auto");
-    $self->{'input_encoding'}="ascii";
+    $self->{'input_encoding'}="ascii"; # this might not be good enough...
     return bless $self, $class;
 }
@@ -474 +474 @@
     my $part_header=$text;
     $part_header =~ s/\r?\n\r?\n(.*)$//s;
-    $text=$1;
+    $text=$1; if (!defined($text)) {$text="";}
     $part_header =~ s/\r?\n[\t ]+/ /gs; #unfold
     $part_header =~ /content\-type:\s*([\w\/]+)/is;
-    my $type=$1;
+    my $type=$1; if (!defined($type)) {$type="";}
     my $encoding="";
-    if ($part_header =~ /^content\-transfer\-encoding:\s*([^s]+)/mis) {
+    if ($part_header =~ /^content\-transfer\-encoding:\s*([^\s]+)/mis) {
     $encoding=$1; $encoding=~tr/A-Z/a-z/;
     }
@@ -545 +545 @@
 # see rfc2045 for description, but basically, bits 7 and 8 are set to zero;
 # 4 bytes of encoded text become 3 bytes of binary - remove 2 highest bits
-# from each byte.
+# from each encoded byte.