define_tag(
	'payflowpro',
	-namespace='paypal_',
	-req='appid',
	-opt='requestid',
	-opt='test', -type='boolean',
	-priority='replace',
	-encodenone,
	-description='Wrapper for PayPal Payflow Pro direct HTTPS integration.'
);
	// submit to the test server or the production server?
	!local_defined('test') ? local('test') = false;
	local('url') = 'https://' + (#test ? 'pilot-') + 'payflowpro.paypal.com';	

	// assign a unique id for this transaction unless re-trying
	!local_defined('requestid') ? local('requestid') = lasso_uniqueid;

	// assemble the body of the post from the given params
	local('body') = string;

	// exclude params passed just for the tag
	local('extraparams') = (: '-test', '-requestid', '-appid');
	
	iterate(params, local('i'));
		if(#extraparams !>> #i->first);
			local('n') = string(#i->first)->removeleading('-')&uppercase&;
			local('v') = string(#i->second)->replace('"','')&;
			(: '&','=') >> #v ? #n += '[' + #v->size + ']';
			#body += #n + '=' + #v + '&';
		/if;
	/iterate;
	
	#body->removetrailing('&');
	
	// assemble extra MIME headers
	local('lassoversion') = decimal(lasso_version( -lassoversion))->setformat( -precision=1)&;
			
	local('headers') = (:
		'Content-Type'						=	'text/namevalue',
		'Content-Length'						=	#body->size,
		'X-VPS-REQUEST-ID'					=	#requestid,
		'X-VPS-CLIENT-TIMEOUT'				=	'45',
		'X-VPS-VIT-CLIENT-CERTIFICATION-ID'	=	#appid,
		'X-VPS-VIT-INTEGRATION-PRODUCT'		=	'Lasso Professional Server',
		'X-VPS-VIT-INTEGRATION-VERSION'		=	#lassoversion,
		'X-VPS-VIT-OS-NAME'					=	lasso_version( -lassoplatform),
		// 'X-VPS-VIT-OS-VERSION'			=	'',
		'X-VPS-VIT-RUNTIME-VERSION'			=	#lassoversion
	);
	
	// submit the transaction
	local('response') = string;
	
	protect;
		#response = include_url(
			#url,
			-sendmimeheaders=#headers,
			-postparams=#body,
			-timeout=30
		);
	/protect;
	
	// parse the response
	!#response->size ? return('Connection timed out.');
	
	local('out') = map('REQUESTID' = #requestid);
	
	iterate(#response->split('&'), local('i'));
		local(
			'n' = #i->split('=')->first,
			'v' = #i->split('=')->second
		);
		
		#out->insert(#n = #v);
	/iterate;
	
	return(#out);
/define_tag;