blob: c62395623f27800a2e9492cd8dd27f24dfc4d87d [file] [log] [blame]
# register the websh command "pricelist"
web::command pricelist {
# web::put sends string to the default output channel
# (stdout in the CGI case), including HTTP headers
web::put {<tt><h2>price list</h2></tt>}
# web::cmdurl produces a URL with querystring. In this case,
# we just want to switch back to "default", that's why we omit
# an explicit command name and just use ""
web::put "<a href=\"[web::cmdurl ""]\">back</a>"
}
# register the websh command "default"
web::command default {
# welcome note
web::put {<tt><h2>hello, customer</h2></tt>}
# link to an other HTML page of this application, the price list.
# We generate the URL using web::cmdurl and specify the command
# to be used: it is called pricelist and has been defined above.
web::put "<a href=\"[web::cmdurl pricelist]\">price list</a>"
}
# do the command dispatching
# this will switch into "pricelist" or "default" depending on
# the query_string
web::dispatch