738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
|
}
dict unset wapp .new-cookies
}
wapp-before-reply-hook
# Transmit the HTTP reply
#
if {$chan=="stdout"} {
puts $chan "Status: [dict get $wapp .reply-code]\r"
} else {
puts $chan "HTTP/1.1 [dict get $wapp .reply-code]\r"
puts $chan "Server: wapp\r"
puts $chan "Connection: close\r"
}
if {[dict exists $wapp .reply-extra]} {
foreach {name value} [dict get $wapp .reply-extra] {
puts $chan "$name: $value\r"
}
|
>
>
>
>
>
>
|
|
|
|
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
|
}
dict unset wapp .new-cookies
}
wapp-before-reply-hook
# Transmit the HTTP reply
#
set rc [dict get $wapp .reply-code]
if {$rc=="ABORT"} {
# If the page handler invokes "wapp-reply-code ABORT" then close the
# TCP/IP connection without sending any reply
wappInt-close-channel $chan
return
} elseif {$chan=="stdout"} {
puts $chan "Status: $rc\r"
} else {
puts $chan "HTTP/1.1 $rc\r"
puts $chan "Server: wapp\r"
puts $chan "Connection: close\r"
}
if {[dict exists $wapp .reply-extra]} {
foreach {name value} [dict get $wapp .reply-extra] {
puts $chan "$name: $value\r"
}
|