Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Use "info command" instead of "info proc". Ticket [88807f83a6d9ddfd] |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
359e3e19e98e678137a38d75929722e3 |
User & Date: | drh 2019-07-30 15:34:14.939 |
Context
2019-07-30
| ||
15:35 | Documentation updates. No changes to code. (check-in: c366208c59 user: drh tags: trunk) | |
15:34 | Use "info command" instead of "info proc". Ticket [88807f83a6d9ddfd] (check-in: 359e3e19e9 user: drh tags: trunk) | |
2019-06-13
| ||
14:24 | Add a link to the "Simple Live Demos" page to the README.md file. (check-in: 4d00e13e65 user: drh tags: trunk) | |
Changes
Changes to wapp.tcl.
︙ | ︙ | |||
327 328 329 330 331 332 333 | # containing warnings. Return an empty string if all is ok. # # This routine is advisory only. It misses some constructs that are # dangerous and flags others that are safe. # proc wapp-safety-check {} { set res {} | | | 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 | # containing warnings. Return an empty string if all is ok. # # This routine is advisory only. It misses some constructs that are # dangerous and flags others that are safe. # proc wapp-safety-check {} { set res {} foreach p [info command] { set ln 0 foreach x [split [info body $p] \n] { incr ln if {[regexp {^[ \t]*wapp[ \t]+([^\n]+)} $x all tail] && [string index $tail 0]!="\173" && [regexp {[[$]} $tail] } { |
︙ | ︙ | |||
687 688 689 690 691 692 693 | # request. If an error occurs while running that procedure, generate # an HTTP reply that contains the error message. # wapp-before-dispatch-hook wappInt-trace set mname [dict get $wapp PATH_HEAD] if {[catch { | | | 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 | # request. If an error occurs while running that procedure, generate # an HTTP reply that contains the error message. # wapp-before-dispatch-hook wappInt-trace set mname [dict get $wapp PATH_HEAD] if {[catch { if {$mname!="" && [llength [info command wapp-page-$mname]]>0} { wapp-page-$mname } else { wapp-default } } msg]} { if {[wapp-param WAPP_MODE]=="local" || [wapp-param WAPP_MODE]=="server"} { puts "ERROR: $::errorInfo" |
︙ | ︙ |