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

---

system.verbs.builtins.fatPages.getHttp

on getHttp (url, adr=nil) {
	<<Changes
		<<4/8/02; 12:55:16 PM by DW
			<<Created. Load a fatpage file over HTTP. 
			<<If the address is not supplied, load the object into the address specified in the fatpage file; if it is specified, load it into that location.
			<<I found I was writing this code over and over. Paving a cowpath.
	local (s = tcp.httpReadUrl (url));
	local (atts);
	if not fatPages.getPageAtts (@s, @atts) {
		fatPages.noObjectError (f)};
	if not defined (atts.pageData) {
		fatPages.noObjectError (url:url)};
	if adr == nil {
		adr = atts.adrPageData};
	fatPages.unpackOdbObject (@atts, adr, flEdit:false);
	return (adr)}
<<bundle //test code
	<<getHttp ("http://nyt.weblogs.com/homepage.fttb", @scratchpad.nytHeadlines)

---

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.