Wapp

Check-in [142baa4cbd]
Login

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

Overview
Comment:Comment changes. Code is unaltered.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 142baa4cbd65b5cc874dc6dd731a2109461288d04b6af25c68cd94964d7ef3de
User & Date: drh 2018-01-29 23:42:23.411
Context
2018-01-30
00:36
Add the tableajax01.tcl example script (check-in: 5bace79173 user: drh tags: trunk)
2018-01-29
23:42
Comment changes. Code is unaltered. (check-in: 142baa4cbd user: drh tags: trunk)
21:55
Add wapp-cache-control. (check-in: 815db10773 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to wapp.tcl.
︙︙
21
22
23
24
25
26
27




28
29
30
31
32
33
34

# same.  The only difference is in how wapp-safety-check deals with these
# procs during analysis.
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt
}




proc wapp-unsafe {txt} {
  global wapp
  dict append wapp .reply $txt
}

# Append text after escaping it for HTML.
#








>
>
>
>








21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

# same.  The only difference is in how wapp-safety-check deals with these
# procs during analysis.
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt
}

############################ Begin Deprecated Interfaces ######################
# Add text to the page under construction.  Do no escaping on the text.
#
proc wapp-unsafe {txt} {
  global wapp
  dict append wapp .reply $txt
}

# Append text after escaping it for HTML.
#
︙︙
49
50
51
52
53
54
55

56
57
58
59
60
61
62

#      wapp-escape-url TEXT
#      wapp-subst %url(TEXT)
#
proc wapp-escape-url {txt} {
  global wapp
  dict append wapp .reply [wappInt-enc-url $txt]
}


# The argument should be in {...}.  Substitions of %html(...) encode ...
# escaped for safe insertion into HTML.  %url(...) substitions encode the
# argument for safe insertion into query parameters of URLs.  Backslash
# substitutions are also performed, but variable substitutions are not,
# except within %html() and %url().
#








>








53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

#      wapp-escape-url TEXT
#      wapp-subst %url(TEXT)
#
proc wapp-escape-url {txt} {
  global wapp
  dict append wapp .reply [wappInt-enc-url $txt]
}
########################### End Deprecated Interfaces #########################

# The argument should be in {...}.  Substitions of %html(...) encode ...
# escaped for safe insertion into HTML.  %url(...) substitions encode the
# argument for safe insertion into query parameters of URLs.  Backslash
# substitutions are also performed, but variable substitutions are not,
# except within %html() and %url().
#
︙︙