Wapp

Check-in [d8cc844e83]
Login

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

Overview
Comment:Use 307 instead of 302 to redirect.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d8cc844e834484dece9467cf6188f205c51269d2b90cb02e4a5a90813eb57f0a
User & Date: drh 2018-01-30 19:09:52.620
Context
2018-01-30
19:37
Update the documentation page to remove all references to the ::Wapp dict. Describe the wapp-set-param, wapp-param-list, and wapp-param-exists interfaces used as an alternative to direct ::Wapp dict access. (check-in: 91b5a1ed09 user: drh tags: trunk)
19:09
Use 307 instead of 302 to redirect. (check-in: d8cc844e83 user: drh tags: trunk)
19:07
Add routines wapp-set-param, wapp-param-exists, and wapp-param-list which together eliminate the need to access the global ::wapp dict. (check-in: f9a0146ed6 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to wapp.tcl.
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
proc wapp-cache-control {x} {
  wapp-reply-extra Cache-Control $x
}

# Redirect to a different web page
#
proc wapp-redirect {uri} {
  wapp-reply-code {302 found}
  wapp-reply-extra Location $uri
}

# Return the value of a query parameter or environment variable.
#
proc wapp-param {name {dflt {}}} {
  global wapp







|







209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
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 query parameter or environment variable.
#
proc wapp-param {name {dflt {}}} {
  global wapp