Have wapptest.tcl display the name, OS and architecture of the host.

FossilOrigin-Name: c47e53b4d0f29628bd20ba3daf7e759c4bfed07710d982c095445c01376d57f5

diff --git a/manifest b/manifest
index 6ce69b7e05f94d8674be63f5eacdc771342580e7..8375e5d017b12a02f7e6449bd08dbffcb045fe12 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Various\sfixes\sfor\sthe\swapptest.tcl\sscript.
-D 2019-04-10T18:56:30.771
+C Have\swapptest.tcl\sdisplay\sthe\sname,\sOS\sand\sarchitecture\sof\sthe\shost.
+D 2019-04-10T19:45:19.357
 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
 F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
 F LICENSE.md df5091916dbb40e6e9686186587125e1b2ff51f022cc334e886c19a0e9982724
@@ -1651,7 +1651,7 @@ F test/walslow.test c05c68d4dc2700a982f89133ce103a1a84cc285f
 F test/walthread.test 14b20fcfa6ae152f5d8e12f5dc8a8a724b7ef189f5d8ef1e2ceab79f2af51747
 F test/walvfs.test c0faffda13d045a96dfc541347886bb1a3d6f3205857fc98e683edfab766ea88
 F test/wapp.tcl b440cd8cf57953d3a49e7ee81e6a18f18efdaf113b69f7d8482b0710a64566ec
-F test/wapptest.tcl e2eedf5a63cb22c51c2d19b5d192c901d55cd691ff1c28ffca9f15674a9826ea x
+F test/wapptest.tcl e2ceb8d8e2d36fabb2717c52488fd3a5a59f7810b255e0f455dc0326de69ba0f x
 F test/where.test 0607caa5a1fbfe7b93b95705981b463a3a0408038f22ae6e9dc11b36902b0e95
 F test/where2.test 478d2170637b9211f593120648858593bf2445a1
 F test/where3.test 2341a294e17193a6b1699ea7f192124a5286ca6acfcc3f4b06d16c931fbcda2c
@@ -1817,8 +1817,7 @@ F vsixtest/vsixtest.tcl 6a9a6ab600c25a91a7acc6293828957a386a8a93
 F vsixtest/vsixtest.vcxproj.data 2ed517e100c66dc455b492e1a33350c1b20fbcdc
 F vsixtest/vsixtest.vcxproj.filters 37e51ffedcdb064aad6ff33b6148725226cd608e
 F vsixtest/vsixtest_TemporaryKey.pfx e5b1b036facdb453873e7084e1cae9102ccc67a0
-P a4af0c2fee05aaa2e95ae6a5c847ff2d363e24f325f4ffdcf51bc264b9bf5e2d
-R 405204ee657d743c9c004fd0b9e7ec67
-T +closed cabb6489f0c1a31c817ca19ff2c6bd116848e73d13dc2ddf4f61de86619515bc
+P cbf423656047f0cb5200be6981a205e0ae206eef8263aa686f4a3621fb07fb57
+R 7eca61acc97179ed46c0187409e26485
 U dan
-Z 1bc937cc049ea25e5bc28d800c0060d1
+Z 0d7fd24e7057770008ab50d80da83648

diff --git a/manifest.uuid b/manifest.uuid
index 29edfac8c519619e85409ac414ab946042383462..00a17206ab51ea978de520b1495fa241bd428ddf 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-cbf423656047f0cb5200be6981a205e0ae206eef8263aa686f4a3621fb07fb57
\ No newline at end of file
+c47e53b4d0f29628bd20ba3daf7e759c4bfed07710d982c095445c01376d57f5
\ No newline at end of file

diff --git a/test/wapptest.tcl b/test/wapptest.tcl
index 3dbbe95b347ba302b5abd6f058ae95665953678a..708561d79dbb8a70a85d36817d77a422f1ed0612 100755 (executable)
--- a/test/wapptest.tcl
+++ b/test/wapptest.tcl
@@ -43,6 +43,11 @@ proc wapptest_init {} {
 
   # Either "config", "running" or "stopped":
   set G(state) "config"
+
+  set G(host) "(unknown host)"
+  catch { set G(host) [exec hostname] } 
+  append G(host) " $::tcl_platform(os) $::tcl_platform(osVersion)"
+  append G(host) " $::tcl_platform(machine) $::tcl_platform(byteOrder)"
 }
 
 # Check to see if there are uncommitted changes in the SQLite source
@@ -283,7 +288,9 @@ proc generate_main_page {{extra {}}} {
     }
   }
 
+  set host $G(host)
   wapp-trim {
+      <div class=div>%string($host)</div>
       <div class=div id=controls> 
       <form action="control" method="post" name="control">
   }