Changeset 19283 for gsdl/trunk/perllib/plugins/EmailPlugin.pm
- Timestamp:
- 2009-04-29T14:16:42+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/EmailPlugin.pm
r19282 r19283 278 278 $fromnamemeta=$2; 279 279 $fromaddrmeta=$1; 280 } 280 } elsif ($frommeta =~ m/(.+)\s+at\s+(.+)\s+\((.*)\)/) { 281 $fromnamemeta=$3; 282 $fromaddrmeta="$1@$2"; 283 } 284 281 285 if (!defined($fromaddrmeta)) { 282 286 $fromaddrmeta=$frommeta;
Note:
See TracChangeset
for help on using the changeset viewer.