241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
-
+
-
+
|
#
proc wapp-cache-control {x} {
wapp-reply-extra Cache-Control $x
}
# Redirect to a different web page
#
proc wapp-redirect {uri} {
proc wapp-redirect {uri {code {303 Redirect}}} {
wapp-reset
wapp-reply-code {303 Redirect}
wapp-reply-code $code
wapp-reply-extra Location $uri
}
# Return the value of a wapp parameter
#
proc wapp-param {name {dflt {}}} {
global wapp
|