Changeset 23306

Timestamp:

2010-11-09T19:56:43+13:00 (13 years ago)

Author:

sjm84

Message:

setup_greenstone_evn sub to help set up the environment if GSDLHOME and GSDLOS are already known. This perl subrouting will call setup.bash/bat and manually set the environment vars that setup would normally set. May need expanding if we want to restrict things to only those environment vars that the Greenstone setup script sets.

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/util.pm

@@ -1374 +1374 @@
 }
 
+# Subroutine that sources setup.bash, given GSDLHOME and GSDLOS and
+# given that perllib is in @INC in order to invoke this subroutine.
+# Call as follows -- after setting up INC to include perllib and 
+# after setting up GSDLHOME and GSDLOS:
+#
+# require util;
+# &util::setup_greenstone_env($ENV{'GSDLHOME'}, $ENV{'GSDLOS'});
+#
+sub setup_greenstone_env() {
+    my ($GSDLHOME, $GSDLOS) = @_;
+
+    #my %env_map = ();
+    # Get the localised ENV settings of running a localised source setup.bash 
+    # and put it into the ENV here.
+    my $perl_command = "(cd $GSDLHOME; . ./setup.bash > /dev/null; env)";
+    if($GSDLOS =~ m/windows/i) {
+        #$perl_command = "(cmd && cd $GSDLHOME && setup.bat > nul && set && exit)";
+        $perl_command = "(cd $GSDLHOME && setup.bat > nul && set)";
+    }
+    if (!open(PIN, "$perl_command |")) {
+        print STDERR ("Unable to execute command: $perl_command. $!\n");
+    }
+
+    while (defined (my $perl_output_line = <PIN>)) {
+        my($key,$value) = ($perl_output_line =~ m/^([^=]*)[=](.*)$/);
+        #$env_map{$key}=$value;     
+        $ENV{$key}=$value;
+    }
+    
+    # If any keys in $ENV don't occur in Greenstone's localised env 
+    # (stored in $env_map), delete those entries from $ENV
+    #foreach $key (keys %ENV) { 
+    #   if(!defined $env_map{$key}) { 
+    #       print STDOUT "**** DELETING ENV KEY: $key\tVALUE: $ENV{'$key'}\n";
+    #       delete $ENV{$key}; # del $ENV(key, value) pair
+    #   }
+    #}
+    #undef %env_map;
+}
+
 1;