Wish the web server handles route {/program/(.*)$} with handler { set programName $1 set match [QueryOne! $programName has program code /programCode/] if {$match eq ""} { html "Program not found: [htmlEscape $programName]" return } html [subst { [htmlEscape $programName]

[htmlEscape $programName]

[htmlEscape $match(programCode)]

}] }