Posted to tcl by aspect at Tue May 30 11:42:03 GMT 2017view raw

  1. set httpdFile ~/Tcl/Env/src/tcl/tests/httpd
  2.  
  3. package require Thread
  4. package require http
  5.  
  6. set httpthread [thread::create -preserved]
  7. thread::send $httpthread [list source $httpdFile]
  8. thread::send $httpthread {httpd_init 0; set port} port
  9.  
  10. set url http://localhost:$port/
  11.  
  12. set before [chan names]
  13. set token [http::geturl $url -headers {X-Connection keep-alive}]
  14. parray $token
  15. http::cleanup $token
  16. update
  17. set after [chan names]
  18.  
  19. puts "before = $before"
  20. puts "after = $after"
  21.