Changed WScript.Echo to WScript.StdOut.WriteLine because

WScript.Echo seems to mess up output with Locale;
avoid Split() usage since it seems not consistent with
all versions.

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1391772 13f79535-47bb-0310-9956-ffa450edef68

diff --git a/docs/cgi-examples/printenv.vbs b/docs/cgi-examples/printenv.vbs
index 2b37b47e79b4cc8fab49be59443058afd30bd432..ba8bcbc0ac68ce0a7d822b737ccd9ed4a24be588 100644 (file)
--- a/docs/cgi-examples/printenv.vbs
+++ b/docs/cgi-examples/printenv.vbs
@@ -12,21 +12,18 @@
 ''
 Option Explicit
 
-Dim objShell, objArray, str, env
+Dim objShell, objArray, str, envvar, envval
 Set objShell = CreateObject("WScript.Shell")
 Set objArray = CreateObject("System.Collections.ArrayList")
 
-Wscript.Echo "Content-type: text/plain; charset=iso-8859-1" & vbLF
+WScript.StdOut.WriteLine "Content-type: text/plain; charset=iso-8859-1" & vbLF
 For Each str In objShell.Environment("PROCESS")
-  env = Split(str, "=", 2)
-  env(1) = Replace(env(1), vbLF, "\n")
-  objArray.Add env(0) & "=" & Chr(34) & env(1) & Chr(34)
+  objArray.Add str
 Next
 objArray.Sort()
 For Each str In objArray
-  WScript.Echo str
+  envvar = Left(str, InStr(str, "="))
+  envval = Replace(Mid(str, InStr(str, "=") + 1), vbLF, "\n")
+  WScript.StdOut.WriteLine envvar & Chr(34) & envval & Chr(34)
 Next
 
-'WScript.Echo ScriptEngine & " Version=" & ScriptEngineMajorVersion & "." & _
-'             ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
-