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

---

system.verbs.apps.digg.shortUrl.create

on create (longUrl) {
	<<Changes
		<<4/2/09; 2:27:27 PM by DW
			<<Created. 
	local (apiurl = "http://services.digg.com/url/short/create?type=xml&url=" + string.urlencode (longurl));
	digg.init ();
	local (xmltext = tcp.httpreadurl (apiurl), xstruct);
	xml.compile (xmltext, @xstruct);
	<<scratchpad.xstruct = xstruct
	local (adrshorturls = xml.getaddress (@xstruct, "shorturls"));
	local (adrshorturl = xml.getaddress (adrshorturls, "shorturl"));
	config.digg.stats.ctShortUrlCreates++;
	config.digg.stats.whenLastShortUrlCreate = clock.now ();
	return (adrshorturl^.["/atts"].short_url)};
bundle { //test code
	webbrowser.openurl (create ("http://www.youtube.com/watch?v=Uwlsd8RAoqI"))}

---

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.