Mister Spy Say ="Hello Kids ... :D"
 
 
     ___  ____     _              _____
    |  \/  (_)   | |            /  ___|
               | .  . |_ ___| |_ ___ _ __  \ `--. _ __  _   _
                | |\/| | / __| __/ _ \ '__|  `--. \ '_ \| | | |
                | |  | | \__ \ ||  __/ |    /\__/ / |_) | |_| |
                \_|  |_/_|___/\__\___|_|    \____/| .__/ \__, |
                                                 | |     __/ |
                                                 |_|    |___/
                                       Bot Mister Spy V3

	

Mister Spy

#%Module1.0#####################################################################
##
## module-info modulefile
##
proc ModulesHelp { } {
    puts stderr "\tThis module returns all the various module-info values"
    puts stderr "\tin whatever mode you use (except in  `whatis' mode)"
    InfoOut
}

module-whatis   "returns all various module-info values"

proc InfoOut { } {
global ModulesCurrentModulefile
puts stderr     "+++ global vars +++++++++++++++++++++++++++++++"
puts stderr     "ModulesCurrentModulefile = $ModulesCurrentModulefile"
puts stderr     "+++ module-info +++++++++++++++++++++++++++++++"
puts stderr     [ concat        "flags                  = " [module-info flags]]
puts stderr     [ concat        "mode                   = " [module-info mode]]
puts stderr     [ concat        "name                   = " [module-info name]]
puts stderr     [ concat        "specified              = " [module-info specified]]
puts stderr     [ concat        "shell                  = " [module-info shell]]
puts stderr     [ concat        "shelltype              = " [module-info shelltype]]
#puts stderr    [ concat        "alias                  = " [module-info alias]]
puts stderr     [ concat        "version                = " [module-info version [module-info name]]]
puts stderr     [ concat        "user                   = " [module-info user]]
puts stderr     [ concat        "symbols                = " [module-info symbols]]
puts stderr     "+++ info ++++++++++++++++++++++++++++++++++++++"
puts stderr     [ concat        "hostname               = " [info hostname ]]
puts stderr     [ concat        "level                  = " [info level ]]
puts stderr     [ concat        "loaded null            = " [is-loaded null ]]
puts stderr     [ concat        "library                = " [info library ]]
puts stderr     [ concat        "nameofexecutable       = " [info nameofexecutable ]]
puts stderr     [ concat        "sharedlibextension     = " [info sharedlibextension ]]
puts stderr     [ concat        "tclversion             = " [info tclversion ]]
puts stderr     [ concat        "patchlevel             = " [info patchlevel ]]
puts stderr     "+++++++++++++++++++++++++++++++++++++++++++++++"
}
if {![module-info mode whatis] && ![module-info mode scan]} {InfoOut}