Wapp

Artifact [730fc0ffb5]
Login

Artifact 730fc0ffb5adffb045875eeaf13caf9be7af7b94a394dee45c626f33c6c5e986:

Ticket change [730fc0ffb5] - Ticket [207094dd9d] Multiple request in progress can step on each others toes status still Open with 3 other changes by mjanssen 2019-07-30 19:30:38.
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<p>Visit\sthe\s<a\shref='%html([wapp-param\sBASE_URL]/slow)'>slow</a>\r\n\s\s\s\spage\sfor\sa\sslow-to-load\scase.</p>\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<h1>Slow\spage</h1>\r\n\s\s\s\s<p>x\s=\s%html($x)</p>\r\n\s\s}\r\n}\r\nwapp-start\s$argv
J login mjanssen
J mimetype text/plain
K 207094dd9de1343af9d874b8562fc1b4169c3e44
U mjanssen
Z 0a2cf9aab17bb9a20eb1d04cb95b8ab0