Ignore:
Timestamp:
2002-06-07T12:25:02+12:00 (20 years ago)
Author:
paynter
Message:

Reconciled John's version of my changes to EMAILPlug with my version
of my changes. It turns out they differed only in formatting and
documentation.

File:
1 edited

Legend:

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

    r3134 r3136  
    175175    @parts = split(/:/, $line);
    176176    $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.
    178178    $name =~ tr/A-Z/a-z/;
    179 # uppercase the first character according to the current locale
     179        # uppercase the first character according to the current locale
    180180    $name=~s/(.+)/\u$1/;
    181181    next unless $name;
     
    220220          $value=original_value;
    221221        }
    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 {
    223227        $self->convert2unicode($default_header_encoding, \$value);
    224228    }
    225 
    226 
    227229   
    228230    # Store the metadata
     
    659661sub text_from_part {
    660662    my $self = shift;
    661     my $text=shift || '';
    662     my $part_header=$text;
     663    my $text = shift || '';
     664    my $part_header = $text;
     665
    663666    # check for empty part header (leading blank line)
    664667    if ($text =~ /^\s*\r?\n/) {
Note: See TracChangeset for help on using the changeset viewer.