Monday, November 08, 2010 at 12:00 AM.

---

system.verbs.apps.blogger.getUsersBlogs

on getUsersBlogs (adrtable, username=nil, password=nil, adrdata=@blogger.data) {
	blogger.init ();
	bundle { //set defaults
		if username == nil {
			username = user.blogger.username};
		if password == nil {
			password = string (user.blogger.password)}};
	local (bloglist);
	with adrdata^ {
		local (params = {appkey, string (username), string (password)});
		bloglist = xml.rpc (server, port, "blogger.getUsersBlogs", @params, rpcPath:rpcPath, protocol:protocol)};
	bundle { //convert list into table
		local (item, adrsubtable);
		new (tabletype, adrtable);
		for item in bloglist {
			adrsubtable = @adrtable^.[item.blogid];
			new (tabletype, adrsubtable);
			adrsubtable^.blogName = item.blogName;
			adrsubtable^.url = item.url}};
	return (true)};
bundle { //test code
	getUsersBlogs (@scratchpad.blogs)}

---

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.