Posting to a Wordpress Blog via Applescript

[hendo13]

I’m sure it’s possible with AS, obviously a shell script of some sort. I’m useless with shells though

[Craig_Williams]

Here is a Ruby script I just put together to post to a WordPress blog.
It appears everything is working except the ‘categories’. Each time I
post it is my default category that shows up and not what I send with
the script.

EDIT:
(AFAIK there is no way to post to WordPress using vanilla AppleScript.)

I was just looking for something else in Hanaan Rosenthal’s book and saw
an example of calling xmlrpc from AppleScript on page 723.

tell application "http://url-to-xml-rpc-service"
    call xmlrpc {method name: the_method, parameters: parameter_list }
end

I have not tried it but it is a starting place if you need to use AppleScript.
end EDIT:

Cheers,

Craig

#!/usr/bin/env ruby -w
require ‘xmlrpc/client’

@path_to_xmlrpc = “http://your.wordpress_blog.com/xmlrpc.php” # path to YOUR xmlrpc.php file
@user_name = ‘user_name’
@password = ‘password’

def post_to_blog(title, slug, text, more_text, categories, tags)
begin
server = XMLRPC::Client.new2(@path_to_xmlrpc)

@post = {}
@post['title']              = title
@post['wp_slug']            = slug
@post['description']        = text
@post['mt_text_more']       = more_text
@post['categories']         = categories
@post['mt_allow_comments']  = true
@post['mt_allow_pings']     = true
@post['mt_tags']            = tags

result = server.call("metaWeblog.newPost", 1, @user_name, @password, @post, true)

rescue XMLRPC::FaultException => e
puts "XMLRPC Error: "
puts e.faultCode
puts e.faultString
end
end

if ARGV.size != 6
puts “USAGE: /usr/bin/ruby ‘/path/to/this_file.rb’ ‘title’ ‘slug’ ‘text’ ‘more text’ ‘categories’ ‘tags’”
exit
end

post_to_blog(ARGV[0], ARGV[1], ARGV[2], ARGV[3], ARGV[4], ARGV[5])

You can call it from AppleScript like this.

on quoteMe(q_string)
	return quoted form of q_string
end quoteMe

set post_cmd to "/usr/bin/ruby ~/desktop/post.rb"
set post_cmd to post_cmd & space & quoteMe("My Post Title")
set post_cmd to post_cmd & space & quoteMe("my-post-title")
set post_cmd to post_cmd & space & quoteMe("Once upon a time there were three little bears..." & return)
set post_cmd to post_cmd & space & quoteMe(return & "on with the rest of the story" & return)
set post_cmd to post_cmd & space & quoteMe("['Applescript']")
set post_cmd to post_cmd & space & quoteMe("['AppleScript', 'Xcode']")
do shell script post_cmd

[hendo13]

Awesome
Thanks Craig I’ll try it out

[Craig_Williams]

You’re welcome. Let me know how it works out.

Craig