Changeset 16013 for gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm

Timestamp:

2008-06-16T11:16:36+12:00 (16 years ago)

Author:

kjdon

Message:

updated soem plugin names in some of the keys for strings.properties

File:

• gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm

@@ -63 +63 @@
     my $outhandle = $self->{'outhandle'};
 
-    gsprintf($outhandle, " {BasPlug.extracting_emails}...\n")
+    gsprintf($outhandle, " {EmailAddressExtractor.extracting_emails}...\n")
     if ($self->{'verbosity'} > 2);
     
@@ -79 +79 @@
 #       $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
 #       # print $outhandle "  extracting $address\n" 
-#       &gsprintf($outhandle, "  {BasPlug.extracting} $address\n")
+#       &gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
 #           if ($self->{'verbosity'} > 3);
 #       }
@@ -92 +92 @@
         $hashExistMail->{$address} = 1;
         $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
-        gsprintf($outhandle, "  {BasPlug.extracting} $address\n")
+        gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
         if ($self->{'verbosity'} > 3);
     }
     }
-    gsprintf($outhandle, " {BasPlug.done_email_extract}\n")
+    gsprintf($outhandle, " {EmailAddressExtractor.done_email_extract}\n")
     if ($self->{'verbosity'} > 2);
 }