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

---

radio2Suite.utilities.shortenLast50

<<Changes
	<<2/21/11; 12:01:44 PM by DW
		<<Utility script to shorten the last 50 links in my linkblog.
local (adruser = @config.radio2.users.dave);
local (adrcal = @adruser^.feeds.["linkblog.xml"].calendar, ct = 0);
on visit (adrpost) {
	if defined (adrpost^.link) {
		if not defined (adrpost^.linkShortened) {
			adrpost^.linkShortened = radio2suite.shortener.create (adrpost^.link, adruser);
			ct++}};
	return (ct <= 50)};
mainresponder.calendar.visitReverseChronologic (adrcal, @visit)

---

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.