[REBOL] Blogger/REBOL XML-RPC
From: chaz:innocent at: 19-Aug-2001 3:45
I'm trying to get data from my blog (abbreviation for "web log") using
blogger's xml-rpc interface http://plant.blogger.com/api/
downloaded Christian Langreiter's RXR from http://www.langreiter.com/space/RXR
created a blog at http://www.blogger.com
got an application key here http://plant.blogger.com/api/register.html
Started happily coding in REBOL, unfortunately neither one of the functions
below work.
This function is supposed to contact the RPC server at blogger.com
I give it my application key, username, and password
and it will give me my blog's URL, blogid, and the blog's title.
If it fails, then it will type "Sorry, and error has occurred"
I'm trying to use the function
http://plant.blogger.com/api/xmlrpc_getUsersBlogs.html
REBOL [Title: "getUsersBlogs via XML-RPC"]
do load %xmlrpc-lib.r
plant: make xmlrpc-server [host: "plant.blogger.com" port: 80 uri:
/api/RPC2
]
states: xmlrpc-struct
states/data: ["your application key" "your username" "your password"]
view layout [
t-rs: field "Result"
b-do: button "Get" [
if error? try [
t-rs/text: xmlrpc-call plant "blogger.getUsersBlogs"
[states]
] [
t-rs/text: "Sorry, an error has occured!"
]
show t-rs
]
]
This function is supposed to contact the RPC server at blogger.com
I give it my application key, blogid, username, password, message test, and
whether or not I was to publish my post.
and it will give me my post's ID
If it fails, then it will type "Sorry, and error has occurred"
I'm trying to use the function
http://plant.blogger.com/api/xmlrpc_newPost.html
REBOL [Title: "newPost via XML-RPC"]
do load %xmlrpc-lib.r
plant: make xmlrpc-server [host: "plant.blogger.com" port: 80 uri:
/api/RPC2
]
states: xmlrpc-struct
states/data: ["<application key>" "<blogid>" "<username>" "<password>"
Hello World
false]
view layout [
t-rs: field "Result"
b-do: button "Get" [
if error? try [
xmlrpc-call plant "blogger.newPost" [states]
] [
t-rs/text: "Sorry, an error has occured!"
]
show t-rs
]
]