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

---

system.verbs.apps.Netscape.getSource

on getSource (url, timeoutsecs) { <<returns the HTML source stored at that URL
	local (f = Netscape.getScriptPrefsFolder () + "HTML Source", s);
	appleEvent (netscape.id, 'GURL', 'GURL', '----', string (url), 'dest', filespec (f), 'cwin', nil);
	
	local (loopstarttime = clock.now ());
	while not file.exists (f) {
		rollbeachball ();
		if (clock.now () - loopstarttime) > timeoutsecs { <<timeout
			return ("")}};
	while file.isbusy (f) {};
	
	file.open (f);
	s = string (file.read (f, infinity));
	file.close (f);
	file.delete (f);
	return (s)}

---

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.