Wapp

Differences From Artifact [4737e5460e]:

• File wapp.tcl — part of check-in [1e5ec777a7] at 2018-03-09 17:49:38 on branch trunk — Improve %string() to escape < so that </script> does not cause problems in embedded javascript. Improve %html() to escape " and \ to avoid problems with HTML used inside a javascript string. (user: drh size: 27913)

To Artifact [6ac881d9ed]:

• File wapp.tcl — part of check-in [9ca390e69f] at 2018-05-01 21:03:50 on branch trunk — Add a "package require Tcl 8.6", suggested by AKU. (user: drh size: 27937)

12
13
14
15
16
17
18

19
20
21
22
23
24
25

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


# 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"
#
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