Wapp

Differences From Artifact [98f23b2160]:

• File wapp.tcl — part of check-in [cdac0cdb04] at 2024-05-19 22:08:45 on branch trunk — Fix the wapp-content-security-policy command so that it allows newline characters in the security policy input. These are removed before the security policy is added to the header. (user: drh size: 32327)

To Artifact [73baff4401]:

• File wapp.tcl — part of check-in [199a1a71c1] at 2024-09-29 22:40:27 on branch trunk — Fix is so that it runs with Tcl9. (user: drh size: 32355)

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#
package require Tcl 8.6

# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt

|

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#
if {$::tcl_version < 8.6} {package require Tcl 8.6}

# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt