<h2>Editing: createmodule.sh</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>#!/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 &lt;orion@cora.nwra.com&gt;
#
# 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 &lt;http://www.gnu.org/licenses/&gt;.

usage=&quot;Usage: $0 [-p prefix] &lt;initscript&gt; [args]&quot;

usage() {
  echo $usage 1&gt;&amp;2
  exit 1
}

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

# Need a script name
[ -z &quot;$1&quot; ] &amp;&amp; usage

# Need to be a readable script
if [ ! -r &quot;$1&quot; ]
then
  echo &quot;ERROR: Cannot read $1&quot; 1&gt;&amp;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 [[ &quot;$x&quot; =~ '() {' ]]; then
      skip=1
    fi
    if [ $skip -eq 0 ]; then
      key=${x%%=*}
      value=`printenv &quot;$key&quot;`
      if [ $? -eq 0 ]
      then
        echo [$key]=&quot;'$value'&quot;
      fi
    fi
    # end of function definition
    if [ &quot;$x&quot; = '}' ]; 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
. &quot;$@&quot; &gt;/dev/null

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

#Print out the modulefile
echo &quot;#%Module 1.0&quot;

#Prefix
[ -n &quot;$prefix&quot; ] &amp;&amp; echo -e &quot;\nset prefix $prefix\n&quot;

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

#New keys
for key in &quot;${!env2[@]}&quot;
do
  if [ &quot;$key&quot; = OLDPWD ]
  then
    continue
  fi
  #Use prepend-path for new paths
  if [ &quot;${key: -4}&quot; = PATH -o &quot;${key: -4}&quot; = DIRS -o &quot;${key: -4}&quot; = FILES ]
  then
    # TODO - Need to handle stripping of default MANPATH
    echo -e &quot;prepend-path\t${key}\t&quot;$(dedup ${env2[$key]})
  else
    if [ -n &quot;$prefix&quot; ]
    then
      echo -e &quot;setenv\t\t${key}\t${env2[$key]}&quot; | sed -e s,$prefix,\$prefix,g
    else
      echo -e &quot;setenv\t\t${key}\t${env2[$key]}&quot;
    fi
  fi
done
) | sort
# vim:set tabstop=2 shiftwidth=2 expandtab autoindent:
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Fshare%2FModules%2Fbin' class='btn'>Cancel</a>
        </form>