Saturday, April 02, 2011 at 9:21 PM.

---

rssToBlogSuite.postToText

on postToText (adrblog, adrpost) {
	<<Changes
		<<3/10/11; 4:00:23 PM by DW
			<<Created. 
	local (s = string (adrblog^.prefs.postTemplate), t);
	new (tabletype, @t);
	on decode (s) {
		return (xml.entitydecode (s, flAlphaEntities:true))};
	on getval (name, adrval) {
		try {
			adrval^ = decode (xml.getvalue (@adrpost^.itemdata, name))}};
	t.title = ""; t.link = ""; t.description = ""; t.domain = "";;
	getval ("title", @t.title);
	getval ("link", @t.link);
	getval ("description", @t.description);
	bundle { //set t.domain
		local (url = t.link);
		getval ("linkFull", @url);
		try {
			local (ul = string.urlsplit (url));
			t.domain = string.lower (ul [2]);
			if t.domain beginswith "www." {
				t.domain = string.delete (t.domain, 1, 4)}}
		else {
			t.domain = ""}};
			<<config.rsstoblog.stats.adrerrorpost = adrpost //3/12/11 by DW
			<<config.rsstoblog.stats.error = tryerror
			<<config.rsstoblog.stats.whenlasterror = clock.now ()
	<<edit (@adrpost^.itemdata)
	s = string.multiplereplaceall (s, @t, false, "<%", "%>");
	return (s)};
bundle { //test code
	postToText (@config.rssToBlog.blogs.["linkblog.xml"], @config.rssToBlog.blogs.["linkblog.xml"].calendar.["2011"].["03"].["10"].["00066"])}

---

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.