1# 2# @(#)dotsh.pl 03/19/94 3# 4# This library is no longer being maintained, and is included for backward 5# compatibility with Perl 4 programs which may require it. 6# 7# In particular, this should not be used as an example of modern Perl 8# programming techniques. 9# 10# 11# Author: Charles Collins 12# 13# Description: 14# This routine takes a shell script and 'dots' it into the current perl 15# environment. This makes it possible to use existing system scripts 16# to alter environment variables on the fly. 17# 18# Usage: 19# &dotsh ('ShellScript', 'DependentVariable(s)'); 20# 21# where 22# 23# 'ShellScript' is the full name of the shell script to be dotted 24# 25# 'DependentVariable(s)' is an optional list of shell variables in the 26# form VARIABLE=VALUE,VARIABLE=VALUE,... that 'ShellScript' is 27# dependent upon. These variables MUST be defined using shell syntax. 28# 29# Example: 30# &dotsh ('/foo/bar', 'arg1'); 31# &dotsh ('/foo/bar'); 32# &dotsh ('/foo/bar arg1 ... argN'); 33# 34sub dotsh { 35 local(@sh) = @_; 36 local($tmp,$key,$shell,$command,$args,$vars) = ''; 37 local(*dotsh); 38 undef *dotsh; 39 $dotsh = shift(@sh); 40 @dotsh = split (/\s/, $dotsh); 41 $command = shift (@dotsh); 42 $args = join (" ", @dotsh); 43 $vars = join ("\n", @sh); 44 open (_SH_ENV, "$command") || die "Could not open $dotsh!\n"; 45 chop($_ = <_SH_ENV>); 46 $shell = "$1 -c" if ($_ =~ /^\#\!\s*(\S+(\/sh|\/ksh|\/zsh|\/csh))\s*$/); 47 close (_SH_ENV); 48 if (!$shell) { 49 if ($ENV{'SHELL'} =~ /\/sh$|\/ksh$|\/zsh$|\/bash$|\/csh$/) { 50 $shell = "$ENV{'SHELL'} -c"; 51 } else { 52 print "SHELL not recognized!\nUsing /bin/sh...\n"; 53 $shell = "/bin/sh -c"; 54 } 55 } 56 if (length($vars) > 0) { 57 open (_SH_ENV, "$shell \"$vars && . $command $args && set \" |") || die; 58 } else { 59 open (_SH_ENV, "$shell \". $command $args && set \" |") || die; 60 } 61 62 while (<_SH_ENV>) { 63 chop; 64 m/^([^=]*)=(.*)/s; 65 $ENV{$1} = $2; 66 } 67 close (_SH_ENV); 68 69 foreach $key (keys(%ENV)) { 70 $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; 71 } 72 eval $tmp; 73} 741; 75