Changeset 21290 for main/trunk/greenstone2

Timestamp:

2009-12-07T14:39:45+13:00 (14 years ago)

Author:

kjdon

Message:

extension handling extended to include gs3 extensions, added removeold method

File:

• main/trunk/greenstone2/perllib/plugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugin.pm

@@ -74 +74 @@
     return $valid_name;
 }
+
 sub load_plugin_require
 {
@@ -102 +103 @@
 
     my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname);
+        push(@check_list,$extplugname);
+
+    }
+    }
+    if (defined $ENV{'GSDL3EXTS'}) {
+
+    my $ext_prefix = &util::filename_cat($ENV{'GSDL3SRCHOME'}, "ext");
+
+    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     foreach my $e (@extensions) {
         my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname);
@@ -201 +213 @@
 }
 
+ sub removeold {
+    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+    
+    map { $_->removeold($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
+}
+  
+
 sub file_block_read {
     my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;