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

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)