Changeset 14958 for gsdl/trunk/bin/script/pluginfo.pl

Timestamp:

2008-02-12T15:04:04+13:00 (16 years ago)

Author:

davidb

Message:

Functionality added so -listall option looks in Greenstone extension folders as well for plugins/classifiers.

File:

• gsdl/trunk/bin/script/pluginfo.pl (modified) (1 diff)

gsdl/trunk/bin/script/pluginfo.pl

@@ -176 +176 @@
         @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
         closedir (INDIR);
+    }
+
+    if ((defined $ENV{'GSDLEXTS'}) && ($collection eq "")) {
+        my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+        foreach my $e (@extensions) {
+        my $ext_prefix = &util::filename_cat($ENV{'GSDLHOME'},"ext",$e);
+        my $ext_plugins_dir = &util::filename_cat($ext_prefix, "perllib", "plugins");
+
+        if (opendir (INDIR, $ext_plugins_dir)) {
+            my @ext_plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
+            closedir (INDIR);
+
+            push(@plugin_list,@ext_plugin_list);
+        }
+
+        }
     }