Tuesday, August 18, 2009 at 7:33 PM.

---

newsRiverSuite.readingList.unsubscribe

on unsubscribe (urlReadingList) {
	<<Changes
		<<1/14/06; 5:45:52 PM by DW
			<<Created. This is what happens when you unsubscribe from a reading list. 
	local (adrdata = newsRiverSuite.init ());
	local (adrlist = @adrdata^.newsRiver.readingLists.[urlReadingList], adr);
	for adr in @adrlist^.feeds {
		local (xmlurl = nameof (adr^));
		local (adrservice = @adrdata^.services.[xmlurl]);
		if defined (adrservice^) {
			try {delete (@adrservice^.readingList.[urlReadingList])};
			try {
				if (sizeof (adrservice^.readingList) == 0) and (not adrservice^.flManualSub) {
					local (name = "Untitled service", startticks = clock.ticks ());
					try {name = adrservice^.compilation.channeltitle};
					xml.aggregator.unsubscribeservice (xmlurl);
					log.addtooutline ("Unsubscribe: " + name, outlineUrl:xmlurl, startticks:startticks)}}}};
	delete (adrlist)};
bundle { //test code
	unsubscribe ("http://downloads.oreilly.com/make/philliptorrone.opml")}

---

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.