Fixed httpd's abuse of the [clock] command

2 files changed, 6 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 61eb568..3384da0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -13,6 +13,9 @@
 
 2004-08-18  Kevin Kenny  <kennykb@acm.org>
 
+	* tests/httpd (httpdRespond): Corrected an abuse of the [clock]
+	command that caused test failures for some values of [clock clicks].
+	
 	* doc/clock.n
 	* generic/tclBasic.c (Tcl_CreateInterp, Tcl_HideUnsafeCommands):
 	* generic/tclClock.c (all):
@@ -57,7 +60,7 @@
 	Scheffers, Peter da Silva and Richard Suchenwirth-Bauersachs.
 
 	*** POTENTIAL INCOMPATIBILITY ***
-	
+
 2004-08-16  Miguel Sofer <msofer@users.sf.net>
 
 	* doc/SetVar.3:
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 ""