Wapp

Differences From 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)

To Artifact [019cb67faf]:

• File wapp.tcl — part of check-in [b46ad175c5] at 2025-04-09 16:15:27 on branch trunk — Do not allow the content-length to be zero in a redirect. Put in some content, even if it is not used. (user: drh size: 32582)

243
244
245
246
247
248
249

250
251
252
253
254
255
256

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

>

243
244
245
246
247
248
249
250
251
252
253
254
255
256
257

  wapp-reply-extra Cache-Control $x
}

# Redirect to a different web page
#
proc wapp-redirect {uri {code {303 Redirect}}} {
  wapp-reset
  wapp-trim {Redirect to %html($uri)}
  wapp-reply-code $code
  wapp-reply-extra Location $uri
}

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