16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# to enable in-line CSS. In-line CSS is off by default.
#
# Also notice that the "wapp-allow-xorigin-params" command had to be used
# to enable users to manually add new color= query parameters.
#
package require wapp
proc wapp-default {} {
wapp-content-security-policy {default_src 'self' 'inline'}
wapp-allow-xorigin-params
set fd [open [wapp-param SCRIPT_FILENAME] rb]
set script [read $fd]
close $fd
set self [wapp-param SELF_URL]
wapp-trim {
<html>
|
|
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# to enable in-line CSS. In-line CSS is off by default.
#
# Also notice that the "wapp-allow-xorigin-params" command had to be used
# to enable users to manually add new color= query parameters.
#
package require wapp
proc wapp-default {} {
wapp-content-security-policy {default-src 'self' 'unsafe-inline'}
wapp-allow-xorigin-params
set fd [open [wapp-param SCRIPT_FILENAME] rb]
set script [read $fd]
close $fd
set self [wapp-param SELF_URL]
wapp-trim {
<html>
|