/ Check-in [c47e53b4]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Have wapptest.tcl display the name, OS and architecture of the host.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | wapptest
Files: files | file ages | folders
SHA3-256: c47e53b4d0f29628bd20ba3daf7e759c4bfed07710d982c095445c01376d57f5
User & Date: dan 2019-04-10 19:45:19
Context
2019-04-11
06:50
Fix the checksymbols target in Makefile.in. check-in: 1956eb34 user: dan tags: wapptest
2019-04-10
19:45
Have wapptest.tcl display the name, OS and architecture of the host. check-in: c47e53b4 user: dan tags: wapptest
18:56
Various fixes for the wapptest.tcl script. check-in: cbf42365 user: dan tags: wapptest
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/wapptest.tcl.

    39     39     # releasetest.tcl script
    40     40     set G(releaseTest) [file join [file dirname [info script]] releasetest.tcl]
    41     41   
    42     42     set G(sqlite_version) "unknown"
    43     43   
    44     44     # Either "config", "running" or "stopped":
    45     45     set G(state) "config"
           46  +
           47  +  set G(host) "(unknown host)"
           48  +  catch { set G(host) [exec hostname] } 
           49  +  append G(host) " $::tcl_platform(os) $::tcl_platform(osVersion)"
           50  +  append G(host) " $::tcl_platform(machine) $::tcl_platform(byteOrder)"
    46     51   }
    47     52   
    48     53   # Check to see if there are uncommitted changes in the SQLite source
    49     54   # directory. Return true if there are, or false otherwise.
    50     55   #
    51     56   proc check_uncommitted {} {
    52     57     global G
................................................................................
   279    284       wapp-trim {
   280    285         <div class=warning>
   281    286           WARNING: Uncommitted changes in checkout.
   282    287         </div>
   283    288       }
   284    289     }
   285    290   
          291  +  set host $G(host)
   286    292     wapp-trim {
          293  +      <div class=div>%string($host)</div>
   287    294         <div class=div id=controls> 
   288    295         <form action="control" method="post" name="control">
   289    296     }
   290    297   
   291    298     # Build the "platform" select widget. 
   292    299     set lOpt [array names ::Platforms]
   293    300     generate_select_widget Platform control_platform $lOpt $G(platform)