X0GenevaȜȝtnLANDmac Changes 8/13/08; 2:14:44 PM by DW When the tool is installed, its prefs page opens. wordPressSuite.init () opmlEditor.prefs.openToolPage ("wordpress") 0zGeneva~MW kmLANDmac WordPress This page lets you configure the WordPress Tool to work with your WordPress weblog.

<%wordPressSuite.init (); radio.prefs.stringPref ("Weblog URL", @user.wordpress.prefs.homePageUrl)%> <%radio.prefs.stringPref ("Username", @user.wordpress.prefs.username, size:30)%> <%if html.getpagetableaddress ()^.method != "POST" {system.temp.newsRiver.repeatedPassword = user.wordpress.prefs.password}; ""%> <%radio.prefs.stringPref ("Password", @system.temp.newsRiver.repeatedPassword, type:"password", size:30)%> <%radio.prefs.stringPref ("Repeat Password", @user.wordpress.prefs.password, type:"password", size:30)%> <%try {delete (@system.temp.newsRiver.repeatedPassword)}; ""%>
<%wordPressSuite.validateLogin ()%> $datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJU$N5NK  001user.wordPress002system.temp.wordPressVGeneva|=8MȜ  %1 ;flUpdate onInstallXprefs uninstallsVGeneva|= P 40 prefs4oVȣ  !9 E ȣ  author Dave Winer authorEmaildave.winer@gmail.com description7Create and edit Wordpress blog posts in the OPML Editor homePageUrlWhttp://wordpressroot.wordpress.com/2008/08/09/writing-for-wordpress-in-the-opml-editor/name WordPress releaseDateversion0.53VGeneva{Zw.G4.ics4ics4  ݬ    ics8ics8V+++V++VVVV+VVVV++VVicspoundDics#87/_bFuu5-YK3 8VGeneva W|}w:bmp BM66(rrr000 HHHiii@@@llloooPPP ```ppp$$$*** '''333     !"# $%&' ()'*+,-%& .  /%  011022:H$rY mac Xwindows VGeneva ]&]/GenevaLANDmac wordPressSuite.addPostCategory ("OPML Editor") 1GenevaLANDmac wordPressSuite.addPostCategory ("Uncategorized") 2GenevaLANDmac wordPressSuite.addPostCategory ("wordPress.root") <@Geneva L7LANDmac Right-Click Menu OPML Editor Uncategorized wordPress.root -   CpvXGeneva vpT$>  icon!rightClickMenuVGeneva ~@:=9 metaWeblogPost`{=VGeneva_cLANDmac on any (pta) //boilerplate for your responder pta^.responseHeaders.["Content-Type"] = "text/html" pta^.code = 200 //everything was OK pta^.responseBody = "" //build response return (true) V2. any~2. <D L condition.(string.lower (path) beginsWith "/wordpress/")enabledmethods`    Geneva*c+9LANDmac on addPostCategory (catname) local (oldcursor = op.getcursor (), atts) op.go (left, infinity) op.attributes.getall (@atts) if defined (atts.category) atts.category = atts.category + ";" + catname else atts.category = catname op.attributes.addgroup (@atts) bundle //test code if dialog.ask ("Category?", @scratchpad.lastCategory) addPostCategory (scratchpad.lastCategory) WdatatablG33 createdSun, 11 Dec 2005 19:00:03 GMTWdatatablGqq createdSun, 11 Dec 2005 19:01:05 GMTWdatatablGww createdSun, 11 Dec 2005 19:01:11 GMTWdatatablG createdSun, 11 Dec 2005 19:01:21 GMTWdatatablG createdSun, 11 Dec 2005 19:01:30 GMTWdatatablG createdSun, 11 Dec 2005 19:01:28 GMTWdatatablG createdSun, 11 Dec 2005 19:01:30 GMTWdatatablG createdSun, 11 Dec 2005 19:01:36 GMTWdatatablGHH createdSun, 11 Dec 2005 19:00:24 GMTWdatatablGMM createdSun, 11 Dec 2005 19:00:29 GMTGenevaѿ_cLANDmac This script runs every hour. EGeneva,[#LANDmac Changes 8/9/08; 7:52:12 AM by DW Created. wordPressSuite.init () Genevaѿ_cLANDmac This script runs every night. {w.ѿ  ". 9 everyHour everyMinute i everyNight!J{-GenevaLDC<LANDmac thread.callScript (@wordPressSuite.save, {}) GenevaLLLANDmac Changes 8/9/08; 7:33:39 AM by DW Insert a new headline to the right when creating a new post. wordPressSuite.init () if dialog.ask ("Title for new post?", @user.wordpress.prefs.lastNewPostTitle) op.firstsummit () if op.getlinetext () == "" op.setlinetext (user.wordpress.prefs.lastNewPostTitle) else op.insert (user.wordpress.prefs.lastNewPostTitle, up) local (atts) new (tabletype, @atts) atts.type = "metaWeblogPost" atts.whenCreated = clock.now () atts.blogname = user.wordPress.prefs.currentBlog atts.id = -1 //hasn't been saved yet op.attributes.addgroup (@atts) op.insert ("", right) //8/9/08 by DW wp.settextmode (true) //8/9/08 by DW WdatatablG createdWed, 23 Nov 2005 16:51:04 GMTWdatatablG,, createdWed, 23 Nov 2005 16:51:56 GMTWdatatablG66 createdWed, 23 Nov 2005 16:52:06 GMTWdatatablG?? createdWed, 23 Nov 2005 16:52:15 GMTWdatatablGUU createdWed, 23 Nov 2005 16:52:37 GMTWdatatablGWW createdWed, 23 Nov 2005 16:52:39 GMTWdatatablGYY createdWed, 23 Nov 2005 16:52:41 GMTWdatatablG`` createdWed, 23 Nov 2005 16:52:48 GMTWdatatablGѿ createdWed, 23 Nov 2005 16:54:41 GMTWdatatablGdd createdWed, 23 Nov 2005 16:52:52 GMTWdatatablG createdWed, 23 Nov 2005 16:53:19 GMTWdatatablG޽޽ createdWed, 23 Nov 2005 16:54:21 GMT 9GenevaL HLANDmac local (oldcursor = op.getcursor (), atts) op.go (left, infinity) op.attributes.getall (@atts) op.setcursor (oldcursor) local (adrblog = @user.wordpress.blogs.[atts.blogname], data, struct) local (username = adrblog^.username, password = string (adrblog^.password)) local (idpost = atts.id) bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @data) data.protocol = "xml-rpc" data.port = 80 data.rpcPath = "/" + urllist [3] data.server = urllist [2] metaweblog.getPost (idpost, username, password, nil, @struct, @data) scratchpad.struct = struct edit (@scratchpad.struct) webbrowser.openurl (struct.permalink) webbrowser.bringtofront () WdatatablG createdSun, 11 Dec 2005 15:58:51 GMTWdatatablG createdSun, 11 Dec 2005 15:59:38 GMTWdatatablG createdSun, 11 Dec 2005 16:00:04 GMTWdatatablG createdSun, 11 Dec 2005 16:04:38 GMTWdatatablGzz createdWed, 23 Nov 2005 17:01:46 GMTWdatatablG createdWed, 23 Nov 2005 17:02:20 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablGAA createdSun, 04 Dec 2005 01:07:13 GMTWdatatablG## createdSun, 11 Dec 2005 16:00:35 GMTWdatatablG createdSun, 11 Dec 2005 16:04:02 GMTWdatatablG createdSun, 11 Dec 2005 16:04:13 GMT .M  ,8 F 00001000 Save"y00002000 New Post#0 00005000 View*VGeneva|=XJ ѿ ѿ ѿ nj.ѿ  ' ,fileMenu5Wradio5user5nn/GenevaȜUȣ~naLANDmac WordPress.root change notes Version 0.53, checking out the install process I hadn't actually "released" the new version yet, but people are trying it out and things aren't working as they expected. I tried downloading a fresh install and found a bunch of problems -- so let's fix them!! :-) 1. Added an onInstall script to the #installer table, it calls wordPress.init and then opens the wordPress prefs page. 2. Okay, this is what I see when I install it now. Better, but still not good. 3. Added a bunch of initializations to wordPressSuite.init, now it's cleaner. Still room for improvement, there could be a link to some docs on the Prefs page so if you don't know what's being asked for you can get an idea. Jdatatabl:$ȜdȜd Ȝd changenumcreatedzGeneva~MW3{LANDmac WordPress This page lets you configure the WordPress Tool to work with your WordPress weblog.

