define_type(
	'mailchimp',
	-prototype,
	-description='Lasso wrapper for the MailChimp API.'
);
	// Lasso wrapper for MailChimp API
	// author: Jason Huck/Core Five Creative
	
	// requires xml_tree for XML output, or encode_json
	// and decode_json for JSON output
	
	// defaults to JSON output and version 1.1 of the API
	// http://www.mailchimp.com/api/rtfm/
	local(
		'apikey' = string,
		'output' = 'json',
		'url' = 'http://api.mailchimp.com',
		'version' = 1.1		
	);


	// requires a valid API key to initialize
	// you can optionally set XML as the output format		
	define_tag(
		'oncreate',
		-req='key',
		-opt='output'
	);
		self->'apikey' = #key;
		local_defined('output') && (: 'json', 'xml') >> #output ? self->'output' = #output;
	/define_tag;


	// the main function which makes the call to MailChimp
	// and retrieves the results (in raw form)	
	define_tag(
		'connect',
		-req='method', -type='string',
		-req='params', -type='array', -copy,
		-encodenone
	);
		local('uri') = self->'url' + '/' + self->'version' + '/';
		#uri += '?output=' + self->'output' + '&method=' + #method;
		#params->insert('apikey' = self->'apikey');
		
		protect;
			local('out') = include_url(
				#uri,
				-postparams=#params,
				-sendmimeheaders=(: 'User-Agent' = client_browser),
				-timeout=15,
				-connecttimeout=15
			);
			
			handle_error;
				local('out') = null;
			/handle_error;
		/protect;
		
		return(#out);
	/define_tag;


	// the _unknowntag callback function lets us call any
	// API method by name without explicitly defining a
	// tag for each one	
	
	// NOTE: method names appear to be case-sensitive!	
	define_tag(
		'_unknowntag',
		-encodenone
	);
		local('params') = array;
	
		// loop through the supplied params and strip the
		// leading slash from keywords
		
		// if an array is given as the value of a param,
		// explode it for use on the query string like so:
		// ?myparam[a]=A&myparam[b]=B&myparam[c]=C
		if(params->size);
			iterate(params, local('i'));
				local('n') = string(#i->first)->removeleading('-')&;
			
				if(#i->second->isa('array'));						
					iterate(#i->second, local('j'));
						local('k') = #n + '[' + #j->first + ']';
						local('v') = #j->second;
						#params->insert(#k = #v);
					/iterate;
				else;
					#params->insert(#n = #i->second);
				/if;
			/iterate;
		/if;			
		
		// add the method name (the unknown tag) and grab
		// the response via the ->connect method
		local('response') = self->connect(tag_name, #params);
		
		// decode the response - JSON objects are converted
		// to native Lasso types, XML objects are returned
		// as XML_Tree objects, otherwise the raw response
		// is returned unaltered
		if(#response && (#response->beginswith('[') || #response->beginswith('{')) && self->'output' == 'json');
			#response = decode_json(#response);
		else(#response && #response->beginswith(''output' == 'xml');
			#response = xml_tree(#response);
		/if;
		
		return(#response);
	/define_tag;	
/define_type;