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
38
39
40
41
42
43
44
45
46
47
48
|
::clay::define ::httpd::content.redirect {
method reset {} {
###
# Inject the location into the HTTP headers
###
my variable reply_body
set reply_body {}
my reply replace [my HttpHeaders_Default]
my reply set Server [my <server> clay get server/ string]
set msg [my clay get LOCATION]
my reply set Location [my clay get LOCATION]
set code [my clay get REDIRECT_CODE]
if {$code eq {}} {
set code 301
}
my reply set Status [list $code [my http_code_string $code]]
}
method content {} {
set template [my <server> template redirect]
set msg [my clay get LOCATION]
set HTTP_STATUS [my reply get Status]
my puts [subst $msg]
}
}
::clay::define ::httpd::content.cache {
method Dispatch {} {
my variable chan
my wait writable $chan
chan configure $chan -translation {binary binary}
chan puts -nonewline $chan [my clay get cache/ data]
}
}
::clay::define ::httpd::content.template {
method content {} {
if {[my request get HTTP_STATUS] ne {}} {
my reply set Status [my request get HTTP_STATUS]
}
set request [my request dump]
dict with request {}
my puts [subst [my <server> template [my clay get template]]]
}
}
|
