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

proc wapp-cache-control {x} {
  wapp-reply-extra Cache-Control $x
}

# Redirect to a different web page
#
proc wapp-redirect {uri} {

  wapp-reply-code {307 Redirect}
  wapp-reply-extra Location $uri
}

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

>
|

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

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