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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
359e3e19e98e678137a38d75929722e3 |
| User & Date: | drh 2019-07-30 15:34:14 |
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
334
335
336
337
338
339
340
341
...
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
|
# 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 procs] {
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]
} {
................................................................................
# 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 proc 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"
|
|
|
|
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
...
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
|
# 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]
} {
................................................................................
# 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"
|