diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-08-18 22:13:42 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-08-18 22:13:42 (GMT) |
| commit | 030a2398e019e5f2403e0a9251e6232f6722f80a (patch) | |
| tree | 80a237b8379008bf02160ab7dcb2f46e804a8ae6 /tests/httpd | |
| parent | 55bfd43c59e6f99a2a5f5d167e783b918e69e28c (diff) | |
| download | tcl-030a2398e019e5f2403e0a9251e6232f6722f80a.zip tcl-030a2398e019e5f2403e0a9251e6232f6722f80a.tar.gz tcl-030a2398e019e5f2403e0a9251e6232f6722f80a.tar.bz2 | |
Fixed httpd's abuse of the [clock] command
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/httpd b/tests/httpd index 2bef362..f41c3c1 100644 --- a/tests/httpd +++ b/tests/httpd @@ -201,7 +201,8 @@ proc httpdRespond { sock } { } else { puts $sock "HTTP/1.0 200 Data follows" } - puts $sock "Date: [clock format [clock clicks]]" + puts $sock "Date: [clock format [clock seconds] \ + -format {%a, %d %b %Y %H:%M:%S %Z}]" puts $sock "Content-Type: $type" puts $sock "Content-Length: [string length $html]" puts $sock "" |