Changeset 21290
- Timestamp:
- 2009-12-07T14:39:45+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugin.pm
r20613 r21290 74 74 return $valid_name; 75 75 } 76 76 77 sub load_plugin_require 77 78 { … … 102 103 103 104 my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 105 foreach my $e (@extensions) { 106 my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname); 107 push(@check_list,$extplugname); 108 109 } 110 } 111 if (defined $ENV{'GSDL3EXTS'}) { 112 113 my $ext_prefix = &util::filename_cat($ENV{'GSDL3SRCHOME'}, "ext"); 114 115 my @extensions = split(/:/,$ENV{'GSDL3EXTS'}); 104 116 foreach my $e (@extensions) { 105 117 my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname); … … 201 213 } 202 214 215 sub removeold { 216 my ($pluginfo, $base_dir, $processor, $maxdocs) = @_; 217 218 map { $_->removeold($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo; 219 } 220 221 203 222 sub file_block_read { 204 223 my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;
Note:
See TracChangeset
for help on using the changeset viewer.