Wapp

Check-in [f48c405b79]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: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.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f48c405b7913257faba8b33855f7663ec54f86dbc9cd0a7aa43364e7613e7a41
User & Date: drh 2022-07-28 12:41:24.499
Context
2022-07-28
12:56
Update the built-in SQLite to the latest 3.40.0 alpha. (check-in: 6bc7d7957f user: drh tags: trunk)
12:41
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. (check-in: f48c405b79 user: drh tags: trunk)
12:24
Add the -debug option that causes reply content to go uncompressed. (check-in: e89db24eca user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to wapp.tcl.
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