Changeset 21292 for main/trunk/greenstone2/bin/script/classinfo.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/classinfo.pl (modified) (1 diff)

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

@@ -44 +44 @@
         unshift (@INC, "$ext_prefix/perllib");
         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/classify");
+
+    }
+    }
+
 }