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


on getUserLists (adrtable, username=nil, password=nil, whoseLists=nil) {
		<<10/31/09; 7:48:19 PM by DW
			<<Reorganized parameter list so username and password can be optional params.
		<<10/31/09; 6:58:35 PM by DW
			<<Add a parameter, "whoseLists" to determine whose lists we get. The username and password must be present to authenticate, but I can get other people's lists if I want to.
		<<10/31/09; 7:59:32 AM by DW
			<<Fill a table with information about all the lists owned by the user.
	local (apiurl, cursor = 0);
	if username == nil {
		username = user.twitter.prefs.username};
	if password == nil {
		password = user.twitter.prefs.password};
	if whoseLists == nil {
		whoseLists = username};
	apiurl = "" + whoseLists + "/lists.xml";
	new (tabletype, adrtable);
	loop {
		local (url = apiurl, xmltext, xstruct);
		if cursor != 0 {
			url = url + "?cursor=" + cursor};
		xmltext = tcp.httpreadurl (url, 5, false, username, password);
		xml.compile (xmltext, @xstruct);
		scratchpad.xstruct = xstruct;
		local (adrlistslist = xml.getaddress (@xstruct, "lists_list"));
		local (adrlists = xml.getaddress (adrlistslist, "lists"));
		for adrlist in adrlists {
			if nameof (adrlist^) endswith "list" {
				local (adrsub = @adrtable^.[xml.getvalue (adrlist, "slug")], status);
				twitter.extractListInfo (adrlist, adrsub)}};
		cursor = xml.getvalue (adrlistslist, "next_cursor");
		if cursor == 0 { //no more
bundle { //test code
	getUserLists (@scratchpad.mylists, whoseLists:"atul")}

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.