# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
# In particular, this should not be used as an example of modern Perl
# programming techniques.
# Author: Charles Collins
# This routine takes a shell script and 'dots' it into the current perl
# environment. This makes it possible to use existing system scripts
# to alter environment variables on the fly.
# &dotsh ('ShellScript', 'DependentVariable(s)');
# 'ShellScript' is the full name of the shell script to be dotted
# 'DependentVariable(s)' is an optional list of shell variables in the
# form VARIABLE=VALUE,VARIABLE=VALUE,... that 'ShellScript' is
# dependent upon. These variables MUST be defined using shell syntax.
# &dotsh ('/foo/bar', 'arg1');
# &dotsh ('/foo/bar arg1 ... argN');
local($tmp,$key,$shell,$command,$args,$vars) = '';
@dotsh = split (/\s/, $dotsh);
$command = shift (@dotsh);
$args = join (" ", @dotsh);
$vars = join ("\n", @sh);
open (_SH_ENV
, "$command") || die "Could not open $dotsh!\n";
$shell = "$1 -c" if ($_ =~ /^\#\!\s*(\S+(\/sh
|\
/ksh|\/zsh
|\
/csh))\s*$/);
if ($ENV{'SHELL'} =~ /\/sh
$|\
/ksh$|\/zsh
$|\
/bash$|\/csh
$/) {
$shell = "$ENV{'SHELL'} -c";
print "SHELL not recognized!\nUsing /bin/sh...\n";
open (_SH_ENV
, "$shell \"$vars && . $command $args && set \" |") || die;
open (_SH_ENV
, "$shell \". $command $args && set \" |") || die;
foreach $key (keys(%ENV)) {
$tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/;