Changeset 3134


Ignore:
Timestamp:
2002-05-28T15:32:33+12:00 (20 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/EMAILPlug.pm

    r3132 r3134  
    175175    @parts = split(/:/, $line);
    176176    $name = shift @parts;
     177# get fieldname in canonical form - first cap, then lower case.
     178    $name =~ tr/A-Z/a-z/;
    177179# uppercase the first character according to the current locale
    178180    $name=~s/(.+)/\u$1/;
     
    347349    # escape [] so it isn't re-interpreted as metadata
    348350    $Headers =~ s/\[/[/g; $Headers =~ s/\]/]/g;
    349 
     351    $self->convert2unicode($charset, \$Headers);
    350352    $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);
    351353
Note: See TracChangeset for help on using the changeset viewer.