Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add support for the "Test Checklist" named "0demo" in the checklist.tcl application. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 53dab205ad5819ab3c8784fe293a0f0f |
| User & Date: | drh 2018-02-23 21:41:55 |
Context
|
2018-02-25
| ||
| 01:29 | Add support for Last-Modified and If-Modified-Since in althttpd.c. check-in: 130feb0aa0 user: drh tags: trunk | |
|
2018-02-23
| ||
| 21:41 | Add support for the "Test Checklist" named "0demo" in the checklist.tcl application. check-in: 53dab205ad user: drh tags: trunk | |
| 21:18 | Add a customized version of the checklist.tcl script. check-in: 85e8a997dd user: drh tags: trunk | |
Changes
Changes to misc/checklist.tcl.
175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
foreach dbfile [lsort -decreasing [glob -nocomplain $DATADIR/*.db]] {
set name [file rootname [file tail $dbfile]]
if {[regexp {^3(\d\d)(\d\d)(\d\d)$} $name all v1 v2 v3]} {
foreach x {v1 v2 v3} {
set $x [string trimleft [set $x] 0]
if {[set $x]==""} {set $x 0}
}
set dname 3.$v1.$v2
if {$v3!="0"} {
append dname .$v3
}
} else {
continue
}
set url [wapp-param BASE_URL]/$name/index
wapp-subst {<li><a href='%url($url)'>Version %html($dname)</a>\n}
}
wapp-subst {</ol>\n}
}
# Show the CGI environment for testing purposes.
#
proc wapp-page-env {} {
|
| > > | |
175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 |
foreach dbfile [lsort -decreasing [glob -nocomplain $DATADIR/*.db]] {
set name [file rootname [file tail $dbfile]]
if {[regexp {^3(\d\d)(\d\d)(\d\d)$} $name all v1 v2 v3]} {
foreach x {v1 v2 v3} {
set $x [string trimleft [set $x] 0]
if {[set $x]==""} {set $x 0}
}
set dname "Version 3.$v1.$v2"
if {$v3!="0"} {
append dname .$v3
}
} elseif {$name=="0demo"} {
set dname "Test Checklist"
} else {
continue
}
set url [wapp-param BASE_URL]/$name/index
wapp-subst {<li><a href='%url($url)'>%html($dname)</a>\n}
}
wapp-subst {</ol>\n}
}
# Show the CGI environment for testing purposes.
#
proc wapp-page-env {} {
|