Monday, November 08, 2010 at 12:06 AM.

---

system.verbs.builtins.tcp.examples.httpPostTest

local (ct=0, statenum = 1, s);
loop {
	local (query = string (system.verbs.builtins.tcp.examples.xmlQuery));
	query = string.replace (query, "xxx", string (statenum++));
	if statenum > 50 {
		statenum = 1};
	s = tcp.httpClient (method:"POST", server:"betty.userland.com", port:81, path:"xmlGateway", data:query, datatype:"text/xml", debug:true);
	if ct == 0 {
		edit (@scratchpad.httpCommand);
		edit (@scratchpad.httpResult);
		window.about ()};
	msg (ct++)}

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.