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.