Changeset 19541 for gsdl/trunk
- Timestamp:
- 2009-05-20T14:32:09+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm
r16025 r19541 103 103 # { 104 104 # push @email2, $address; 105 # $doc_obj->add_utf8_metadata ($thissection, " emailAddress", $address);105 # $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address); 106 106 # # print $outhandle " extracting $address\n" 107 107 # &gsprintf($outhandle, " {AutoExtractMetadata.extracting} $address\n") … … 117 117 { 118 118 $hashExistMail->{$address} = 1; 119 $doc_obj->add_utf8_metadata ($thissection, " emailAddress", $address);119 $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address); 120 120 gsprintf($outhandle, " {AutoExtractMetadata.extracting} $address\n") 121 121 if ($self->{'verbosity'} > 3);
Note:
See TracChangeset
for help on using the changeset viewer.