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

---

system.verbs.builtins.radio.upstream.builtinDrivers.xmlStorageSystem.deleteMultipleFiles

on deleteMultipleFiles (fileslist, adrspec, adrresponse) {
	with adrspec^ {
		local (password = string (user.radio.prefs.passwords.[passwordName]));
		local (relativepathlist = {});
		bundle { //fill relativepathlist
			local (adrfile);
			for adrfile in fileslist {
				local (f = nameof (adrfile^));
				local (relativePath = adrfile^.relativePath);
				bundle { //hack up the path, sometimes the extension was changed as it was upstreamed
					local (url = adrfile^.upstream.url);
					local (renderedFileExtension = string.nthfield (url, ".", string.countfields (url, ".")));
					relativePath = string.popSuffix (relativePath) + "." + renderedFileExtension};
				relativepathlist = relativepathlist + {relativePath}}};
		if sizeof (fileslist) == 1 {
			msg ("Deleting 1 file on " + adrspec^.server + ".")}
		else {
			msg ("Deleting " + sizeof (fileslist) + " files on " + adrspec^.server + ".")};
		local (flerror, message, urllist);
		local (data = adrspec^); data.fldebug = false;
		xmlStorageSystem.deleteMultipleFiles (usernum, password, relativepathlist, adrresponse, adrdata:@data, flShowMessages:false);
		msg ("")}}

---

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.