#$@%#$%!

Ngiler SH3LL 360
: / proc / thread-self / root / usr / share / Modules / bin /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : createmodule.sh \| Size : 5.64 KB
#!/bin/bash # # createmodule.sh - Takes the name of a environment init script and # produces a modulefile that duplicates the changes made by the init script # # Copyright (C) 2010-2012 by Orion E. Poplawski <orion@cora.nwra.com> # # 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 # (at your option) 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, see <http://www.gnu.org/licenses/>. usage="Usage: $0 [-p prefix] <initscript> [args]" usage() { echo $usage 1>&2 exit 1 } while getopts "p:" opt do case $opt in p) prefix=$OPTARG; shift 2;; ) usage;; esac done # Need a script name [ -z "$1" ] && usage # Need to be a readable script if [ ! -r "$1" ] then echo "ERROR: Cannot read $1" 1>&2 exit 1 fi #Will print out array assignment list printenvarray () { local skip=0 env \| while read x do # start of function definition: skip full definition if [[ "$x" =~ '() {' ]]; then skip=1 fi if [ $skip -eq 0 ]; then key=${x%%=} value=`printenv "$key"` if [ $? -eq 0 ] then echo [$key]="'$value'" fi fi # end of function definition if [ "$x" = '}' ]; then skip=0 fi done } #Apparently we need to declare the associative arrays declare -A env1 env2 #Record starting environment eval env1=(`printenvarray`) #Source the environment script . "$@" >/dev/null #Record ending environment eval env2=(`printenvarray`) #Print out the modulefile echo "#%Module 1.0" #Prefix [ -n "$prefix" ] && echo -e "\nset prefix $prefix\n" # dedup - remove duplicate entries from a list #Subshell so we can sort the output ( dedup() { list=`mktemp` [ -n "$2" ] && sep=$2 \|\| sep=: echo $1 \| sed -r -e 's,[^/]+/\.\./,,g' -e 's,[^/]+/\.\./,,g' -e "s/\\$sep/\n/g" \| while read x do grep -q -Fx ${x} $list && continue if [ -n "$prefix" ] then echo $x \| sed -e s,$prefix,\$prefix, else echo $x fi echo $x >> $list done \| tr '\n' $sep \| sed -e "s/\\$sep\$//" rm $list } #Keys that changed for key in "${!env1[@]}" do if [ "${env1[$key]}" != "${env2[$key]}" ] then #Working directory change if [ "$key" = PWD ] then if [ -n "$prefix" ] then echo -e "chdir\t\t${env2[PWD]}" \| sed -e s,$prefix,\$prefix,g else echo -e "chdir\t\t${env2[PWD]}" fi #Test for delete elif [ -z "${env2[$key]}" ] then echo -e "unsetenv\t${key}\t${env2[$key]}" #Test for prepend elif [ "${env2[$key]%${env1[$key]}}" != "${env2[$key]}" ] then added=${env2[$key]%${env1[$key]}} sep=${added: -1} added=${added%$sep} added=$(dedup $added $sep) if [ $sep = : ] then echo -e "prepend-path\t$key\t${added}" else echo -e "prepend-path\t--delim $sep\t$key\t${added}" fi #Test for prepend plus : added at end (MANPATH) elif [ "${key: -4}" = PATH -a "${env2[$key]%${env1[$key]}:}" != "${env2[$key]}" ] then added=$(dedup ${env2[$key]%${env1[$key]}:}) echo -e "prepend-path\t$key\t${added}" #Test for append elif [ "${env2[$key]#${env1[$key]}}" != "${env2[$key]}" ] then added=${env2[$key]#${env1[$key]}} sep=${added:0:1} added=${added#$sep} added=$(dedup $added $sep) if [ $sep = : ] then echo -e "append-path\t$key\t${added}" else echo -e "append-path\t--delim $sep\t$key\t${added}" fi #Test for prepend plus append elif [ "${env2[$key]%${env1[$key]}}" != "${env2[$key]}" ] then prepended=${env2[$key]%${env1[$key]}} presep=${prepended: -1} prepended=${prepended%$presep} prepended=$(dedup $prepended $presep) appended=${env2[$key]#*${env1[$key]}} appsep=${appended:0:1} appended=${appended#$appsep} appended=$(dedup $appended $appsep) if [ $presep != $appsep -o -z "$prepended" -o -z "$appended" ] then #Unhandled echo "Unhandled change of $key" 1>&2 echo "Before <${env1[$key]}>" 1>&2 echo "After <${env2[$key]}>" 1>&2 else if [ $presep = : ] then echo -e "prepend-path\t$key\t${prepended}" echo -e "append-path\t$key\t${appended}" else echo -e "prepend-path\t--delim $presep\t$key\t${prepended}" echo -e "append-path\t--delim $appsep\t$key\t${appended}" fi fi else if [ -n "$prefix" ] then echo -e "setenv\t\t${key}\t${env2[$key]}" \| sed -e s,$prefix,\$prefix,g else echo -e "setenv\t\t${key}\t${env2[$key]}" fi fi fi #Delete keys we have handled unset env1[$key] unset env2[$key] done #New keys for key in "${!env2[@]}" do if [ "$key" = OLDPWD ] then continue fi #Use prepend-path for new paths if [ "${key: -4}" = PATH -o "${key: -4}" = DIRS -o "${key: -4}" = FILES ] then # TODO - Need to handle stripping of default MANPATH echo -e "prepend-path\t${key}\t"$(dedup ${env2[$key]}) else if [ -n "$prefix" ] then echo -e "setenv\t\t${key}\t${env2[$key]}" \| sed -e s,$prefix,\$prefix,g else echo -e "setenv\t\t${key}\t${env2[$key]}" fi fi done ) \| sort # vim:set tabstop=2 shiftwidth=2 expandtab autoindent: Back

