envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-18 00:06:53 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Warn when evaluate a nearly-forbidden module

Browse Source 
Produce a warning message when a module with *nearly-forbidden* is
evaluated. Message produced indicate the date time starting when module
will effectively be forbidden.
This commit is contained in:
Xavier Delaruelle
2020-08-26 08:00:56 +02:00
parent a87706dcfd
commit e8d656d0dd
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modulecmd.tcl.in
View File

@@ -1237,6 +1237,12 @@ proc getForbiddenMsg {mod} {
return $msg
}
proc getNearlyForbiddenMsg {mod} {
set after [getModuleTagProp $mod nearly-forbidden after]
set msg "Access to module will be denied starting '$after'"
return $msg
}
########################################################################
# Use a subordinate Tcl interpreter to execute modulefiles
#
@@ -1427,6 +1433,11 @@ proc execute-modulefile {modfile modname modspec {must_have_cookie 1}} {
reportDebug "sourcing $modfile"
# inform that access to module will be soon denied
if {[isModuleTagged $modname nearly-forbidden]} {
reportWarning [getNearlyForbiddenMsg $modname]
}
if {![info exists ::g_modfileUntrackVars]} {
# list variable that should not be tracked for saving
array set ::g_modfileUntrackVars [list ModulesCurrentModulefile 1\