Wapp

Differences From Artifact [67ee06bfe9]:

• File wapp.tcl — part of check-in [3b1ce7c023] at 2024-11-22 16:04:42 on branch trunk — Improved error message when unauthorized characters are used in the request URI. (user: drh size: 32531)

To Artifact [d5cc2f37f5]:

• File wapp.tcl — part of check-in [98bf94e32b] at 2025-04-04 14:55:48 on branch trunk — Enhance the wapp-redirect command so that you can add an optional result code value (ex: 301) to override the default HTTP reply code of 303. (user: drh size: 32544)

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} {
  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

|

|

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

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