hOmX VV FFFF000000060001001777AA000000000065000000001001710000001-7FFF6FBE1800000480048061C200-1061C222FFFF0103650000100000036000000010654084061C1813C028C0001161CC9000020000006A0000000065,This tool is designed to export your weblog posts from your weblogData.root to individual text files.00040000000900000002067000050000000A0000000201670000600000031000000010920FFFF0900000 20 00070000003500000002010180A10 1018000080000009A0000000140,Verdana40,401C230 100009000000150000000239C17D39C17D000A000000150000000261C22261C222000B00000005000000020000C0000001500000001651B2211C32000F0000002100000000400 10 00130000007E00000000DA91F8CE1C1D1E1F7F1B044,-..'"FFFF0FFFF0FFFE000000060001001777AATTe3xG  VTռV  "9 EQ ]} V author Andy Fragen authorEmailandy@thefragens.com description homePageUrlhttp://thefragens.com/weblogname Export Weblog releaseDateversion0.52 Verdana TԻT'LANDmac This script runs every hour. Verdana TԻT'LANDmac This script runs every minute. Verdana TԻT'LANDmac This script runs every night. {w.TԻT  ". 9 everyHourpt everyMinutep everyNightp{ TԻT TԻT TԻT nj.TԻT  ' ,fileMenupradiop userp Kn~Verdana TT'LANDmac Changes Created from installCodeFreshener script by AJF on 8/4/03; 11:46:07 PM. 9/26/02; 12:23:22 AM by AJF Add new tool tables. 1/15/02; 5:21:20 PM by DW Runs on the user's machine, when refreshing. local (adrtable = @system.temp.exportWeblogSnapshot) exportWeblogData = adrtable^.data exportWeblogInfo = adrtable^.info exportWeblogSuite = adrtable^.suite exportWeblogThread = adrtable^.thread exportWeblogWebsite = adrtable^.website filemenu.savemyroot (@exportWeblogSuite) local (x=string.parseAddress (@exportWeblogSuite), f = x[1]) frontier.tools.install (f) dialog.notify ("Thanks for updating to version " + exportWeblogInfo.version + " of exportWeblog.root Tool!") N Verdana TT'n|LANDmac Changes Created from installCodeFreshener script by AJF on 8/4/03; 11:46:10 PM. 1/15/02; 5:18:06 PM by DW This is the Refresh menu command. local (url = "http://radio.weblogs.com/0001017/publicTools/exportWeblog/codeFreshener.fttb") local (urllist = string.urlsplit (url)) local (s = tcp.httpclient (server:urllist [2], path:urllist [3])) local (f=frontier.pathstring + "codeFreshener.fttb") file.writewholefile (f, s) fatpages.importfatfile (f) thread.callscript (@system.temp.exportWeblogSnapshot.loader, {})  uVerdana TûT'LANDmac if dialog.confirm ("Get the newest code for exportWeblog.root Tool?") exportWeblogSuite.codeFreshener.refreshCode() *!Verdana TûTqXqLANDmac Changes Created from installCodeFreshener script by AJF on 8/4/03; 11:46:12 PM. 1/15/02; 5:08:55 PM by DW Created. I run this on my machine to create a package for refreshCode to load. Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it. local (oldexportWeblogData) bundle //get exportWeblogData ready for ship oldexportWeblogData = exportWeblogData new (tabletype, @exportWeblogData) exportWeblogThread.enabled = true exportWeblogThread.ct = 0 exportWeblogInfo.releaseDate = clock.now() local (adrtable = @system.temp.exportWeblogSnapshot) new (tabletype, adrtable) adrtable^.data = exportWeblogData adrtable^.info = exportWeblogInfo adrtable^.suite = exportWeblogSuite adrtable^.thread = exportWeblogThread adrtable^.website = exportWeblogWebsite adrtable^.loader = exportWeblogSuite.codeFreshener.loadNewCode local (f = radio.file.getSubFolder ("publicTools/exportWeblog") + "codeFreshener.fttb") file.surefilepath (f) export.sendobject (adrtable, f) f = radio.file.getSubFolder ("publicTools/exportWeblog") + "exportWeblog.root" target.set (this) fileMenu.saveCopy (f) exportWeblogData = oldexportWeblogData dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f))) *8TT  $0 @L [ loadNewCodep refreshCodep refreshCodeMenupxreleaseNewCodep}  Verdana T=!ecLANDmac #title "exportWeblog Docs" #renderOutlineWith "fatHeadlines" Documentation by Andy Fragen. What does this Tool do? This tool will create an individual text file for each post that you have. The file will contain the post's title, creation date and body. If you are exporting to a Blosxom weblog then meta tags can be inserted with the meta-markup: textile2 and meta-creation_date: timestamp headers. This is because that's what I use. If you don't use textile markup then uncheck that preference. If you are exporting to a simple text file then just below the title a line reporting the original posting date will be created. If you are exporting to a Movable Type weblog there are preferences to accomplish this. How do I use it? This tool is activated from the "Export" menu item. Select your preferences from the \"Preferences" menu. You must select whether or not you are exporting to a Blosxom weblog. A check mark next to the "Blosxom" menu item indicates yes. If unchecked, then you will export to a plain text file. If you want to change the folder you wish to save all the exported files to then select "Change Folder..." You must select whether or not you want <p> and </p> tags stripped from your post's text. A check indicates yes. "Add Meta Tags" will cause certain meta tags to be inserted after the title. A check indicates conversion to using "Textile Markup". To use with Blosxom go here. Only a few types of markup are converted. <blockquote > and <pre><code> combinations are currently converted. The "Add Meta Tags" pref will, by necessity, also need to be checked. This should occur automatically. "Create Summary" will create a summary.txt file with the file names and weblogData.post number listed. This will help if identical file names occur and overwriting of files happens. "Debug" adds info from the Radio post into the newly created file for debugging purposes. "Movable Type" will list prefererences for comments and trackbacks. It is very likely that you will need to do some further editing of these newly created files. I did not take into account everything that may make these file appear strange so manual editing will be required. Hopefully you won't have to do too much. Can I use it to export to other formats? If you would send me examples of other file formats, like MT or others I should be able to add these to the tool. But since I've never used these tools I don't know how to format their posts. SVerdana 3-Rȼn1X^-LANDmac This script is designed to export all weblog posts from weblogData.posts to individual text files. The purpose is to export to blosxom. local (f, s, cD, ct = 0, sT = "", pc = file.getPathChar(), fPath) if not file.exists(exportWeblogData.folderPath) file.newFolder(exportWeblogData.folderPath) file.sureFolder(exportWeblogData.folderPath + "exportedPosts" + pc) fPath = exportWeblogData.folderPath + "exportedPosts" + pc create content into variable s on addText (t) if exportWeblogData.isBlosxom s = s + (t + lf); else s= s + (t + cr); create summary content into variable sT on addSummary (t) if exportWeblogData.isBlosxom if exportWeblogData.flSummary sT = sT + (t + lf); else if exportWeblogData.flSummary sT = sT + (t + cr); for adrItem in @weblogData.posts local (postTitle = "", postFN = "", postText = "", postCategory = "") ct++ s = "" cD = adrItem^.when for adrCat in @adrItem^.categories if defined (adrCat) postCategory = nameOf(adrCat^) bundle //make title and file name if defined (adrItem^.title) postTitle = searchEngine.stripMarkup(string(adrItem^.title)) postFN = string.delete(string.dropNonAlphas(string.innerCaseName(postTitle)), 25, infinity) + ".txt" else postTitle = searchEngine.stripMarkup(string.firstSentence(string(adrItem^.text))) postFN = string.delete(string.dropNonAlphas(string.innerCaseName(postTitle)), 25, infinity) + ".txt" if defined (adrCat^) file.sureFolder(fPath + postCategory + pc) f = fPath + postCategory + pc + postFN else f = fPath + postFN if exportWeblogData.isBlosxom addText(postTitle) bundle //add post meta headers for Blosxom if exportWeblogData.isBlosxom //adding meta headers for blosxom if exportWeblogData.flAddMeta addText("meta-creation_date: " + cD) if exportWeblogData.ifTextile //add meta header for textile markup addText("meta-markup: textile2") else addText("") addText("originally posted: " + cD) addText("") bundle //add Moveable Type headers if exportWeblogData.isMT addText("TITLE: " + postTitle) addText("DATE: " + cD) addText("AUTHOR: " + exportWeblogData.blogAuthor) addText("CATEGORY: " + postCategory) addText("STATUS: publish") bundle //MT pings if exportWeblogData.allowPings addText("ALLOW PINGS: 1") else addText("ALLOW PINGS: 0") bundle //MT comments if exportWeblogData.allowComments addText("ALLOW COMMENTS: 1") else addText("ALLOW COMMENTS: 0") addText("-----") addText("BODY:") postText = string(adrItem^.text) bundle //fix certain things from the post if exportWeblogData.stripPTags postText = string.replaceAll(postText, "

", "", false) postText = string.replaceAll(postText, "

", "", false) postText = string.replaceAll(postText, "

", "", false) postText = string.replaceAll(postText, "

", "", false) postText = string.replaceAll(postText, "
", "
", false) postText = string.replaceAll(postText, exportWeblogData.oldBaseUrl, exportWeblogData.baseUrl) bundle //convert to Textile markup if exportWeblogData.ifTextile postText = string.replaceAll(postText, "

", "bq. ", false) postText = string.replaceAll(posttext, "
", "", false) postText = string.replaceAll(postText, "
", "bc. ", false)
			postText = string.replaceAll(postText, "
", "", false) if exportWeblogData.isBlosxom //delete all cr postText = string.replaceAll(postText, cr, "") addText(postText) bundle //close MT post if exportWeblogData.isMT addText("--------") bundle //create summary.txt content if exportWeblogData.flSummary addSummary(postFN + ":" + string.popFileFromAddress(adrItem)) bundle //extra stuff for testing if exportWeblogData.flDebug addText("") addText("Testing Info:") addText(string.popFileFromAddress(adrItem)) addText("File Name: " + postFN) addText("Post title: " + postTitle) addText("Folder Path: " + f) addText("Creation Data: " + cD) addText(ct + " posts created.") break bundle //make text file if exportWeblogData.isBlosxom file.writeTextFile (f, s, lineEnding: "unix", creationDate: cD) else file.writeTextFile (f, s, creationDate: cD) file.setModified(f, cD) bundle //make summary file if exportWeblogData.flSummary if exportWeblogData.isBlosxom file.writeTextFile (fPath + "summary.txt", sT, lineEnding: "unix") else file.writeTextFile (fPath + "summary.txt", sT) dialog.notify ("summary.txt file created in " + fPath + " with " + ct + " entries.") dialog.notify(ct + " posts created in " + fPath) bundle //test wp.newTextObject(s, @temp.blosxomPost) edit(@temp.blosxomPost) Verdana T˼/#__gLANDmac bundle //define booleans if not defined (exportWeblogData.isBlosxom) exportWeblogData.isBlosxom = true if not defined (exportWeblogData.flAddMeta) exportWeblogData.flAddMeta = true if not defined (exportWeblogData.ifTextile) exportWeblogData.ifTextile = true if not defined (exportWeblogData.isMT) exportWeblogData.isMT = false if not defined (exportWeblogData.allowPings) exportWeblogData.allowPings = true if not defined (exportWeblogData.allowComments) exportWeblogData.allowComments = true if not defined (exportWeblogData.stripPTags) exportWeblogData.stripPTags = true if not defined (exportWeblogData.flDebug) exportWeblogData.flDebug = false if not defined (exportWeblogData.flSummary) exportWeblogData.flSummary = false bundle //ask questions if not defined (exportWeblogData.folderPath) file.getFolderDialog ("Where to save new files?", @exportWeblogData.folderPath) if not defined (exportWeblogData.baseUrl) dialog.ask ("What is your new or current base URL?", @exportWeblogData.baseUrl) if not defined (exportWeblogData.blogAuthor) dialog.ask ("Who is the blog author?", @exportWeblogData.blogAuthor) if not defined (exportWeblogData.oldBaseUrl) dialog.ask ("What is your old base URL?", @exportWeblogData.oldBaseUrl) Verdana TTdTs'LANDmac exportWeblogSuite.export ()  VVerdana TMqZ'LANDmac exportWeblogData.isBlosxom = !exportWeblogData.isBlosxom exportWeblogData.isMT= false  Verdana TM'LANDmac exportWeblogData.flAddMeta = !exportWeblogData.flAddMeta if not exportWeblogData.flAddMeta exportWeblogData.ifTextile = false   QVerdana TMqv'LANDmac exportWeblogData.isBlosxom = false exportWeblogData.isMT= !exportWeblogData.isMT :Verdana TM"'LANDmac exportWeblogData.allowPings= !exportWeblogData.allowPings @Verdana TM"'LANDmac exportWeblogData.allowComments= !exportWeblogData.allowComments ;Verdana TTUTv'LANDmac exportWeblogData.stripPTags = !exportWeblogData.stripPTags zVerdana [H'LANDmac exportWeblogData.ifTextile = !exportWeblogData.ifTextile if exportWeblogData.ifTextile exportWeblogData.flAddMeta = true 9Verdana TM'LANDmac exportWeblogData.flSummary = !exportWeblogData.flSummary 5Verdana TM'LANDmac exportWeblogData.flDebug = !exportWeblogData.flDebug KVerdana TTITl'LANDmac file.getFolderDialog ("Choose a new folder", @exportWeblogData.folderPath) FVerdana TI/'LANDmac dialog.ask ("Choose a new blog author", @exportWeblogData.blogAuthor) ZVerdana TȻT'LANDmac if dialog.confirm ("Get the newest code?"){exportWeblogSuite.codeFreshener.refreshCode()} 7Verdana TԼ'LANDmac ExportWeblog Export Preferences Blosxom =exportWeblogSuite.menuCheckText("Blosxom", exportWeblogData.isBlosxom) =exportWeblogSuite.menuCheckText("Add Meta Tags", exportWeblogData.flAddMeta) Movable Type =exportWeblogSuite.menuCheckText("Movable Type", exportWeblogData.isMT) =exportWeblogSuite.menuCheckText("Allow Pings", exportWeblogData.allowPings) =exportWeblogSuite.menuCheckText("Allow Comments", exportWeblogData.allowComments) =exportWeblogSuite.menuCheckText("Strip

tags", exportWeblogData.stripPTags) =exportWeblogSuite.menuCheckText("Textile Markup", exportWeblogData.ifTextile) =exportWeblogSuite.menuCheckText("Create Summary", exportWeblogData.flSummary) =exportWeblogSuite.menuCheckText("Debug", exportWeblogData.flDebug) Change Folder... Change Author... Refresh Code... ? @ A B C{ D? E E F G H` I5 JpJVerdana Ep>Arial BB"LANDmac on menuCheckText (s, pref) if pref s = "!" + s return (s) L\ $$ /SbaseUrl $blosxom::url folderPath TVerdana WW'LANDmac path alias plat 43Traveller:Users:afragen:Sites:blosxom:importedfiles   Traveller: importedfiles importedfiles Traveller3Traveller:Users:afragen:Sites:blosxom:importedfilesmac ifTextile isBlosxom oldBaseUrl http://radio.weblogs.com/0001017 stripPTagsVVerdana 2@x Verdana TջT'LANDmac This script returns a string which appears in the Status Center on the Radio UserLand home page. return ("Save your posts as individual text files.") VRtTԻ\  !- ;G LX _k p| backgroundl callbacks w codeFreshenerdocsfexport$init9menuO menuCheckTextPmyDataPstatusCenterMessageSVh$Verdana TջTLANDmac This script runs in its own thread. loop //loop until the application quits Add your code here. thread.sleepFor (10) //sleep for ten seconds exportWeblogThread.enabled = false exportWeblogSuite.init () hTP.TռV ctenabledscriptV~TtArial FF2LANDmac on finalFilter (pta) pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "") return (true) ����������������������������� ���-����Geneva���������������������������� ��������������Eu`Q�������2LAND������mac ������������on firstFilter (adrPageTable) return (true) �����������������������*��[����Geneva���������������������������� ��������������Eu7a���m���L�3*lLAND������mac ������������on pageFilter (pta) if typeOf (pta^.template) == outlineType or typeOf (pta^.template) == wpTextType table.assign (@pta^.template, string (pta^.template)) if typeOf (pta^.template) == stringType and not pta^.indirectTemplate pta^.template = string.replace (pta^.template, "<title>", "[[title]]") html.addPageToGlossary (pta) return (true) �����������������������������������������������y���.���EF�������� ���� ��� ����$���0 ����; finalFilter����p��XR firstFilter����p��Y\ pagefilter����p��Z��VGeneva���������������������������� �����������P�E��$����������������������������H�������D������7T�������� ����url���http://127.0.0.1/exportWeblog/���H���n�����������������TL������VArial����������������������������� ������������������������������������������������n����������W����������������������space���/GIFfGIF89a�������!����,�������D�;��VArial����������������������������� ������������������������������������������������������������V��������������� ������� �������"�������+ ����0���: ����C���L ����Q���[ ����aalink���008000bgcolor���FFFFFFflRenderlink���0000FFspaceGif���spacetext���000000vlink���800080��VArial����������������������������� ��������������������������������������������������n�����������������8>������VArial����������������������������� ������������������������������������������������n��������������0����Verdana��������������������������� ��������������TϻT�����LAND������mac ������������return (renderObject (@exportWeblogSuite.docs)) ����������@����������V���7T��������� ���� ��� �������* ����4���@ ����H���T ����[���g ����n���z ����#filters�������\"#ftpSite�������] #glossary�������]U#images�������]#prefs�������^#tools�������_index�������`1��VVerdana��������������������������� ������������??8������������������������@�� ����������B���TӼV�������� ������� ����.���: ����L���X ����k���w ����exportWeblogData��������XexportWeblogInfo�������[exportWeblogSuite�������UexportWeblogThread�������WexportWeblogWebsite�������`��V Lucida Grande���������������������������������=��.������������������������ ��Q���Verdana��������������������������� ��������������TӼM�����'�LAND������mac ������������exportWeblogData exportWeblogInfo author authorEmail description homePageUrl name releaseDate version exportWeblogSuite background callbacks codeFreshener loadNewCode refreshCode refreshCodeMenu releaseNewCode docs export init menu menuCheckText myData statusCenterMessage exportWeblogThread exportWeblogWebsite �����>0:x������������������>0:x�������������������>0:|��������������������>0:|��������������������>0:|��������������������>0:|��������������������>0:|��������������������>0:|��������������������>0:|�������������������>0:x������������������>0=T������������������>0=T������������������>0=T�������������������>0=p��������������������>0=p��������������������>0=p��������������������>0=p��������������������>0=T��������������������>0=T��������������������>0=T��������������������>0=T��������������������>0=T�������������������>0=T�������������������>0=T�������������������>0:x������������������>0:x��������������� ���������b7@x Lucida Grande���������������������� ���������������� Lucida Grande���������������������� �����������������J��Geneva����������������������������� ����������������^} Lucida Grande���������������������� ����������������mn Lucida Grande���������������������� ���������������� Lucida Grande���������������������� ��������������������������������������������������������������������������������