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


on getSource (url, timeoutsecs) { <<returns the HTML source stored at that URL
	local (f = Netscape.getScriptPrefsFolder () + "HTML Source", s);
	appleEvent (, 'GURL', 'GURL', '----', string (url), 'dest', filespec (f), 'cwin', nil);
	local (loopstarttime = ());
	while not file.exists (f) {
		rollbeachball ();
		if ( () - loopstarttime) > timeoutsecs { <<timeout
			return ("")}};
	while file.isbusy (f) {}; (f);
	s = string ( (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.