From ba80e7cb63de2c073b18147f4482c208439925f9 Mon Sep 17 00:00:00 2001 From: hobbs Date: Mon, 21 May 2001 22:31:01 +0000 Subject: * tests/httpd (httpdRespond): added response to timeout value in query string. --- tests/httpd | 3 +++ 1 file changed, 3 insertions(+) diff --git a/tests/httpd b/tests/httpd index e5fa282..fa553d6 100644 --- a/tests/httpd +++ b/tests/httpd @@ -183,6 +183,9 @@ proc httpdRespond { sock } { append html "

Query

\n
\n" foreach {key value} [split $data(query) &=] { append html "
$key
$value\n" + if {$key == "timeout"} { + after $value ;# pause + } } append html
\n } -- cgit v0.12