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

---

system.verbs.builtins.xml.examples.siteChanges.report

local (reportText = "", indentlevel = 0);
on add (s) {
	reportText = reportText + string.filledstring ("\t", indentlevel) + s + "\r\n\r\n"};

local (adrtable = parentof (this^));
add ("Pages in the Fat Pages site that changed"); indentlevel++;

local (adrsite = xml.getAddress (@adrtable^.tableStructure, "site"));
local (updatelist = xml.getAddressList (adrsite, "update"));
local (updateitem, filelist, fileitem, url);
for updateitem in updatelist {
	filelist = xml.getAddressList (updateitem, "file");
	for fileitem in filelist {
		url = xml.getValue (fileitem, "url");
		if url beginsWith "fatpages/" {
			add ("http://www.scripting.com/" + url); indentlevel++;
			add (xml.getValue (fileitem, "modDate")); indentlevel--}}};

wp.newtextobject (reportText, @adrtable^.reportText)

---

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.