Changeset 14942 for gsdl/trunk/bin

Timestamp:

2008-01-11T20:53:41+13:00 (16 years ago)

Author:

davidb

Message:

Modification to support extensions. BEGIN block now adds perllib/ perllib/cpan to @INC for each extension.

Location:

gsdl/trunk/bin/script

Files:

• buildcol.pl (modified) (1 diff)
• classinfo.pl (modified) (1 diff)
• export.pl (modified) (1 diff)
• pluginfo.pl (modified) (1 diff)

gsdl/trunk/bin/script/buildcol.pl

@@ -36 +36 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
+
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+    }
+    }
 }
 

gsdl/trunk/bin/script/classinfo.pl

@@ -36 +36 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
+
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+    }
+    }
 }
 

gsdl/trunk/bin/script/export.pl

@@ -40 +40 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugouts");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
+
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+    }
+    }
 }
 

gsdl/trunk/bin/script/pluginfo.pl

@@ -37 +37 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
+
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+    }
+    }
 }