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

---

system.verbs.builtins.tcp.examples.whoIs

on whois (domain, server = "rs.internic.net") {
	local (stream =tcp.openStream (server, 43));
	local (s = "", bytespending);
	tcp.writeStream (stream, domain + "\r\n");
	loop {
		case tcp.statusStream (stream, @bytespending) {
			"CLOSING";
			"CLOSED";
			"INACTIVE" {
				break};
			"DATA" {
				s = s + tcp.readStream (stream, bytespending)}}};
	tcp.closeStream (stream);
	return (s)};
bundle { <<test code
	if dialog.ask ("Who is?", @scratchpad.whois) {
		wp.newtextobject (whois (scratchpad.whois), @scratchpad.theyare);
		edit (@scratchpad.theyare)}}

---

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.