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