# Websh script
web::initializer {
# code only evaled when interpreter is run for the first request
proc page {code} {
web::put "
sample mod_websh App
Welcome to Websh
"
uplevel $code
web::put {
Back to index.html
}
}
proc requestCounter {} {
web::put "This is request [web::interpcfg numreq] in this specific interpreter
"
}
}
web::command default {
page {
web::put "Main page
"
web::put "Link to other page
"
requestCounter
}
}
web::command other {
page {
web::put "Other page
"
web::put "Back to main page
"
requestCounter
}
}
web::dispatch