Changeset 19283


Ignore:
Timestamp:
2009-04-29T14:16:42+12:00 (12 years ago)
Author:
kjdon
Message:

added a new case for From metadata format: username at server (full name) - the current greenstone mail archive files use this

File:
1 edited

Legend:

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

    r19282 r19283  
    278278    $fromnamemeta=$2;
    279279    $fromaddrmeta=$1;
    280     }
     280    } elsif ($frommeta =~ m/(.+)\s+at\s+(.+)\s+\((.*)\)/) {
     281    $fromnamemeta=$3;
     282    $fromaddrmeta="$1@$2";
     283    }
     284
    281285    if (!defined($fromaddrmeta)) {
    282286    $fromaddrmeta=$frommeta;
Note: See TracChangeset for help on using the changeset viewer.