Wapp

Differences From Artifact [bc1aecfc4f]:

• File wapp.tcl — part of check-in [e89db24eca] at 2022-07-28 12:24:14 on branch trunk — Add the -debug option that causes reply content to go uncompressed. (user: drh size: 32240)

To Artifact [579960674d]:

• File wapp.tcl — part of check-in [f48c405b79] at 2022-07-28 12:41:24 on branch trunk — Fix the wapp-redirect command so that (1) it also does a wapp-reset and (2) so that it uses reply code 303 instead of 307, thus making it usable for redirect-after-POST. (user: drh size: 32253)

242
243
244
245
246
247
248

249

250
251
252
253
254
255
256

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} {
  wapp-reset
  wapp-reply-code {307 Redirect}
  wapp-reply-code {303 Redirect}
  wapp-reply-extra Location $uri
}

# Return the value of a wapp parameter
#
proc wapp-param {name {dflt {}}} {
  global wapp