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