<%wordPressSuite.init (); radio.prefs.stringPref ("Weblog URL", @user.wordpress.prefs.homePageUrl)%> <%radio.prefs.stringPref ("Username", @user.wordpress.prefs.username, size:30)%> <%if html.getpagetableaddress ()^.method != "POST" {system.temp.newsRiver.repeatedPassword = user.wordpress.prefs.password}; ""%> <%radio.prefs.stringPref ("Password", @system.temp.newsRiver.repeatedPassword, type:"password", size:30)%> <%radio.prefs.stringPref ("Repeat Password", @user.wordpress.prefs.password, type:"password", size:30)%> <%try {delete (@system.temp.newsRiver.repeatedPassword)}; ""%>
<%wordPressSuite.validateLogin ()%> $datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ$datatablfMJMJ0r~ prefs:vVGeneva|=3ev outlines?UVGeneva|= yGeneva' lB{QLANDmac on getCategoryMenu () Changes 12/11/05; 10:25:52 AM by DW Created. local (pd) //postdata window.about () wordpresssuite.init () local (oldtarget = target.set (@user.wordPress.workspace)) wordpresssuite.getpostdata (@pd) local (thelist = metaWeblog.getCategories (pd.blogid, pd.username, pd.password, @pd.rpcdata)) local (item, cats, menuscript) new (scripttype, @menuscript) new (tabletype, @cats) target.set (@wordPressNodeTypes.metaWeblogPost.rightClickMenu) op.wipe () op.setlinetext ("Right-Click Menu"); dir = right for item in thelist op.insert (item.categoryname, dir); dir = down script.newscriptobject ("wordPressSuite.addPostCategory (\"" + item.categoryname + "\")", @menuscript) menu.setScript (@menuscript) cats.[string.padwithzeros (sizeof (cats)+1, 3)] = item if dir == down op.insert ("-", down) scratchpad.categories = cats target.set (oldtarget) dialog.notify (sizeof (thelist) + " categories received.") bundle //test code getCategoryMenu () WdatatablG.. createdSun, 11 Dec 2005 18:25:50 GMTWdatatablG00 createdSun, 11 Dec 2005 18:25:52 GMTWdatatablG createdSun, 11 Dec 2005 18:46:26 GMTWdatatablG createdSun, 11 Dec 2005 19:06:14 GMTWdatatablG createdSun, 11 Dec 2005 18:37:28 GMTWdatatablGԿ createdSun, 11 Dec 2005 18:37:08 GMTWdatatablG createdSun, 11 Dec 2005 18:46:13 GMTWdatatablGUU createdSun, 11 Dec 2005 18:30:45 GMTWdatatablGֿ createdSun, 11 Dec 2005 18:49:58 GMTWdatatablGHH createdSun, 11 Dec 2005 18:56:08 GMTWdatatablGu̿u createdMon, 05 Dec 2005 12:42:52 GMTWdatatablG## createdSun, 11 Dec 2005 18:51:15 GMTWdatatablG?? createdSun, 11 Dec 2005 18:51:43 GMTWdatatablGII createdSun, 11 Dec 2005 18:51:53 GMTWdatatablGuu createdMon, 05 Dec 2005 12:41:58 GMTWdatatablGcc createdSun, 11 Dec 2005 18:52:19 GMTWdatatablG^^ createdSun, 11 Dec 2005 18:56:30 GMTWdatatablG createdSun, 11 Dec 2005 18:53:18 GMTWdatatablGuu createdMon, 05 Dec 2005 12:42:01 GMTWdatatablG createdSun, 11 Dec 2005 19:02:57 GMTWdatatablG createdSun, 11 Dec 2005 19:03:00 GMTWdatatablGu8u8 createdMon, 05 Dec 2005 12:40:24 GMTWdatatablG createdSun, 11 Dec 2005 18:37:43 GMT b Geneva5y1OLANDmac on getPostData (adrpostdata) Changes 12/11/05; 10:39:32 AM by DW The frontmost window contains the workspace. Create a table and fill it with data about the post we're pointing to. new (tabletype, adrpostdata) local (oldcursor = op.getcursor (), atts) op.go (left, infinity) op.attributes.getall (@atts) op.setcursor (oldcursor) local (adrblog = @user.wordpress.blogs.[atts.blogname]) adrpostdata^.username = adrblog^.username adrpostdata^.password = string (adrblog^.password) adrpostdata^.postid = atts.id adrpostdata^.blogid = 1 //generalize later, if possible bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @adrpostdata^.rpcdata) adrpostdata^.rpcdata.protocol = "xml-rpc" adrpostdata^.rpcdata.port = 80 adrpostdata^.rpcdata.rpcPath = "/" + urllist [3] adrpostdata^.rpcdata.server = urllist [2] bundle //test code getPostData (@scratchpad.postdata) datatablB77  = @F K]blognamedefaultcreatedSun, 11 Dec 2005 15:51:29 GMTid17typemetaWeblogPost whenCreatedWdatatablG`` createdSun, 11 Dec 2005 18:39:28 GMTWdatatablGcc createdSun, 11 Dec 2005 18:39:31 GMTWdatatablGee createdSun, 11 Dec 2005 18:39:33 GMTWdatatablGnn createdSun, 11 Dec 2005 18:39:42 GMTWdatatablG createdSun, 11 Dec 2005 18:40:16 GMTWdatatablG createdSun, 11 Dec 2005 15:58:51 GMTWdatatablG createdSun, 11 Dec 2005 15:59:38 GMTWdatatablG createdSun, 11 Dec 2005 16:00:04 GMTWdatatablG createdSun, 11 Dec 2005 16:04:38 GMTWdatatablGzz createdWed, 23 Nov 2005 17:01:46 GMTWdatatablG createdSun, 11 Dec 2005 18:40:42 GMTWdatatablG createdSun, 11 Dec 2005 18:40:42 GMTWdatatablGͿ createdSun, 11 Dec 2005 18:41:17 GMTWdatatablGͿ createdSun, 11 Dec 2005 18:41:17 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablG createdSun, 11 Dec 2005 18:44:38 GMTWdatatablG createdSun, 11 Dec 2005 18:44:42 GMT b.Genevaڿb _rLANDmac on getPostText () Changes 12/11/05; 8:33:08 AM by DW Created. The frontmost outline contains the post. Return nicely indented HTML text derived from the post. local (indentpixels = 25) local (lo = window.frontmost ()^) local (oldtarget = target.set (@lo)) op.go (left, infinity) local (suboutline) new (outlinetype, @suboutline) op.getselectedsuboutlines (@suboutline) edit (@suboutline) target.set (@suboutline) op.promote () op.deleteline () op.fullexpand () scratchpad.suboutline = suboutline local (level = 0) local (htmltext = "") on add (s) htmltext = htmltext + s + "\r" on addLine (s) if level > 0 add ("

 " + s + "

