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

Timestamp:

2002-05-28T15:32:33+12:00 (21 years ago)

Author:

jrm21

Message:

1) Convert headers to detected charset if possible.

2) Convert header field names to lower case (except first char) - we weren't
matching TO, FROM, SUBJECT, etc.

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -175 +175 @@
     @parts = split(/:/, $line);
     $name = shift @parts;
+# get fieldname in canonical form - first cap, then lower case.
+    $name =~ tr/A-Z/a-z/;
 # uppercase the first character according to the current locale
     $name=~s/(.+)/\u$1/;
@@ -347 +349 @@
     # escape [] so it isn't re-interpreted as metadata
     $Headers =~ s/\[/[/g; $Headers =~ s/\]/]/g;
-
+    $self->convert2unicode($charset, \$Headers);
     $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);