https://pickwiki.org/index.php?action=history&feed=atom&title=LOAD.ENV.COMMONLOAD.ENV.COMMON - Revision history2026-04-28T23:40:43ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=LOAD.ENV.COMMON&diff=1980&oldid=prevConversion script: link fix2015-02-26T23:48:55Z<p>link fix</p>
<p><b>New page</b></p><div><PRE><br />
subroutine LOAD.ENV.COMMON( flag )<br />
* Load the ENV.COMMON, if it is not already loaded<br />
* ========================================================================================<br />
* 27.Mar.2009 james: Actually call unix 'env' now in case we LOGTO (see below)<br />
* 06.May.2007 jim: Cleanup; fix comments; etc. Interesting use of 'isnull' !<br />
* 30-Dec-2006 manoj: Created<br />
* ========================================================================================<br />
*<br />
* flag : EC.RELOAD or EC.CLEAR (or no flag to load only if necessary)<br />
*<br />
* Should this be called from STD.SETUP ? (see also 'GET.REALUSER')<br />
*<br />
* ========================================================================================<br />
<br />
$include RMS.BP RMS.COMMON ;* For accessing 'USER.ID', etc; if necessary<br />
$include RMS.BP ENV.COMMON<br />
<br />
* if isnull(EC$IS.LOADED) then EC$IS.LOADED = @False<br />
if unassigned(EC$IS.LOADED) then EC$IS.LOADED = @False<br />
<br />
begin case<br />
case flag = EC.CLEAR ; gosub [[CleanEnvCommon]]<br />
case flag = EC.RELOAD ; gosub [[LoadEnvCommon]]<br />
case not( EC$IS.LOADED) ; gosub [[LoadEnvCommon]]<br />
end case<br />
<br />
return<br />
<br />
[[LoadEnvCommon]]:<br />
EC$[[SUDO_USER]] = ""<br />
<br />
* This does NOT actually do a unix 'env' !? Looks like it uses an old one; because<br />
* when you LOGTO it does NOT pick up the new PWD ?:<br />
*execute "ENV" capturing envOutput<br />
*<br />
* sooooo use THIS instead:<br />
<br />
execute \SH -c "env"\ capturing envOutput<br />
<br />
env[[LineCount]] = dcount (envOutput, @FM)<br />
for i = 1 to env[[LineCount]]<br />
envLine = envOutput<i><br />
if (envLine <> "") then<br />
envId = envLine["=",1,1]<br />
envData = ereplace (envLine, envId:"=", "")<br />
<br />
begin case<br />
case envId = "HOSTNAME" ; EC$HOSTNAME = trim(envData)<br />
case envId = "USER" ; EC$USER = trim(envData)<br />
case envId = "[[SUDO_USER]]" ; EC$[[SUDO_USER]] = trim(envData)<br />
case envId = "UVHOME" ; EC$UVHOME = trim(envData)<br />
case envId = "PWD" ; EC$PWD = trim(envData)<br />
case envId = "HOME" ; EC$HOME = trim(envData)<br />
end case<br />
end<br />
next i<br />
<br />
* Don't be fooled if we are 'sudo'ed; get the real user:<br />
<br />
if EC$[[SUDO_USER]] # "" then<br />
EC$REALUSER = EC$[[SUDO_USER]]<br />
end else<br />
EC$REALUSER = EC$USER<br />
end<br />
<br />
EC$IS.LOADED = @True<br />
<br />
return<br />
<br />
[[CleanEnvCommon]]:<br />
EC$HOSTNAME = ""<br />
EC$USER = ""<br />
EC$[[SUDO_USER]] = ""<br />
EC$UVHOME = ""<br />
EC$PWD = ""<br />
EC$HOME = ""<br />
EC$REALUSER = ""<br />
EC$IS.LOADED = @False<br />
return<br />
</PRE></div>Conversion script