Code

//Read the file line and delete the file
vFileHandle1 = FileOpen(vEnvFile)
FileSeek(vFileHandle1,0)
FileReadLn(vFileHandle1, vEnvValueString)
FileClose(vFileHandle1)
FileDelete(vEnvFile)

//Parse out the variable, from position of "=" to end of string
vLen = @Len(vEnvValueString)
vPos = @InStr(vEnvValueString,"=")

//Insertion of WriteLn lines to diagnose inconsistent output
WriteLn("1. vEnvValueString " + vEnvValueString + " had vPos value of "+ vPos)

If vPos = 0 THEN {

	WriteLn("2. vPos = zero")
	vEnvValue = "Environment variable " + vEnvVariable + " not found"
	} ELSE {

	WriteLn("3. vPos = not zero")
	vEnvValue = @MID(vEnvValueString, vPos + 1, vLen-vPos)
	}

WriteLn("4. Sending vEnvValueString = " + vEnvValue)
Return vEnvValue

End Function 

Code

/  Environment variables that need fnGetEnvVariable(vEnvVariable as String) as String included in MUD Global Code
var vComputer as String		//Environment variable for COMPUTERNAME
var vAllowFile as String	//Environment variable for SESAME_ALLOW_FILE
var vDenyFile as String		//Environment variable for SESAME_DENY_FILE
var vHelpPath as String		//Environment variable for SESAME_HELP_PATH
var vLicensePath as String	//Environment variable for SESAME_LICENSE_PATH
var vReportPath as String	//Environment variable for SESAME_REPORT_PATH
var vRootDirsPath		//Environment variable for SESAME_ROOTDIRS_PATH
var vPrintCommand as String	//Environment variable for SESAME_PRINT_COMMAND
var vPrintPreviewCommand	//Environment variable for SESAME_PRINT_PREVIEW_COMMAND

//Get Environment variables
vComputer = fnGetEnvVariable("COMPUTERNAME")
vAllowFile = fnGetEnvVariable("SESAME_ALLOW_FILE")
vDenyFile = fnGetEnvVariable("SESAME_DENY_FILE")
vHelpPath = fnGetEnvVariable("SESAME_HELP_PATH")
vLicensePath = fnGetEnvVariable("SESAME_LICENSE_PATH")

vReportPath = fnGetEnvVariable("SESAME_REPORT_PATH")
WriteLn("5. Received " + vReportPath)

vRootDirsPath = fnGetEnvVariable("SESAME_ROOTDIRS_PATH")
WriteLn("5. Received " + vRootDirsPath)

vPrintCommand = fnGetEnvVariable("SESAME_PRINT_COMMAND")
WriteLn("5. Received " + vPrintCommand)

vPrintPreviewCommand = fnGetEnvVariable("SESAME_PRINT_PREVIEW_COMMAND")
WriteLn("5. Received " + vPrintPreviewCommand)