Changeset 31876 for main/trunk
- Timestamp:
- 2017-08-11T16:13:34+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r31863 r31876 586 586 587 587 if (scalar(@envvars) == 0) { 588 #print $handle "@@@ All env vars requested\n"; 589 590 my $output; 591 if (defined $ENV{'GSDLOS'} && $ENV{'GSDLOS'} =~ m/windows/) { 592 $output = `set`; 593 } 594 else { 595 $output = `env`; 596 } 597 598 print $handle "@@@ Environment was:\n********\n$output\n********\n"; 588 #print $handle "@@@ All env vars requested\n"; 589 590 my $output = ""; 591 592 print $handle "@@@ Environment was:\n********\n"; 593 foreach my $envvar (sort keys(%ENV)) { 594 if(defined $ENV{$envvar}) { 595 print $handle "\t$envvar = $ENV{$envvar}\n"; 596 } else { 597 print $handle "\t$envvar = \n"; 598 } 599 } 600 print $handle "********\n"; 599 601 } else { 600 602 print $handle "@@@ Environment was:\n********\n"; … … 602 604 if(defined $ENV{$envvar}) { 603 605 print $handle "\t$envvar = ".$ENV{$envvar}."\n"; 604 } else { 605 $envvar = uc($envvar); 606 if(defined $ENV{$envvar}) { 607 print $handle "\t$envvar = ".$ENV{$envvar}."\n"; 608 } else { 609 print $handle "Env var $envvar was not set\n"; 610 } 606 } else { 607 print $handle "Env var '$envvar' was not set\n"; 611 608 } 612 609 }
Note:
See TracChangeset
for help on using the changeset viewer.