Changeset 3328 for trunk/gsdl/perllib/plugins/EMAILPlug.pm

Timestamp:

2002-08-09T14:04:07+12:00 (21 years ago)

Author:

jrm21

Message:

Make sure that sender's name is more than 0 chars long, otherwise use email
address as the name.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -256 +256 @@
     $doc_obj->add_utf8_metadata ($cursection, "FromAddr", $fromaddrmeta);
 
-    if (defined($fromnamemeta)) {
+    if (defined($fromnamemeta) && $fromnamemeta) { # must be > 0 long
     $fromnamemeta =~ s/\"//g;  # remove quotes
     $fromnamemeta =~ s/\s+$//; # remove trailing whitespace
@@ -269 +269 @@
 
     $raw{"From"}=$frommeta;
+print STDERR "From: \"".$frommeta."\", FromName: \"".$fromnamemeta
+    . "\" FromAddr: \"" . $fromaddrmeta . "\"\n";
 
     # Process Date information