Changeset 15872 for gsdl/trunk/perllib/plugins/ZIPPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ZIPPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # ZIPPlug .pm --3 # ZIPPlugin.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 44 44 45 45 46 package ZIPPlug ;46 package ZIPPlugin; 47 47 48 use BasPlug;48 use AbstractPlugin; 49 49 use plugin; 50 50 use util; … … 55 55 56 56 BEGIN { 57 @ZIPPlug ::ISA = ('BasPlug');57 @ZIPPlugin::ISA = ('AbstractPlugin'); 58 58 } 59 59 60 60 my $arguments = 61 61 [ { 'name' => "process_exp", 62 'desc' => "{Bas Plug.process_exp}",62 'desc' => "{BasePlugin.process_exp}", 63 63 'type' => "string", 64 64 'deft' => &get_default_process_exp(), 65 65 'reqd' => "no" } ]; 66 66 67 my $options = { 'name' => "ZIPPlug ",68 'desc' => "{ZIPPlug .desc}",67 my $options = { 'name' => "ZIPPlugin", 68 'desc' => "{ZIPPlugin.desc}", 69 69 'abstract' => "no", 70 70 'inherits' => "yes", … … 77 77 push(@$pluginlist, $class); 78 78 79 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}80 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};79 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 80 push(@{$hashArgOptLists->{"OptList"}},$options); 81 81 82 my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);82 my $self = new AbstractPlugin($pluginlist, $inputargs, $hashArgOptLists); 83 83 84 84 return bless $self, $class; … … 112 112 &util::mk_all_dir ($tmpdir); 113 113 114 print $outhandle "ZIPPlug : extracting $file_only to $tmpdir\n"114 print $outhandle "ZIPPlugin: extracting $file_only to $tmpdir\n" 115 115 if $self->{'verbosity'} > 1; 116 116
Note:
See TracChangeset
for help on using the changeset viewer.