D 2019-07-30T19:30:38.592 J icomment It's\ssome\sweird\sinteraction\swith\sthe\sTcl\shttp\spackage.\r\n\r\nYour\sadapted\sscript\sbelow\sreproduces\sthe\sissue\sfor\sme\swhereas\syour\soriginal\sscript\sdoesn't.\r\n\r\nsource\s./wapp.tcl\r\n###\r\npackage\srequire\shttp\r\nproc\swapp-default\s{}\s{\r\n\s\swapp-trim\s{\r\n\s\s\s\s

Visit\sthe\sslow\r\n\s\s\s\spage\sfor\sa\sslow-to-load\scase.

\r\n\s\s}\r\n}\r\nproc\swapp-page-slow\s{}\s{\r\n\s\s###\r\n\s\sset\stok\s[http::geturl\s"http://www.google.com"]\r\n\s\shttp::cleanup\s$tok\r\n\s\sset\sx\s[expr\s{abs(int(rand()*100000))}]\r\n\s\sfor\s{set\si\s0}\s{$i<20000000}\s{incr\si}\s{\r\n\s\s\s\sset\sx\s[expr\s{$x+1}]\r\n\s\s}\r\n\s\swapp-trim\s{\r\n\s\s\s\s

Slow\spage

\r\n\s\s\s\s

x\s=\s%html($x)

\r\n\s\s}\r\n}\r\nwapp-start\s$argv J login mjanssen J mimetype text/plain K 207094dd9de1343af9d874b8562fc1b4169c3e44 U mjanssen Z 0a2cf9aab17bb9a20eb1d04cb95b8ab0