") else add ("

" + s + "

") on visit () loop addLine (op.getLineText ()) if op.go (right, 1) > 0 level++ visit () level-- op.go (left, 1) if not op.go (down, 1) break visit () try {target.set (oldtarget)} on glossarySubstitution (s, flEncoded=false) Changes 12/29/03; 6:18:21 AM by DW Only decode/encode " -- double-quotes. 12/19/03; 6:28:21 PM by DW Created. If flEncoded is true the text is on its way out to an XML file. We first convert the "s to double-quotes, then process the glossary references, then convert the double-quotes back to ". if flEncoded s = string.replaceall (s, """, "\"") bundle //do the substitution local (pt) new (tabletype, @pt) pt.glossary = @user.html.glossary pt.adrobject = @s html.setpagetableaddress (@pt) s = html.processmacros (s) if flEncoded s = string.replaceall (s, "\"", """) s = string.replaceall (s, "<", "<") //glossary text may contain left angle brackets, they must be encoded return (s) return (glossarySubstitution (htmltext)) bundle //test code edit (@user.wordpress.workspace) webbrowser.displaytext (getPostText ()) WdatatablG createdSun, 11 Dec 2005 16:33:59 GMTWdatatablG createdSun, 11 Dec 2005 16:33:04 GMTWdatatablG¿ createdSun, 11 Dec 2005 16:33:06 GMTWdatatablGĿ createdSun, 11 Dec 2005 16:33:08 GMTWdatatablGSS createdWed, 23 Nov 2005 16:56:51 GMTWdatatablGff createdWed, 23 Nov 2005 16:57:10 GMTWdatatablG`` createdSun, 11 Dec 2005 16:35:44 GMTWdatatablG?? createdSun, 11 Dec 2005 16:18:07 GMTWdatatablG-- createdSun, 11 Dec 2005 16:17:49 GMTWdatatablG?? createdSun, 11 Dec 2005 16:18:07 GMTWdatatablGPP createdSun, 11 Dec 2005 16:26:56 GMTWdatatablGVV createdSun, 11 Dec 2005 16:27:02 GMTWdatatablG[[ createdSun, 11 Dec 2005 16:27:07 GMTWdatatablG## createdSun, 11 Dec 2005 16:26:11 GMTWdatatablG&& createdSun, 11 Dec 2005 17:17:26 GMTWdatatablG createdSun, 11 Dec 2005 16:36:34 GMTWdatatablG createdSun, 11 Dec 2005 16:36:40 GMTWdatatablG createdSun, 11 Dec 2005 16:36:44 GMT IGenevaȢ%LANDmac Changes 8/13/08; 2:38:07 PM by DW A bunch of pieces of user.wordpress.prefs weren't initialized. We fixed that. 8/9/08; 4:09:16 PM by DW Comment the "hooks into the OPML Editor" -- these are now handled by the #installer table. 8/9/08; 7:36:04 AM by DW The name of the New Entry button changed to New Post. 8/8/08; 11:21:38 AM by DW Make sure our outline is installed in the Prefs system. if not defined (user.wordPress) new (tabletype, @user.wordPress) if not defined (user.wordPress.workspace) new (outlinetype, @user.wordPress.workspace) bundle //blogs if not defined (user.wordPress.blogs) new (tabletype, @user.wordPress.blogs) if not defined (user.wordPress.blogs.default) new (tabletype, @user.wordPress.blogs.default) user.wordPress.blogs.default.url = "http://myblog.wordpress.com/xmlrpc.php" user.wordPress.blogs.default.username = "" user.wordPress.blogs.default.password = "" bundle //prefs if not defined (user.wordPress.prefs) new (tabletype, @user.wordPress.prefs) if not defined (user.wordPress.prefs.currentBlog) user.wordPress.prefs.currentBlog = "default" if not defined (user.wordpress.prefs.homePageUrl) //8/13/08 by DW user.wordpress.prefs.homePageUrl = "http://" if not defined (user.wordpress.prefs.username) //8/13/08 by DW user.wordpress.prefs.username = "" if not defined (user.wordpress.prefs.password) //8/13/08 by DW user.wordpress.prefs.password = "" bundle //hooks into the OPML Editor, 8/8/08 by DW opmlEditor.addOutlineToPrefs (@wordPressSuite.data.outlines.prefs) opmlEditor.addToolToUpdates (@wordPressInfo) bundle //deletions if defined (wordPressSuite.buttons.["00002000\tNew Entry"]) //name changed to New Post delete (@wordPressSuite.buttons.["00002000\tNew Entry"]) WdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablGhh createdTue, 22 Nov 2005 17:12:08 GMTWdatatablGhh createdTue, 22 Nov 2005 17:12:08 GMTWdatatablGhh createdTue, 22 Nov 2005 17:12:08 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMTWdatatablG󿨐 createdTue, 22 Nov 2005 17:10:11 GMT I-GenevaTbp_cLANDmac wordPressSuite.menuCommands.openWorkspace () xGeneva_cLANDmac Changes 8/9/08; 7:22:04 AM by DW Created. webbrowser.bringtofront () webbrowser.openurl (wordPressInfo.homePageUrl) "Genevah_cLANDmac wordPressSuite.getCategoryMenu () ,GenevaTYLANDmac opmlEditor.prefs.openToolPage ("WordPress")  LHGenevam_cLANDmac WordPress Open Workspace - Open Docs Get Categories... Preferences v w x yn pz${t3Geneva}p  Geneva_ P\1LANDmac wordPressSuite.init () if not defined (user.wordPress.prefs.homePageUrl) user.wordPress.prefs.homePageUrl = "http://" if dialog.ask ("Home page URL:", @user.wordPress.prefs.homePageUrl) local (url = user.wordPress.prefs.homePageUrl, data) if not (url beginswith "http://") url = "http://" + url try string.urlsplit (url) else url = url + "/" string.urlsplit (url) if metaweblog.getRsdData (url, @data) local (adrblog = @user.wordpress.blogs.[user.wordPress.prefs.homePageUrl]) if not defined (adrblog^) new (tabletype, adrblog) adrblog^.url = data.url adrblog^.blogID = data.blogID adrblog^.username = "" adrblog^.password = "" edit (adrblog) user.wordpress.prefs.currentblog = user.wordPress.prefs.homePageUrl WdatatablG`(`( createdFri, 20 Jan 2006 17:38:48 GMTWdatatablGaRaR createdFri, 20 Jan 2006 17:43:46 GMTWdatatablGaWaW createdFri, 20 Jan 2006 17:43:51 GMTWdatatablGaa createdFri, 20 Jan 2006 17:42:28 GMTWdatatablGaa createdFri, 20 Jan 2006 17:42:38 GMTWdatatablGa%a% createdFri, 20 Jan 2006 17:43:01 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:25 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:15 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:31 GMTWdatatablGbb createdFri, 20 Jan 2006 17:46:46 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:33 GMTWdatatablG_ֿ_ createdFri, 20 Jan 2006 17:37:26 GMTWdatatablG`N`N createdFri, 20 Jan 2006 17:39:26 GMTWdatatablG createdSun, 22 Jan 2006 11:50:42 GMTWdatatablG`Ŀ` createdFri, 20 Jan 2006 17:41:24 GMTWdatatablG`׿` createdFri, 20 Jan 2006 17:41:43 GMTWdatatablG`߿` createdFri, 20 Jan 2006 17:41:51 GMTWdatatablG˿ createdSun, 22 Jan 2006 11:47:23 GMTWdatatablGҿ createdSun, 22 Jan 2006 11:47:30 GMTWdatatablG{{ createdSun, 22 Jan 2006 11:50:19 GMTWdatatablG"" createdSun, 22 Jan 2006 11:36:02 GMT 4GenevagHLANDmac wordPressSuite.init () case dialog.threeway ("Open prefs or docs?", "Prefs", "Docs", "Cancel") 2 webbrowser.openurl ("http://support.opml.org/2005/11/23#a369") webbrowser.bringtofront () 1 edit (@user.wordpress) WdatatablGrr createdWed, 23 Nov 2005 20:26:26 GMTWdatatablGҼҼ createdWed, 23 Nov 2005 16:03:08 GMTWdatatablGҿҿ createdWed, 23 Nov 2005 16:03:11 GMTWdatatablG迩 createdWed, 23 Nov 2005 16:03:52 GMTWdatatablGӿ createdWed, 23 Nov 2005 16:03:31 GMTWdatatablGֿ createdWed, 23 Nov 2005 16:03:34 GMT{uGenevaڧ_ LANDmac Changes 8/9/08; 8:01:35 AM by DW Created. wordPressSuite.init () edit (@user.wordPress.workspace, adrButtonTable:@wordPressSuite.buttons) WdatatablGڲڲ createdWed, 23 Nov 2005 16:37:06 GMT{|.R_  $0 > connectToSite{ openPrefs openWorkspace_VGeneva|=XJe5Geneva-yLANDmac Changes 8/9/08; 7:40:07 AM by DW Created. local (lo = window.frontmost ()^, atts, data, posttext) local (oldtarget = target.set (@lo)) filemenu.save () op.go (left, infinity) op.attributes.getall (@atts) scratchpad.atts = atts bundle //init atts if not already set if not defined (atts.type) atts.type = "metaWeblogPost" if not defined (atts.whenCreated) atts.whenCreated = clock.now () if not defined (atts.blogname) atts.blogname = user.wordPress.prefs.currentBlog if not defined (atts.id) atts.id = -1 local (title = op.getlinetext ()) local (adrblog = @user.wordpress.blogs.[atts.blogname]) local (username = adrblog^.username, password = string (adrblog^.password)) bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @data) data.protocol = "xml-rpc" data.port = 80 data.rpcPath = "/" + urllist [3] data.server = urllist [2] bundle //get posttext op.setlinetext ("") //erase the title posttext = string (op.getsuboutline (false)) posttext = wordPressSuite.getPostText () local (struct, adrstruct = nil) bundle //get adrstruct if defined (atts.category) new (tabletype, @struct) struct.categories = {} local (ctcats = string.countfields (atts.category, ";"), i) for i = 1 to ctcats struct.categories = struct.categories + string.nthfield (atts.category, ";", i) adrstruct = @struct local (blogid) bundle //set blogid if defined (adrblog^.blogid) blogid = adrblog^.blogid else blogid = nil if atts.id == -1 //new post atts.id = metaweblog.newpost (title, "", posttext, adrstruct, username, password, blogid, true, @data) else //update metaweblog.editpost (title, "", posttext, adrstruct, atts.id, username, password, blogid, true, @data) target.set (oldtarget) bundle //set the attributes local (oldcursor = op.getcursor ()) op.go (left, infinity) op.attributes.addgroup (@atts) op.setcursor (oldcursor) speaker.ouch () //8/9/08 by DW WdatatablGSS createdWed, 23 Nov 2005 16:56:51 GMTWdatatablG`~`~ createdMon, 30 Jan 2006 14:19:42 GMTWdatatablGff createdWed, 23 Nov 2005 16:57:10 GMTWdatatablG߆߆ createdWed, 23 Nov 2005 16:57:42 GMTWdatatablG߯߯ createdWed, 23 Nov 2005 16:58:23 GMTWdatatablG(( createdTue, 06 Dec 2005 01:23:40 GMTWdatatablG($($ createdTue, 06 Dec 2005 01:23:48 GMTWdatatablG`` createdWed, 23 Nov 2005 16:52:48 GMTWdatatablG(O(O createdTue, 06 Dec 2005 01:24:31 GMTWdatatablGѿ createdWed, 23 Nov 2005 16:54:41 GMTWdatatablG(`(` createdTue, 06 Dec 2005 01:24:48 GMTWdatatablGdd createdWed, 23 Nov 2005 16:52:52 GMTWdatatablG(`(` createdTue, 06 Dec 2005 01:24:48 GMTWdatatablGdd createdWed, 23 Nov 2005 16:52:52 GMTWdatatablG)) createdWed, 23 Nov 2005 17:00:25 GMTWdatatablGzz createdWed, 23 Nov 2005 17:01:46 GMTWdatatablG createdWed, 23 Nov 2005 17:02:20 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablGṿ createdWed, 23 Nov 2005 17:07:05 GMTWdatatablG createdWed, 23 Nov 2005 17:08:00 GMTWdatatablGἿ createdWed, 23 Nov 2005 17:07:08 GMTWdatatablG createdSun, 11 Dec 2005 19:09:54 GMTWdatatablGpp createdSun, 11 Dec 2005 19:09:36 GMTWdatatablGzz createdSun, 11 Dec 2005 19:09:46 GMTWdatatablG createdSun, 11 Dec 2005 19:10:11 GMTWdatatablG createdSun, 11 Dec 2005 19:10:51 GMTWdatatablG createdSun, 11 Dec 2005 19:11:44 GMTWdatatablG޿ createdSun, 11 Dec 2005 19:11:26 GMTWdatatablG createdSun, 11 Dec 2005 19:12:16 GMTWdatatablG createdSun, 11 Dec 2005 19:10:43 GMTWdatatablG22 createdSun, 22 Jan 2006 11:53:22 GMTWdatatablG99 createdSun, 22 Jan 2006 11:53:29 GMTWdatatablG== createdSun, 22 Jan 2006 11:53:33 GMTWdatatablGYY createdSun, 22 Jan 2006 11:54:01 GMTWdatatablG\\ createdSun, 22 Jan 2006 11:54:04 GMTWdatatablG]] createdSun, 22 Jan 2006 11:54:05 GMTWdatatablGԿ createdWed, 23 Nov 2005 16:59:00 GMTWdatatablG createdWed, 23 Nov 2005 16:59:55 GMTWdatatablG createdWed, 23 Nov 2005 16:59:45 GMTWdatatablG createdWed, 23 Nov 2005 16:59:46 GMTWdatatablG`` createdWed, 23 Nov 2005 16:57:04 GMTWdatatablGMM createdWed, 23 Nov 2005 17:13:49 GMTWdatatablGNN createdWed, 23 Nov 2005 17:13:50 GMTWdatatablGXX createdWed, 23 Nov 2005 17:14:00 GMTWdatatablGcc createdWed, 23 Nov 2005 17:14:11 GMTWdatatablG createdWed, 23 Nov 2005 17:13:02 GMTWdatatablGll createdWed, 23 Nov 2005 17:14:20 GMTuGeneva)f_LANDmac local (adrdata = dotOpmlSuite.init ()) local (folder = adrdata^.folderWatcher.prefs.folder) folder = folder + "newsRiver" + file.getpathchar () local (f = folder + "wordPress.root") file.surefilepath (f) target.set (this) fileMenu.saveCopy (f) dotOpmlSuite.folderWatcher.thread.wake () dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f))) WdatatablGjj createdTue, 03 Jan 2006 22:54:03 GMT }Genevaѿ_cLANDmac This script returns a string which appears in the Status Center on the Radio UserLand home page. return ("I'm a cool Tool!")  Geneva HLANDmac local (idpost = 17) local (adrblog = @user.wordpress.blogs.default, data, struct) local (username = adrblog^.username, password = string (adrblog^.password)) bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @data) data.protocol = "xml-rpc" data.port = 80 data.rpcPath = "/" + urllist [3] data.server = urllist [2] metaweblog.getPost (idpost, username, password, nil, @struct, @data) scratchpad.struct = struct WdatatablGzz createdWed, 23 Nov 2005 17:01:46 GMTWdatatablG createdWed, 23 Nov 2005 17:02:20 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablGAA createdSun, 04 Dec 2005 01:07:13 GMT Geneva]$}JLANDmac local (adrblog = @user.wordpress.blogs.default, data, struct) local (username = adrblog^.username, password = string (adrblog^.password)) bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @data) data.protocol = "xml-rpc" data.port = 80 data.rpcPath = "/" + urllist [3] data.server = urllist [2] data.appkey = "xxx" blogger.getUsersBlogs (@scratchpad.userblogs, username, password, @data) WdatatablGzz createdWed, 23 Nov 2005 17:01:46 GMTWdatatablG createdWed, 23 Nov 2005 17:02:20 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablG󿷂 createdSun, 04 Dec 2005 01:14:27 GMTY$:  % getpostinfo getuserblogsVGeneva|=XJ4 Si$Geneva w:9 7LANDmac on validateLogin () Changes 8/8/08; 10:21:00 PM by DW Created. local (pta = html.getpagetableaddress ()) if pta^.method == "POST" try local (url = user.wordPress.prefs.homePageUrl, data, adrblog) if not (url beginswith "http://") url = "http://" + url try string.urlsplit (url) else url = url + "/" string.urlsplit (url) if metaweblog.getRsdData (url, @data) adrblog = @user.wordpress.blogs.[url] if not defined (adrblog^) new (tabletype, adrblog) adrblog^.url = data.url adrblog^.blogID = data.blogID adrblog^.username = "" adrblog^.password = "" edit (adrblog) user.wordpress.prefs.currentblog = url user.wordPress.prefs.homePageUrl = url bundle //set up data local (urllist = string.urlsplit (adrblog^.url)) //http://scripting.wordpress.com/xmlrpc.php new (tabletype, @data) data.protocol = "xml-rpc" data.port = 80 data.rpcPath = "/" + urllist [3] data.server = urllist [2] local (username = user.wordpress.prefs.username) local (password = string (user.wordpress.prefs.password)) local (cats = metaweblog.getCategories (adrblog^.blogID, username, password, @data)) adrblog^.username = username adrblog^.password = binary (password) return ( "The username/password combination checks out with WordPress.") else return ("WordPress rejected the username/password combination.") else return ("") bundle //test code local (pagetable) new (tabletype, @pagetable) pagetable.method = "POST" html.setpagetableaddress (@pagetable) validateLogin () WdatatablGaa createdFri, 20 Jan 2006 17:42:28 GMTWdatatablGaa createdFri, 20 Jan 2006 17:42:38 GMTWdatatablGa%a% createdFri, 20 Jan 2006 17:43:01 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:25 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:15 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:31 GMTWdatatablGbb createdFri, 20 Jan 2006 17:46:46 GMTWdatatablGaa createdFri, 20 Jan 2006 17:46:33 GMTWdatatablG_ֿ_ createdFri, 20 Jan 2006 17:37:26 GMTWdatatablG`N`N createdFri, 20 Jan 2006 17:39:26 GMTWdatatablG createdSun, 22 Jan 2006 11:50:42 GMTWdatatablG`Ŀ` createdFri, 20 Jan 2006 17:41:24 GMTWdatatablG`׿` createdFri, 20 Jan 2006 17:41:43 GMTWdatatablG`߿` createdFri, 20 Jan 2006 17:41:51 GMTWdatatablG˿ createdSun, 22 Jan 2006 11:47:23 GMTWdatatablGҿ createdSun, 22 Jan 2006 11:47:30 GMTWdatatablG{{ createdSun, 22 Jan 2006 11:50:19 GMTWdatatablG"" createdSun, 22 Jan 2006 11:36:02 GMTWdatatablG createdWed, 23 Nov 2005 17:04:11 GMTWdatatablG]] createdWed, 23 Nov 2005 17:05:33 GMTWdatatablGii createdWed, 23 Nov 2005 17:10:01 GMTWdatatablG߿ createdWed, 23 Nov 2005 17:03:27 GMTWdatatablGٿ createdWed, 23 Nov 2005 17:03:21 GMTWdatatablG뿩 createdWed, 23 Nov 2005 17:03:39 GMTWdatatablG|| createdWed, 23 Nov 2005 17:06:04 GMTWdatatablG˿ createdSun, 22 Jan 2006 11:47:23 GMTWdatatablGҿ createdSun, 22 Jan 2006 11:47:30 GMT4A=ȣ4  '3 ;G Q] iu z   %1 EQ Ye saddPostCategory` background`!buttons`4m callbacks`5 changeNotes`6Udata`?getCategoryMenu`@ getPostData`Md getPostText`Zinit`jmenu`{< menuCommands`save`shipit`bstatusCenterMessage`testing`' validateLogin`AGenevaѿ_cLANDmac This script runs in its own thread. loop //loop until the application quits Add your code here. thread.sleepFor (10) //sleep for ten seconds P. ctenabledscript`sVGenevaFtGeneva F 2 LANDmac on finalFilter (pta) pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "") return (true) ����������������������������� ���-����Geneva���������������������������� ��������������Eu �������2 LAND������mac ������������on firstFilter (adrPageTable) return (true) �����������������������*��[����Geneva���������������������������� ��������������Eu ���r���}�2'LAND������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������T firstFilter������^ pagefilter��������VGeneva���������������������������� �����������G�N��)�����������������������������������A������7�������� ����url���http://127.0.0.1/wordPress/��VGeneva���������������������������� ������������A��'����������������������������n�����������������8H������VArial����������������������������� ������������������������������������������������n����������W����������������������space���/GIFfGIF89a�������!����,�������D�;��VArial����������������������������� ������������������������������������������������������������V��������������� ������� �������"�������+ ����0���: ����C���L ����Q���[ ����aalink���008000bgcolor���FFFFFFflRenderlink���0000FFspaceGif���spacetext���000000vlink���800080��VArial����������������������������� �������������������������������������������������d��������<��������Geneva���������������������������� ��������������F ������z�*LAND������mac ������������<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>{title} {metaTags ()} {bodyTag ()} {bodytext} dn8>VArial nFFFF000000060001001777AA000000000063000000001001710000001-76FF6FFE18000004800480626200-10626222FFFF01030000100000031000000010E840626222E048E000166266000020000001200000000E,#title "Home" 000400000009000000020100000500000009000000020100000600000032000000010C310FFFF0C00000 20 000700000019000000010201600008000000A50000000140,Geneva40,1040304E40101000090000001500000002393174393174000A0000001500000002626222626222000B00000005000000020000C00000013000000010369AF101000F0000005200000000400 10 4,appn4,send4,84,&4,84,34,800130000007E00000000DA91F8CE1C1D1E1F7F1B044,-..'"FFFF0FFFF0FFFE000000060001001777AAPĵ7 6%``7F  * 4@ HT [g q} #filters`$#ftpSite` #glossary`Ӫ#images`$#prefs` #template` #tools`|index`VGeneva vOx?+`  ~M  %1 ?K ^j }   5 #installer. wordPressDataC wordPressInfowordPressNodeTypes5wordPressResponderwordPressRpcHandlerswordPressSoapHandlerswordPressSuite&wordPressThread͞wordPressWebsite܌wordPressWindowTypesV Lucida GrandeP Geneva3ȞZ2_cLANDmac #installer wordPressData wordPressInfo author authorEmail description homePageUrl name releaseDate version wordPressNodeTypes wordPressResponder wordPressRpcHandlers wordPressSoapHandlers wordPressSuite wordPressThread wordPressWebsite wordPressWindowTypes f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!f'f!$XJ Lucida Grande Lucida Grande oGeneva ], Lucida Grande N Lucida Grande Lucida Grande