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


on compile (adrservice, flSaveData, adrStoryArrivedCallback) {
		<<10/20/02; 9:07:01 AM by DW
			<<Created. Handle a <redirect> element, per the specification:
	local (adrxstruct = @adrservice^.xmlstruct);
	local (adrredirect = xml.getAddress (adrxstruct, "redirect"));
	local (redirecturl = xml.getValue (adrredirect, "newLocation"));
	adrservice^.urlChanged = redirecturl;
	return (true)}
<<bundle //test code
	<<local (url = "")
	<<xml.aggregator.readservice (url,
	<<local (adrservice = xml.rss.initService (url,
	<<adrservice^.xmltext = tcp.httpReadUrl (url)
	<<xml.compile (adrservice^.xmltext, @adrservice^.xmlstruct)
	<<compile (adrservice, true, @xml.aggregator.storyArrivedCallback)

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.