Edit File : createmodule.sh | Size : 5.64 KB

#!/bin/bash
#
# createmodule.sh - Takes the name of a environment init script and 
# produces a modulefile that duplicates the changes made by the init script
#
# Copyright (C) 2010-2012 by Orion E. Poplawski <orion@cora.nwra.com>
#
# 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
# (at your option) 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, see <http://www.gnu.org/licenses/>.

usage="Usage: $0 [-p prefix] <initscript> [args]"

usage() {
  echo $usage 1>&2
  exit 1
}

while getopts "p:" opt
do
  case $opt in
    p) prefix=$OPTARG; shift 2;;
    *) usage;;
  esac
done

# Need a script name
[ -z "$1" ] && usage

# Need to be a readable script
if [ ! -r "$1" ]
then
  echo "ERROR: Cannot read $1" 1>&2
  exit 1 
fi

#Will print out array assignment list
printenvarray () {
  local skip=0
  env | while read x
  do
    # start of function definition: skip full definition
    if [[ "$x" =~ '() {' ]]; then
      skip=1
    fi
    if [ $skip -eq 0 ]; then
      key=${x%%=*}
      value=`printenv "$key"`
      if [ $? -eq 0 ]
      then
        echo [$key]="'$value'"
      fi
    fi
    # end of function definition
    if [ "$x" = '}' ]; then
      skip=0
    fi
  done
}

#Apparently we need to declare the associative arrays
declare -A env1 env2

#Record starting environment
eval env1=(`printenvarray`)

#Source the environment script
. "$@" >/dev/null

#Record ending environment
eval env2=(`printenvarray`)

#Print out the modulefile
echo "#%Module 1.0"

#Prefix
[ -n "$prefix" ] && echo -e "\nset prefix $prefix\n"

