Changeset 3136
- Timestamp:
- 2002-06-07T12:25:02+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/EMAILPlug.pm
r3134 r3136 175 175 @parts = split(/:/, $line); 176 176 $name = shift @parts; 177 # get fieldname in canonical form - first cap, then lower case.177 # get fieldname in canonical form - first cap, then lower case. 178 178 $name =~ tr/A-Z/a-z/; 179 # uppercase the first character according to the current locale179 # uppercase the first character according to the current locale 180 180 $name=~s/(.+)/\u$1/; 181 181 next unless $name; … … 220 220 $value=original_value; 221 221 } 222 } else { # end of if =?...?= 222 } # end of if =?...?= 223 224 # In the absense of other charset information, assume the 225 # header is the default (usually "iso_8859_1") and convert it to unicode. 226 else { 223 227 $self->convert2unicode($default_header_encoding, \$value); 224 228 } 225 226 227 229 228 230 # Store the metadata … … 659 661 sub text_from_part { 660 662 my $self = shift; 661 my $text=shift || ''; 662 my $part_header=$text; 663 my $text = shift || ''; 664 my $part_header = $text; 665 663 666 # check for empty part header (leading blank line) 664 667 if ($text =~ /^\s*\r?\n/) {
Note:
See TracChangeset
for help on using the changeset viewer.