First working version !
This commit is contained in:
agibert
275
bin/envmng
Normal file
275
bin/envmng
Normal file
@@ -0,0 +1,275 @@
|
||||
# $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
|
||||
Reference in New Issue
Block a user