Documentation Source Text

Check-in [53dab205ad]
Login

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.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 53dab205ad5819ab3c8784fe293a0f0f1c724582f6237ea7dd086dd97ca8e91d
User & Date: drh 2018-02-23 21:41:55.694
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
Unified Diff Ignore Whitespace Patch
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 {} {
︙︙