[REBOL] Re: Blogger/REBOL XML-RPC
From: chaz:innocent at: 20-Aug-2001 23:56
Sorry for abusing your code. RXR is working much better, now that I'm using
it correctly!
I've implemented two functions in REBOL, more to come later.
REBOL [Title: "Blogger via XML-RPC"]
do load %xmlrpc-lib.r
plant: make xmlrpc-server [host: "plant.blogger.com" uri:"/api/RPC2"]
editblock: ["appkey" "blogid" "username" "password" "text text text " false]
checkblock: ["appkey" "username" "password"]
blogging: [if error? try [
editblock/5: t-edit/text
t-result/text: xmlrpc-call plant "blogger.newPost" editblock
][
t-result/text: "omg, something is terribly terribly wrong!"
]
show t-result
]
view layout[
t-edit: field "blog entry"
t-result: field "result"
b-post: button "post!" [
editblock/6: false
do blogging
]
b-publish: button "publish!" [
editblock/6: true
do blogging
]
b-getinfo: button "get info!" [
if error? try [
t-result/text: xmlrpc-call plant "blogger.getUsersBlogs"
checkblock
][
t-result/text: "omg, something is terribly terribly wrong!"
]
show t-result
]
]
At 12:03 PM 8/20/01 +0200, you wrote:
