httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From fua...@apache.org
Subject svn commit: r1391772 - /httpd/httpd/trunk/docs/cgi-examples/printenv.vbs
Date Sat, 29 Sep 2012 08:29:20 GMT
Author: fuankg
Date: Sat Sep 29 08:29:20 2012
New Revision: 1391772

URL: http://svn.apache.org/viewvc?rev=1391772&view=rev
Log:
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.

Modified:
    httpd/httpd/trunk/docs/cgi-examples/printenv.vbs

Modified: httpd/httpd/trunk/docs/cgi-examples/printenv.vbs
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/docs/cgi-examples/printenv.vbs?rev=1391772&r1=1391771&r2=1391772&view=diff
==============================================================================
--- httpd/httpd/trunk/docs/cgi-examples/printenv.vbs (original)
+++ httpd/httpd/trunk/docs/cgi-examples/printenv.vbs Sat Sep 29 08:29:20 2012
@@ -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
-



Mime
View raw message