Monday, November 08, 2010 at 12:00 AM.
system.verbs.apps.blogger.getUserBlogs
on getUserBlogs (adrtable, username=nil, password=nil, adrdata=@blogger.data) {
<<Changes
<<1/24/02; 7:49:01 AM by DW
<<Created. This call is supported in the Radio 8 implementation of the Blogger API.
<<http://radio.userland.com/emulatingBloggerInRadio#fixes12402Dw
blogger.init ();
bundle { //set defaults
if username == nil {
username = user.blogger.username};
if password == nil {
password = string (user.blogger.password)}};
with adrdata^ {
local (params = {appkey, string (username), string (password)});
local (postlist = xml.rpc (server, port, "blogger.getUserBlogs", @params, rpcPath:rpcPath, protocol:protocol));
bundle { //convert list into table, easier to work with in the odb
local (item, adrsubtable);
new (tabletype, adrtable);
for item in postlist {
adrsubtable = @adrtable^.[item.blogid];
new (tabletype, adrsubtable);
adrsubtable^.url = item.url;
adrsubtable^.blogname = item.blogname}};
return (true)}}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.