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 | #
|
---|
34 | sub 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 | }
|
---|
74 | 1;
|
---|