Changeset 19283

Timestamp:

2009-04-29T14:16:42+12:00 (15 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:

• gsdl/trunk/perllib/plugins/EmailPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/EmailPlugin.pm

@@ -278 +278 @@
     $fromnamemeta=$2;
     $fromaddrmeta=$1;
-    } 
+    } elsif ($frommeta =~ m/(.+)\s+at\s+(.+)\s+\((.*)\)/) {
+    $fromnamemeta=$3;
+    $fromaddrmeta="$1@$2";
+    }
+
     if (!defined($fromaddrmeta)) {
     $fromaddrmeta=$frommeta;