Changeset 21292 for main/trunk/greenstone2/bin/script/pluginfo.pl

Timestamp:

2009-12-07T14:41:25+13:00 (14 years ago)

Author:

kjdon

Message:

extended extensions mechanism to include gs3 extensions

File:

• main/trunk/greenstone2/bin/script/pluginfo.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/pluginfo.pl

@@ -47 +47 @@
         unshift (@INC, "$ext_prefix/perllib/cpan");
         unshift (@INC, "$ext_prefix/perllib/plugins");
-        unshift (@INC, "$ext_prefix/perllib/plugouts");
-        unshift (@INC, "$ext_prefix/perllib/classify");
-    }
-    }
+    }
+    }
+    if (defined $ENV{'GSDL3EXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+        unshift (@INC, "$ext_prefix/perllib/plugins");
+    }
+    }
+
 }
 
@@ -197 +206 @@
         }
     }
+    if ((defined $ENV{'GSDL3EXTS'}) && ($collection eq "")) {
+        my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
+        foreach my $e (@extensions) {
+        my $ext_prefix = &util::filename_cat($ENV{'GSDL3SRCHOME'},"ext",$e);
+        my $ext_plugins_dir = &util::filename_cat($ext_prefix, "perllib", "plugins");
+
+        if (opendir (INDIR, $ext_plugins_dir)) {
+            my @ext_plugin_list = grep (/Plugin\.pm$/, readdir (INDIR));
+            closedir (INDIR);
+
+            push(@plugin_list,@ext_plugin_list);
+        }
+
+        }
+    }
 
     print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";