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

---

newsRiverSuite.menuCommands.subscribe

<<Changes
	<<1/17/06; 7:20:08 PM by DW
		<<Made reading-list-aware.
local (adrdata = newsRiverSuite.init ());
if dialog.ask ("URL of feed:", @adrdata^.newsRiver.lastFeedSubUrl) {
	local (url = adrdata^.newsRiver.lastFeedSubUrl, errorstring = "", adrservice);
	if newsRiverSuite.readingList.opmlSubscribe (url, @title, @adrservice, @errorstring) {
		if sizeof (errorstring) == 0 {
			dialog.notify ("Subscribed to reading list \"" + adrservice^.title + ".\"")}
		else {
			scripterror (errorstring)}}
	else {
		if xml.aggregator.subscribeService (url, @errorstring, @adrservice) {
			dialog.notify ("Subscribed to \"" + adrservice^.compilation.channeltitle + ".\"")}
		else {
			scriptError (errorstring)}};
	adrdata^.newsRiver.flSubscriptionListDirty = true}

---

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.