Changeset 16013

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

Location:

gsdl/trunk/perllib/plugins

Files:

• AcronymExtractor.pm (modified) (5 diffs)
• ArchivesInfPlugin.pm (modified) (1 diff)
• ConvertBinaryFile.pm (modified) (1 diff)
• EmailAddressExtractor.pm (modified) (3 diffs)
• EmailPlugin.pm (modified) (2 diffs)
• GISExtractor.pm (modified) (3 diffs)
• LaTeXPlugin.pm (modified) (1 diff)
• MARCPlugin.pm (modified) (1 diff)
• OAIPlugin.pm (modified) (1 diff)
• OpenDocumentPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/AcronymExtractor.pm

@@ -100 +100 @@
 
     # print $outhandle " extracting acronyms ...\n" 
-    gsprintf($outhandle, " {BasPlug.extracting_acronyms}...\n")
+    gsprintf($outhandle, " {AcronymExtractor.extracting_acronyms}...\n")
     if ($self->{'verbosity'} > 2);
 
@@ -114 +114 @@
         $seen_before = "true";
         if ($self->{'verbosity'} >= 4) {
-            gsprintf($outhandle, " {BasPlug.already_seen} " .
+            gsprintf($outhandle, " {AcronymExtractor.already_seen} " .
                  $acro->to_string() . "\n");
         }
@@ -126 +126 @@
         #do the normal acronym
         $doc_obj->add_utf8_metadata($thissection, "Acronym",  $acro->to_string());
-        gsprintf($outhandle, " {BasPlug.adding} ".$acro->to_string()."\n")
+        gsprintf($outhandle, " {AcronymExtractor.adding} ".$acro->to_string()."\n")
         if ($self->{'verbosity'} > 3);
     }
     }
 
-    gsprintf($outhandle, " {BasPlug.done_acronym_extract}\n")
+    gsprintf($outhandle, " {AcronymExtractor.done_acronym_extract}\n")
     if ($self->{'verbosity'} > 2);
 }
@@ -140 +140 @@
     my $outhandle = $self->{'outhandle'};
 
-    gsprintf($outhandle, " {BasPlug.marking_up_acronyms}...\n")
+    gsprintf($outhandle, " {AcronymExtractor.marking_up_acronyms}...\n")
     if ($self->{'verbosity'} > 2);
 
@@ -146 +146 @@
     $text = &acronym::markup_acronyms($text, $self);
 
-    gsprintf($outhandle, " {BasPlug.done_acronym_markup}\n")
+    gsprintf($outhandle, " {AcronymExtractor.done_acronym_markup}\n")
     if ($self->{'verbosity'} > 2);
 

gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# ArchivesInfPlug.pm.pm --
+# ArchivesInfPlugin.pm --
 # A component of the Greenstone digital library software
 # from the New Zealand Digital Library Project at the 

gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm

@@ -68 +68 @@
     'type' => "flag" },
       { 'name' => "title_sub",
-    'desc' => "{HTMLPlug.title_sub}",
+    'desc' => "{HTMLPlugin.title_sub}",
     'type' => "string", 
     #'type' => "regexp",

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);
 }

gsdl/trunk/perllib/plugins/EmailPlugin.pm

@@ -109 +109 @@
 
 # Create a new EmailPlugin object with which to parse a file.
-# Accomplished by creating a new BasePlugin and using bless to 
+# Accomplished by creating a new SplitTextFile and using bless to 
 # turn it into an EmailPlugin.
 
@@ -579 +579 @@
         # or it was an empty message...
         # do nothing...
-        gsprintf($outhandle, "{BasePlugin.empty_file} - empty body?\n");
+        gsprintf($outhandle, "{ReadTextFile.empty_file} - empty body?\n");
         } else {
         $text = $part_text;

gsdl/trunk/perllib/plugins/GISExtractor.pm

@@ -243 +243 @@
 
     
-    &gsprintf($outhandle, " {BasPlug.extracting_placenames}...\n")
+    &gsprintf($outhandle, " {GISExtractor.extracting_placenames}...\n")
     if ($self->{'verbosity'} > 2);
 
@@ -314 +314 @@
     #adds placename to metadata
     $doc_obj->add_utf8_metadata ($thissection, "Placename", $p);    
-    &gsprintf($outhandle, "  {BasPlug.extracting} $p\n")
+    &gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $p\n")
         if ($self->{'verbosity'} > 3); 
     }
@@ -334 +334 @@
     $doc_obj->delete_text($thissection);
     $doc_obj->add_utf8_text($thissection, $$textref);
-    &gsprintf($outhandle, " {BasPlug.done_places_extract}\n")
+    &gsprintf($outhandle, " {GISExtractor.done_places_extract}\n")
     if ($self->{'verbosity'} > 2);
 }

gsdl/trunk/perllib/plugins/LaTeXPlugin.pm

@@ -44 +44 @@
     'deft' => &get_default_process_exp() } ];
 
-my $options = { 'name'     => 'LaTeXPlugin',
-        'desc'     => '{LaTeXPlugin.desc}',
-        'abstract' => 'no',
-        'inherits' => 'yes',
+my $options = { 'name'     => "LaTeXPlugin",
+        'desc'     => "{LaTeXPlugin.desc}",
+        'abstract' => "no",
+        'inherits' => "yes",
         'args'     => $arguments };
 

gsdl/trunk/perllib/plugins/MARCPlugin.pm

@@ -48 +48 @@
     'reqd' => "no" },
       { 'name' => "metadata_mapping_file",
-    'desc' => "{MARCXMLPlug.metadata_mapping_file}",
+    'desc' => "{MARCXMLPlugin.metadata_mapping_file}",
     'type' => "string",
     'deft' => "",

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -42 +42 @@
 my $arguments = 
     [ { 'name' => "process_exp",
-    'desc' => "{BasPlug.process_exp}",
+    'desc' => "{BasePlugin.process_exp}",
     'type' => "regexp",
     'reqd' => "no",

gsdl/trunk/perllib/plugins/OpenDocumentPlugin.pm

@@ -56 +56 @@
 my $arguments = [
          { 'name' => "process_exp",
-           'desc' => "{BasPlug.process_exp}",
+           'desc' => "{BasePlugin.process_exp}",
            'type' => "regexp",
            'deft' =>  &get_default_process_exp() }