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

---

scripting2Suite.utilities.fixOpmlLinks

on fixOpmlLinks (username) {
	<<Changes
		<<6/14/10; 3:37:07 AM by DW
			<<Created. 
	local (adrdata = scripting2suite.inituser (username));
	on visit (adrstory) {
		scripting2Suite.server.initStory (adrstory);
		if not defined (adrstory^.urlOpml) {
			local (opmlpath = string.popsuffix (adrstory^.path) + ".opml");
			scripting2Suite.writeStaticFile (username, opmlpath, adrstory^.opmltext);
			adrstory^.urlOpml = string.popsuffix (adrstory^.url) + ".opml";
			msg (adrstory^.urlOpml);
			filemenu.savemyroot (adrstory)};
		return (true)};
	local (adrnext = nil);
	mainresponder.calendar.visitreversechronologic (@adrdata^.calendar, @visit);
	filemenu.savemyroot (adrdata)};
bundle { //test code
	fixOpmlLinks ("davewiner")}

---

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.