# dedup - remove duplicate entries from a list
#Subshell so we can sort the output
(
dedup() {
  list=`mktemp`
  [ -n "$2" ] && sep=$2 || sep=:
  echo $1 | sed -r -e 's,[^/]+/\.\./,,g' -e 's,[^/]+/\.\./,,g' -e "s/\\$sep/\n/g" |
    while read x
    do
      grep -q -Fx ${x} $list && continue
      if [ -n "$prefix" ]
      then
        echo $x | sed -e s,$prefix,\$prefix,
      else
        echo $x
      fi
      echo $x >> $list
    done | tr '\n' $sep | sed -e "s/\\$sep\$//"
  rm $list
} 
    
#Keys that changed
for key in "${!env1[@]}"
do
  if [ "${env1[$key]}" != "${env2[$key]}" ]
  then
    #Working directory change
    if [ "$key" = PWD ]
    then
      if [ -n "$prefix" ]
      then
        echo -e "chdir\t\t${env2[PWD]}" | sed -e s,$prefix,\$prefix,g
      else
        echo -e "chdir\t\t${env2[PWD]}"
      fi
    #Test for delete
    elif [ -z "${env2[$key]}" ]
    then
      echo -e "unsetenv\t${key}\t${env2[$key]}"
    #Test for prepend
    elif [ "${env2[$key]%${env1[$key]}}" != "${env2[$key]}" ]
    then
      added=${env2[$key]%${env1[$key]}}
      sep=${added: -1}
      added=${added%$sep}
      added=$(dedup $added $sep)
      if [ $sep = : ]
      then
        echo -e "prepend-path\t$key\t${added}"
      else
        echo -e "prepend-path\t--delim $sep\t$key\t${added}"
      fi
    #Test for prepend plus : added at end (MANPATH)
    elif [ "${key: -4}" = PATH -a "${env2[$key]%${env1[$key]}:}" != "${env2[$key]}" ]
    then
      added=$(dedup ${env2[$key]%${env1[$key]}:})
      echo -e "prepend-path\t$key\t${added}"
    #Test for append
    elif [ "${env2[$key]#${env1[$key]}}" != "${env2[$key]}" ]
    then
      added=${env2[$key]#${env1[$key]}}
      sep=${added:0:1}
      added=${added#$sep}
      added=$(dedup $added $sep)
      if [ $sep = : ]
      then
        echo -e "append-path\t$key\t${added}"
      else
        echo -e "append-path\t--delim $sep\t$key\t${added}"
      fi
    #Test for prepend plus append
    elif [ "${env2[$key]%${env1[$key]}*}" != "${env2[$key]}" ]
    then
      prepended=${env2[$key]%${env1[$key]}*}
      presep=${prepended: -1}
      prepended=${prepended%$presep}
      prepended=$(dedup $prepended $presep)
      appended=${env2[$key]#*${env1[$key]}}
      appsep=${appended:0:1}
      appended=${appended#$appsep}
      appended=$(dedup $appended $appsep)
      if [ $presep != $appsep -o -z "$prepended" -o -z "$appended" ]
      then
        #Unhandled
        echo "Unhandled change of $key" 1>&2
        echo "Before <${env1[$key]}>" 1>&2
        echo "After  <${env2[$key]}>" 1>&2
      else
        if [ $presep = : ]
        then
          echo -e "prepend-path\t$key\t${prepended}"
          echo -e "append-path\t$key\t${appended}"
        else
          echo -e "prepend-path\t--delim $presep\t$key\t${prepended}"
          echo -e "append-path\t--delim $appsep\t$key\t${appended}"
        fi
      fi
    else
      if [ -n "$prefix" ]
      then
        echo -e "setenv\t\t${key}\t${env2[$key]}" | sed -e s,$prefix,\$prefix,g
      else
        echo -e "setenv\t\t${key}\t${env2[$key]}"
      fi
    fi
  fi
  #Delete keys we have handled
  unset env1[$key]
  unset env2[$key]
done

#New keys
for key in "${!env2[@]}"
do
  if [ "$key" = OLDPWD ]
  then
    continue
  fi
  #Use prepend-path for new paths
  if [ "${key: -4}" = PATH -o "${key: -4}" = DIRS -o "${key: -4}" = FILES ]
  then
    # TODO - Need to handle stripping of default MANPATH
    echo -e "prepend-path\t${key}\t"$(dedup ${env2[$key]})
  else
    if [ -n "$prefix" ]
    then
      echo -e "setenv\t\t${key}\t${env2[$key]}" | sed -e s,$prefix,\$prefix,g
    else
      echo -e "setenv\t\t${key}\t${env2[$key]}"
    fi
  fi
done
) | sort
# vim:set tabstop=2 shiftwidth=2 expandtab autoindent:

Back