Changeset 16013 for gsdl/trunk
- Timestamp:
- 2008-06-16T11:16:36+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/AcronymExtractor.pm
r15918 r16013 100 100 101 101 # print $outhandle " extracting acronyms ...\n" 102 gsprintf($outhandle, " { BasPlug.extracting_acronyms}...\n")102 gsprintf($outhandle, " {AcronymExtractor.extracting_acronyms}...\n") 103 103 if ($self->{'verbosity'} > 2); 104 104 … … 114 114 $seen_before = "true"; 115 115 if ($self->{'verbosity'} >= 4) { 116 gsprintf($outhandle, " { BasPlug.already_seen} " .116 gsprintf($outhandle, " {AcronymExtractor.already_seen} " . 117 117 $acro->to_string() . "\n"); 118 118 } … … 126 126 #do the normal acronym 127 127 $doc_obj->add_utf8_metadata($thissection, "Acronym", $acro->to_string()); 128 gsprintf($outhandle, " { BasPlug.adding} ".$acro->to_string()."\n")128 gsprintf($outhandle, " {AcronymExtractor.adding} ".$acro->to_string()."\n") 129 129 if ($self->{'verbosity'} > 3); 130 130 } 131 131 } 132 132 133 gsprintf($outhandle, " { BasPlug.done_acronym_extract}\n")133 gsprintf($outhandle, " {AcronymExtractor.done_acronym_extract}\n") 134 134 if ($self->{'verbosity'} > 2); 135 135 } … … 140 140 my $outhandle = $self->{'outhandle'}; 141 141 142 gsprintf($outhandle, " { BasPlug.marking_up_acronyms}...\n")142 gsprintf($outhandle, " {AcronymExtractor.marking_up_acronyms}...\n") 143 143 if ($self->{'verbosity'} > 2); 144 144 … … 146 146 $text = &acronym::markup_acronyms($text, $self); 147 147 148 gsprintf($outhandle, " { BasPlug.done_acronym_markup}\n")148 gsprintf($outhandle, " {AcronymExtractor.done_acronym_markup}\n") 149 149 if ($self->{'verbosity'} > 2); 150 150 -
gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
r15870 r16013 1 1 ########################################################################### 2 2 # 3 # ArchivesInfPlug .pm.pm --3 # ArchivesInfPlugin.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the -
gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm
r15906 r16013 68 68 'type' => "flag" }, 69 69 { 'name' => "title_sub", 70 'desc' => "{HTMLPlug .title_sub}",70 'desc' => "{HTMLPlugin.title_sub}", 71 71 'type' => "string", 72 72 #'type' => "regexp", -
gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm
r15887 r16013 63 63 my $outhandle = $self->{'outhandle'}; 64 64 65 gsprintf($outhandle, " { BasPlug.extracting_emails}...\n")65 gsprintf($outhandle, " {EmailAddressExtractor.extracting_emails}...\n") 66 66 if ($self->{'verbosity'} > 2); 67 67 … … 79 79 # $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address); 80 80 # # print $outhandle " extracting $address\n" 81 # &gsprintf($outhandle, " { BasPlug.extracting} $address\n")81 # &gsprintf($outhandle, " {AutoExtractMetadata.extracting} $address\n") 82 82 # if ($self->{'verbosity'} > 3); 83 83 # } … … 92 92 $hashExistMail->{$address} = 1; 93 93 $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address); 94 gsprintf($outhandle, " { BasPlug.extracting} $address\n")94 gsprintf($outhandle, " {AutoExtractMetadata.extracting} $address\n") 95 95 if ($self->{'verbosity'} > 3); 96 96 } 97 97 } 98 gsprintf($outhandle, " { BasPlug.done_email_extract}\n")98 gsprintf($outhandle, " {EmailAddressExtractor.done_email_extract}\n") 99 99 if ($self->{'verbosity'} > 2); 100 100 } -
gsdl/trunk/perllib/plugins/EmailPlugin.pm
r15872 r16013 109 109 110 110 # Create a new EmailPlugin object with which to parse a file. 111 # Accomplished by creating a new BasePluginand using bless to111 # Accomplished by creating a new SplitTextFile and using bless to 112 112 # turn it into an EmailPlugin. 113 113 … … 579 579 # or it was an empty message... 580 580 # do nothing... 581 gsprintf($outhandle, "{ BasePlugin.empty_file} - empty body?\n");581 gsprintf($outhandle, "{ReadTextFile.empty_file} - empty body?\n"); 582 582 } else { 583 583 $text = $part_text; -
gsdl/trunk/perllib/plugins/GISExtractor.pm
r15919 r16013 243 243 244 244 245 &gsprintf($outhandle, " { BasPlug.extracting_placenames}...\n")245 &gsprintf($outhandle, " {GISExtractor.extracting_placenames}...\n") 246 246 if ($self->{'verbosity'} > 2); 247 247 … … 314 314 #adds placename to metadata 315 315 $doc_obj->add_utf8_metadata ($thissection, "Placename", $p); 316 &gsprintf($outhandle, " { BasPlug.extracting} $p\n")316 &gsprintf($outhandle, " {AutoExtractMetadata.extracting} $p\n") 317 317 if ($self->{'verbosity'} > 3); 318 318 } … … 334 334 $doc_obj->delete_text($thissection); 335 335 $doc_obj->add_utf8_text($thissection, $$textref); 336 &gsprintf($outhandle, " { BasPlug.done_places_extract}\n")336 &gsprintf($outhandle, " {GISExtractor.done_places_extract}\n") 337 337 if ($self->{'verbosity'} > 2); 338 338 } -
gsdl/trunk/perllib/plugins/LaTeXPlugin.pm
r15872 r16013 44 44 'deft' => &get_default_process_exp() } ]; 45 45 46 my $options = { 'name' => 'LaTeXPlugin',47 'desc' => '{LaTeXPlugin.desc}',48 'abstract' => 'no',49 'inherits' => 'yes',46 my $options = { 'name' => "LaTeXPlugin", 47 'desc' => "{LaTeXPlugin.desc}", 48 'abstract' => "no", 49 'inherits' => "yes", 50 50 'args' => $arguments }; 51 51 -
gsdl/trunk/perllib/plugins/MARCPlugin.pm
r15962 r16013 48 48 'reqd' => "no" }, 49 49 { 'name' => "metadata_mapping_file", 50 'desc' => "{MARCXMLPlug .metadata_mapping_file}",50 'desc' => "{MARCXMLPlugin.metadata_mapping_file}", 51 51 'type' => "string", 52 52 'deft' => "", -
gsdl/trunk/perllib/plugins/OAIPlugin.pm
r15872 r16013 42 42 my $arguments = 43 43 [ { 'name' => "process_exp", 44 'desc' => "{Bas Plug.process_exp}",44 'desc' => "{BasePlugin.process_exp}", 45 45 'type' => "regexp", 46 46 'reqd' => "no", -
gsdl/trunk/perllib/plugins/OpenDocumentPlugin.pm
r15872 r16013 56 56 my $arguments = [ 57 57 { 'name' => "process_exp", 58 'desc' => "{Bas Plug.process_exp}",58 'desc' => "{BasePlugin.process_exp}", 59 59 'type' => "regexp", 60 60 'deft' => &get_default_process_exp() }
Note:
See TracChangeset
for help on using the changeset viewer.