Posted to tcl by patthoyts at Sat Nov 21 22:10:13 GMT 2009view pretty
Index: Wub/Httpd.tcl =================================================================== --- Wub/Httpd.tcl (revision 2074) +++ Wub/Httpd.tcl (working copy) @@ -359,6 +359,9 @@ set si "The Wub" } append header "Server: $si" \r\n + dict for {k v} [dict get? $reply -headers] { + append header $k ": " $v \r\n + } } # add in cookies already formatted up p