From bb1a19339451ed3e322d37dda4445b3da0032003 Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Fri, 4 Jan 2019 13:59:40 +0100
Subject: [PATCH] Report Modules env variable on config --dump-state

Report the list of the environment variables related to Modules in an
additionnal table displayed on the --dump-state action of the 'config'
sub-command.
---
 modulecmd.tcl.in | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/modulecmd.tcl.in b/modulecmd.tcl.in
index e19973a3..d9b296a6 100644
--- a/modulecmd.tcl.in
+++ b/modulecmd.tcl.in
@@ -9069,6 +9069,20 @@ proc cmdModuleConfig {dump_state} {
          append displist [format {%-25s %s} $var $val] \n
       }
       report $displist 1
+      reportSeparateNextContent
+
+      # report environment variable set related to Modules
+      displayTableHeader hi {Env. variable} 24 {Value} 54
+      set envvar_list {}
+      foreach var [list LOADEDMODULES _LMFILES_ MODULE* *_modshare *_modquar\
+         *_module*] {
+         set envvar_list [concat $envvar_list [array names ::env -glob $var]]
+      }
+      unset displist
+      foreach var [lsort -unique $envvar_list] {
+         append displist [format {%-25s %s} $var $::env($var)] \n
+      }
+      report $displist 1
    }
 }