blob: 75aeb98c72688b8f601a7efc21493c318238022a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/depot/path/tclsh
package require cgi
cgi_eval {
source example.tcl
set boundary "ThisRandomString"
cgi_http_head {
cgi_content_type "multipart/x-mixed-replace;boundary=$boundary"
puts \n--$boundary
cgi_content_type
}
cgi_title "Multipart example - 1st page"
cgi_body {
h4 "This is an example of [italic server-push] as implemented
by the multipart MIME type. In contrast with client-pull, push
leaves the connection open and the CGI script remains in control
as to send more information. The additional information can
be anything - this example demonstrates an entire page being
replaced."
}
puts \n--$boundary
after 5000
cgi_content_type
cgi_title "Multipart example - 2nd page"
cgi_body {
h4 "This page replaced the previous page with no action on the
client side."
}
}
|
