Changeset 15872 for gsdl/trunk/perllib/plugins/GAPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/GAPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # GAPlug .pm3 # GAPlugin.pm 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 29 29 # to their DTD. 30 30 31 package GAPlug ;32 33 use XMLPlug;31 package GAPlugin; 32 33 use ReadXMLFile; 34 34 35 35 use strict; … … 37 37 38 38 sub BEGIN { 39 @GAPlug ::ISA = ('XMLPlug');39 @GAPlugin::ISA = ('ReadXMLFile'); 40 40 } 41 41 … … 49 49 my $arguments = 50 50 [ { 'name' => "process_exp", 51 'desc' => "{Bas Plug.process_exp}",51 'desc' => "{BasePlugin.process_exp}", 52 52 'type' => "regexp", 53 53 'deft' => &get_default_process_exp(), 54 54 'reqd' => "no" } ]; 55 55 56 my $options = { 'name' => "GAPlug ",57 'desc' => "{GAPlug .desc}",56 my $options = { 'name' => "GAPlugin", 57 'desc' => "{GAPlugin.desc}", 58 58 'abstract' => "no", 59 59 'inherits' => "yes", … … 65 65 push(@$pluginlist, $class); 66 66 67 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}68 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};69 70 my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);67 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 68 push(@{$hashArgOptLists->{"OptList"}},$options); 69 70 my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists); 71 71 72 72 $self->{'section'} = ""; … … 106 106 107 107 my $outhandle = $self->{'outhandle'}; 108 print $outhandle "GAPlug : processing $self->{'file'}\n" if $self->{'verbosity'} > 1;109 print STDERR "<Processing n='$self->{'file'}' p='GAPlug '>\n" if $self->{'gli'};108 print $outhandle "GAPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 109 print STDERR "<Processing n='$self->{'file'}' p='GAPlugin'>\n" if $self->{'gli'}; 110 110 111 111 }
Note:
See TracChangeset
for help on using the changeset viewer.