Changeset 31862

Timestamp:

2017-08-09T19:09:28+12:00 (6 years ago)

Author:

ak19

Message:

Adding a new subroutine print_env() that may be useful for debugging env vars. It will print the values of all environment variables to STDERR if no specific ones are requested. If specific env vars are requested, it will just print their values to STDERR.

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -580 +580 @@
 }
 
+# debug aid
+sub print_env {
+    my @envvars = @_;
+
+    if (scalar(@envvars) == 0) {
+    print STDERR "@@@ No env vars requested\n";
+    
+    
+    my $output;
+    if (defined $ENV{'GSDLOS'} && $ENV{'GSDLOS'} =~ m/windows/) {
+        $output = `set`;
+    }
+    else {
+        $output = `env`;
+    }
+    
+    print STDERR "@@@ Environment was:\n********\n$output\n*******\n";
+    } else {
+    print STDERR "@@@ Environment was:\n********\n";
+    foreach my $envvar (@envvars) {
+        if(defined $ENV{$envvar}) {
+        print STDERR "\t$envvar = ".$ENV{$envvar}."\n";
+        } else {
+        $envvar = uc($envvar);
+        if(defined $ENV{$envvar}) {
+            print STDERR "\t$envvar = ".$ENV{$envvar}."\n";
+        } else {
+            print STDERR "Env var $envvar was not set\n";
+        }
+        }
+    }
+    print STDERR "@@@*******\n";
+    }
+}