Changeset 27684 for gs2-extensions/parallel-building

Timestamp:

2013-06-21T12:22:25+12:00 (11 years ago)

Author:

jmt12

Message:

Adding natural sorting into report generation - so also needed to add INC building code typical of GS scripts

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/hadoop_report.pl (modified) (1 diff)

gs2-extensions/parallel-building/trunk/src/bin/script/hadoop_report.pl

@@ -3 +3 @@
 use strict;
 use warnings;
+
+# Requires setup.bash to have been sourced
+BEGIN
+{
+  die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
+  die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
+  # Ensure Greenstone Perl locations are in INC
+  unshift (@INC, $ENV{'GSDLHOME'} . '/perllib');
+  unshift (@INC, $ENV{'GSDLHOME'} . '/perllib/cpan');
+  # we'll need the perl version number
+  my ($version_number) = `perl-version.pl`;
+  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');
+      unshift (@INC, $ext_prefix . '/' . $ENV{'GSDLOS'} . '/lib/perl/' . $version_number);
+    }
+  }
+}
 
 use Devel::Peek;