Changeset dd3248c in tol

Timestamp:

Jun 20, 2009, 10:18:20 AM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

f6289e7

Parents:

5fb8032

Message:

Patch GetComputerName to avoid fail in GetEnv

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1100 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/tol_tests/_testFunc.tol (modified) (1 diff)

tol/stdlib/general/tol_tests/_testFunc.tol

@@ -16 +16 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Text If(OSName=="UNIX",GetEnv("HOSTNAME"),GetEnv("COMPUTERNAME"))
+  Text If(OSName=="UNIX",
+  {
+    //No funciona GetEnv en Linux
+    //GetEnv("HOSTNAME")
+    OSCmdWait("echo $HOSTNAME > HOSTNAME.txt");
+    ReadFile("HOSTNAME.txt")
+  },
+  {
+    GetEnv("COMPUTERNAME")
+  })
 };