Changeset 19283

Show
Ignore:
Timestamp:
29.04.2009 14:16:42 (10 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

Files:
1 modified

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;