276 lines
6.2 KiB
Plaintext
276 lines
6.2 KiB
Plaintext
# $RCSfile: envmng,v $
|
|
# $Revision: 1.1 $
|
|
# $Name: $
|
|
# $Date: 2009/01/12 17:59:03 $
|
|
# $Author: agibert $
|
|
|
|
# envmng - Unix shell Environment Manager
|
|
# Copyright (C) 2004-2005 Arnaud G. Gibert
|
|
# mailto:arnaud@rx3.net
|
|
# http://www.rx3.org/dvp/?dvp=envmng
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License
|
|
# as published by the Free Software Foundation; either version 2
|
|
# of the License, or any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
|
|
|
|
EnvMng_Cmd="$1"
|
|
EnvMng_Env="$2"
|
|
EnvMng_Opt="$3"
|
|
|
|
envmng_prefix=/home/dtarget/envmng
|
|
envmng_d=$envmng_prefix/etc/envmng.d
|
|
envmng_id=$envmng_prefix/etc/envmng_id
|
|
envmng_protvar=$envmng_prefix/etc/envmng_protvar
|
|
envmng_protalias=$envmng_prefix/etc/envmng_protalias
|
|
envmng_display=$envmng_prefix/etc/envmng_display
|
|
|
|
env=/bin/env
|
|
sed=/bin/sed
|
|
grep=/bin/grep
|
|
|
|
alias envmng=". $envmng_prefix/bin/envmng"
|
|
|
|
|
|
|
|
envmng_rlist()
|
|
{
|
|
rlist=""
|
|
|
|
for elem in $1
|
|
do
|
|
rlist="$elem $rlist"
|
|
done
|
|
|
|
echo $rlist
|
|
}
|
|
|
|
|
|
|
|
envmng_path_add()
|
|
{
|
|
if [ "$1" != "" ]
|
|
then
|
|
echo "$2:$1"
|
|
else
|
|
echo "$2"
|
|
fi
|
|
}
|
|
|
|
|
|
|
|
envmng_path_rm()
|
|
{
|
|
echo "$1" | $sed -e "s/$(echo "$2" | $sed "s/\//\\\\\//g")//" -e "s/\:\:/\:/g" -e "s/^\://" -e "s/\:$//"
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
case "$EnvMng_Cmd" in
|
|
-b | --bash)
|
|
if [ "$EnvMng_Env" != "" ]
|
|
then
|
|
export ENVMNG_ID=$EnvMng_Env
|
|
fi
|
|
|
|
if [ "$BASH" = "" ]
|
|
then
|
|
echo "envmng: new shell: [bash] seting id: [$ENVMNG_ID]..."
|
|
|
|
export NEW_SHELL=/home/dtarget/local/bin/bash
|
|
$NEW_SHELL
|
|
unset NEW_SHELL
|
|
else
|
|
echo "envmng: allready in: [bash] seting id: [$ENVMNG_ID]..."
|
|
. /home/dtarget/envmng/bin/envmng --setid $ENVMNG_ID $EnvMng_Opt
|
|
fi
|
|
;;
|
|
|
|
-k | --ksh)
|
|
if [ "$EnvMng_Env" != "" ]
|
|
then
|
|
export ENVMNG_ID=$EnvMng_Env
|
|
fi
|
|
|
|
if [ "$BASH" != "" ]
|
|
then
|
|
echo "envmng: new shell: [ksh] seting id: [$ENVMNG_ID]..."
|
|
|
|
export NEW_SHELL=/bin/ksh
|
|
$NEW_SHELL
|
|
unset NEW_SHELL
|
|
else
|
|
echo "envmng: allready in: [ksh] seting id: [$ENVMNG_ID]..."
|
|
. /home/dtarget/envmng/bin/envmng --setid $ENVMNG_ID $EnvMng_Opt
|
|
fi
|
|
;;
|
|
|
|
-S | --setid)
|
|
echo "envmng: seting id: [$EnvMng_Env]..."
|
|
|
|
export ENVMNG_ID=$EnvMng_Env
|
|
|
|
. $envmng_prefix/bin/envmng --reset $($grep "^$EnvMng_Env:" $envmng_id | $sed "s/^$EnvMng_Env:[ \ ]*//") $EnvMng_Opt
|
|
;;
|
|
|
|
-R | --reset)
|
|
echo "envmng: reseting env [$EnvMng_Env]..."
|
|
echo "envmng: reseting profile..."
|
|
|
|
norc=$EnvMng_Opt
|
|
|
|
env_list=$($env | $sed -e "s/=.*//")
|
|
|
|
if [ "$env_list" != "" ]
|
|
then
|
|
for var in $env_list
|
|
do
|
|
if [ $var != "$($grep ^$var$ $envmng_protvar)" ]
|
|
then
|
|
unset $var
|
|
fi
|
|
done
|
|
fi
|
|
|
|
export ENVMNG_LIST="$EnvMng_Env"
|
|
|
|
|
|
echo "envmng: reseting aliases..."
|
|
|
|
alias_list=$(alias | $sed -e "s/alias //" -e "s/=.*//")
|
|
|
|
if [ "$alias_list" != "" ]
|
|
then
|
|
for alias in $alias_list
|
|
do
|
|
if [ $alias != "$($grep ^$alias$ $envmng_protalias)" ]
|
|
then
|
|
unalias $alias
|
|
fi
|
|
done
|
|
fi
|
|
|
|
. $envmng_prefix/bin/envmng --profile
|
|
|
|
if [ "$norc" != "norc" ]
|
|
then
|
|
. $envmng_prefix/bin/envmng --rc
|
|
fi
|
|
;;
|
|
|
|
-a | --add)
|
|
if [ "$(echo $ENVMNG_LIST | $sed -e s/.*\:$EnvMng_Env/$EnvMng_Env/ -e s/$EnvMng_Env\:.*/$EnvMng_Env/)" != "$EnvMng_Env" ]
|
|
then
|
|
env_list=$(echo $ENVMNG_LIST | $sed -e "s/\:/ /g")
|
|
|
|
if [ "$EnvMng_Opt" = "tail" ]
|
|
then
|
|
echo "envmng: adding [$EnvMng_Env] on [$EnvMng_Opt]..."
|
|
|
|
if [ "$env_list" != "" ]
|
|
then
|
|
. $envmng_prefix/bin/envmng --reset $ENVMNG_LIST:$EnvMng_Env
|
|
else
|
|
export ENVMNG_LIST=$EnvMng_Env
|
|
|
|
. $envmng_prefix/bin/envmng --profile $EnvMng_Env
|
|
. $envmng_prefix/bin/envmng --rc $EnvMng_Env
|
|
fi
|
|
|
|
else
|
|
EnvMng_Opt=head
|
|
|
|
echo "envmng: adding [$EnvMng_Env] on [$EnvMng_Opt]..."
|
|
|
|
export ENVMNG_LIST=$EnvMng_Env:$ENVMNG_LIST
|
|
|
|
. $envmng_prefix/bin/envmng --profile $EnvMng_Env
|
|
. $envmng_prefix/bin/envmng --rc $EnvMng_Env
|
|
fi
|
|
else
|
|
echo "envmng: skipping [$EnvMng_Env] env !"
|
|
fi
|
|
;;
|
|
|
|
-d | --del)
|
|
echo "envmng: deleting [$EnvMng_Env]..."
|
|
|
|
if [ "$(echo $ENVMNG_LIST | $sed -e s/.*\:$EnvMng_Env/$EnvMng_Env/ -e s/$EnvMng_Env\:.*/$EnvMng_Env/)" == "$EnvMng_Env" ]
|
|
then
|
|
export ENVMNG_LIST=$(echo $ENVMNG_LIST | $sed -e "s/$EnvMng_Env//" -e "s/\:\:/\:/g" -e "s/^\://" -e "s/\:$//")
|
|
. $envmng_prefix/bin/envmng --reset $ENVMNG_LIST
|
|
else
|
|
echo "envmng: skipping [$EnvMng_Env] profile !"
|
|
fi
|
|
;;
|
|
|
|
-p | --profile | -r | --rc)
|
|
if [ "$EnvMng_Cmd" = "-p" ] | [ "$EnvMng_Cmd" = "--profile" ]
|
|
then
|
|
mode="profiling"
|
|
else
|
|
mode="rcing"
|
|
fi
|
|
|
|
echo "envmng: $mode..."
|
|
|
|
if [ "$EnvMng_Env" != "" ]
|
|
then
|
|
echo "envmng: $mode [$EnvMng_Env]..."
|
|
. $envmng_d/$EnvMng_Env ${EnvMng_Cmd}
|
|
else
|
|
env_list=$(envmng_rlist "$(echo $ENVMNG_LIST | $sed -e "s/\:/ /g")")
|
|
|
|
if [ "$env_list" != "" ]
|
|
then
|
|
for envi in $env_list
|
|
do
|
|
echo "envmng: $mode [$envi]..."
|
|
. $envmng_d/$envi ${EnvMng_Cmd}
|
|
done
|
|
fi
|
|
fi
|
|
;;
|
|
|
|
-s | --status)
|
|
echo "ENVMNG_ID: [$ENVMNG_ID] ENVMNG_LIST: [$ENVMNG_LIST]"
|
|
;;
|
|
|
|
-h | --help)
|
|
echo "Usage: envmng [COMMAND] [OPTION]"
|
|
echo " -b, --bash [<Id>] [norc] switch to bash and set id to <Id>"
|
|
echo " -k, --ksh [<Id>] [norc] switch to ksh and set id to <Id>"
|
|
echo " -S, --setid <Id> [norc] set id to <Id>"
|
|
echo " -R, --reset <EnvList> reset envlist to <EnvList>"
|
|
echo " -a, --add <Env> [head|tail] add <Env> in envlist head or tail"
|
|
echo " -d, --del <Env> del <Env> from envlist"
|
|
echo " -p, --profile [<Env>] do envlist or <Env> profile"
|
|
echo " -r, --rc [<Env>] do envlist or <Env> rc"
|
|
echo " -s, --status print status"
|
|
echo " -h, --help print this help"
|
|
echo " -V, --version print version"
|
|
;;
|
|
|
|
-V | --version)
|
|
echo "envmng V 1.1"
|
|
;;
|
|
|
|
*)
|
|
echo "$0: Invalid command: [$EnvMng_Cmd] !"
|
|
. $envmng_prefix/bin/envmng --help
|
|
;;
|
|
esac
|