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

---

system.verbs.builtins.webserver.util.readUntil

<<Script: system.verbs.builtins.webserver.util.readUntil; Version 1; Date: Fri, 15 May 1998 07:55:53 GMT; ID: RAB
on readUntil (stream, pattern, timeoutSecs=10) {
	<<March 19, 1998 at 5:02:05 PM by WMF
		<<This script reads data from a TCP stream until the pattern is encountered
		<<It returns the data that was read, including the pattern
		<<Extra data after the pattern may be returned
		<<An error will be thrown if no data arrives before the timeout expires
	local (bytes = 0, data = "", timeout);
	
	timeout = clock.ticks () + 60 * timeoutSecs; // convert to ticks
	
	while (string.patternmatch (pattern, data) == 0) {
		<<we haven't read in enough data yet
		if (clock.ticks () > timeout) { // the client timed out
			scriptError ("The connection timed out before the pattern was found.")};
		case tcp.statusStream (stream, @bytes) {
			"DATA" {
				data = data + tcp.readStream (stream, bytes);
				timeout = clock.ticks () + 60 * timeoutSecs}; // extend the timeout
			"OPEN" {
				sys.systemTask(); //yield a little within this thread for the system
				thread.sleepfor (1)}; //yield this thread for a second to allow normal frontier processing
			"INACTIVE";
			"CLOSING";
			"CLOSED" {
				scriptError ("The connection broke before the pattern was found.")}}};
	return (data)}

---

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.