1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# This script demonstrates a Wapp application that can display a copy
# of itself via the /self page. (See the wapp-page-self procedure for
# how that one page is generated.)
#
# This script also has a homepage and an /env page that show the wapp
# environment. The header and footer for each page is broken out into
# separate subroutines.
#
# Just for grins, there is also a style-sheet.
#
package require wapp
proc common-header {} {
wapp-trim {
<html>
<head>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
|
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# This script demonstrates a Wapp application that can display a copy
# of itself via the /self page. (See the wapp-page-self procedure for
# how that one page is generated.)
#
# This script also has a homepage and an /env page that show the wapp
# environment. The header and footer for each page is broken out into
# separate subroutines.
#
# Just for grins, there is also a style-sheet and some cache-control
# lines to show how those things work.
#
package require wapp
proc common-header {} {
wapp-trim {
<html>
<head>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
proc common-footer {} {
wapp-trim {
</body>
</html>
}
}
proc wapp-default {} {
common-header
wapp-trim {
<h1>Wapp Self-Display Demo</h1>
<ul>
<li> <a href='%url([wapp-param SCRIPT_NAME])/self'>Show the script
that generates this page</a>
<li> <a href='%url([wapp-param SCRIPT_NAME])/env'>Wapp Environment</a>
</ol>
}
common-footer
}
proc wapp-page-env {} {
common-header
wapp-trim {
<h1>Wapp Environment</h1>
<pre>%html([wapp-debug-env])</pre>
}
common-footer
}
proc wapp-page-self {} {
common-header
set fd [open [wapp-param SCRIPT_FILENAME] rb]
set script [read $fd]
close $fd
wapp-trim {
<h1>Wapp Script That Shows A Copy Of Itself</h1>
<pre>%html($script)</pre>
}
common-footer
}
proc wapp-page-style.css {} {
wapp-mimetype text/css
wapp-trim {
pre {
border: 1px solid black;
padding: 1ex;
}
}
}
wapp-start $argv
|
>
>
>
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
proc common-footer {} {
wapp-trim {
</body>
</html>
}
}
proc wapp-default {} {
wapp-cache-control max-age=3600
common-header
wapp-trim {
<h1>Wapp Self-Display Demo</h1>
<ul>
<li> <a href='%url([wapp-param SCRIPT_NAME])/self'>Show the script
that generates this page</a>
<li> <a href='%url([wapp-param SCRIPT_NAME])/env'>Wapp Environment</a>
</ol>
}
common-footer
}
proc wapp-page-env {} {
common-header
wapp-trim {
<h1>Wapp Environment</h1>
<pre>%html([wapp-debug-env])</pre>
}
common-footer
}
proc wapp-page-self {} {
wapp-cache-control max-age=3600
common-header
set fd [open [wapp-param SCRIPT_FILENAME] rb]
set script [read $fd]
close $fd
wapp-trim {
<h1>Wapp Script That Shows A Copy Of Itself</h1>
<pre>%html($script)</pre>
}
common-footer
}
proc wapp-page-style.css {} {
wapp-mimetype text/css
wapp-cache-control max-age=3600
wapp-trim {
pre {
border: 1px solid black;
padding: 1ex;
}
}
}
wapp-start $argv
|