Monday, November 08, 2010 at 12:04 AM.
system.verbs.builtins.opmlEditor.loadPartsFromFolder
on loadPartsFromFolder () {
<<Changes
<<9/21/10; 9:26:54 AM by DW
<<Use opmlEditor.loadPartFromFile to load the files.
<<9/18/10; 11:15:09 AM by DW
<<Init the parts folder here, only if user.opmlEditor.prefs.flLoadPartsFromFolder is true. You don't get the folder (could be confusing) until you turn the feature on.
<<9/18/10; 8:11:33 AM by DW
<<Created.
if user.opmlEditor.prefs.flLoadPartsFromFolder {
local (f);
if not defined (user.opmlEditor.prefs.partsFolder) {
user.opmlEditor.prefs.partsFolder = frontier.getsubfolder ("/ops/drop new parts here/")};
fileloop (f in user.opmlEditor.prefs.partsFolder) {
opmlEditor.loadPartFromFile (f);
file.delete (f)}}};
<<bits = string.replaceAll (bits, cr + lf, cr)
<<bits = string.replaceAll (bits, lf, cr)
<<if fatPages.getPageAtts (@bits, @atts)
<<if defined (atts.pageData)
<<local (x = atts.objectType, objectType)
<<local (prefix = "application/x-frontier-")
<<if x beginsWith prefix
<<objectType = string.delete (x, 1, sizeof (prefix))
<<local (data = binary (base64.decode (atts.pageData)))
<<setBinaryType (@data, objectType)
<<table.surePath (string (atts.adrPageData))
<<unpack (@data, atts.adrPageData)
<<bundle //log it
<<local (htmltext = "Loaded part \"" + atts.adrPageData + ".\" Size = " + sizeof (data) + " bytes.")
<<log2.add ("OPML Editor", "Load", htmltext, startticks)
bundle { //test code
loadPartsFromFolder ()}
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.