//**************************************
// Name: GetCookies
// Description:This code allows for simulated browser based interaction with remote websites.
// By: Rabid Nerd Productions
//
// Inputs:Cookies to be set as returned by remote servers in response headers (cfhttp.header)
//
// Returns:GetCookies variable as an array
//
// Assumes:Example Usage:
A site where the page sneaky.php requires a set of server cookies and a session variable set in a form field from the homepage.
Example Session Field Value:
<input type="hidden" name="__SESSION" value="dhu}FR_VKROJeiCNWJrif">
<cfhttp url="http://www.site.com" method="GET" useragent="#cgi.http_user_agent#">
<cfset cookies = getCookies(cfhttp.header)>
<cfset getstate = cfhttp.filecontent>
<cfset getstate = replacenocase(getstate,"__SESSION"" value=""",chr(7))>
<cfset getstate = listgetat(getstate,2,chr(7))>
<cfset getstate = listgetat(getstate,1,"""")>
<cfhttp url="http://www.site.com/sneaky.php" method="POST" useragent="#cgi.http_user_agent#">
	<cfhttpparam name="__SESSION" value="#SESSION#" type="FORMFIELD">
<cfloop from="1" to="#arrayLen(cookies)#" step="1" index="i">
	<cfhttpparam type="cookie" name="#cookies[i].NAME#" value="#cookies[i].VALUE#">
	</cfloop>
</cfhttp>
//
// Side Effects:Edited - "WriteOutput" to screen of cookie values for debug use were left in in initial posting... Have now commented them below..
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=135&lngWId=9//for details.//**************************************

<cfscript>
function getCookies(headers){
cookies = arraynew(1);
thiscookie = structnew();
header="";
aCookie="";
crumb="";
paramName="";
paramValue="";
for (i=1;i lte listlen("#headers#","#chr(10)#");i=i+1) {
	header = listgetat(headers,i,chr(10));
	if(reFind("^Set-Cookie: ",header) gt 0){
		acookie = reReplace(header,"^Set-Cookie: ","","ALL");
		thisCookie = StructNew();
		for (ii=1;ii lte listlen("#acookie#",";");ii=ii+1){
			// writeoutput(crumb);
			// writeoutput("<p><hr></p>");
			crumb = listgetat(acookie,ii,";");
			crumb = trim(crumb);
			paramName = listgetat(crumb,1,"=");
			if (listlen(crumb,"=") gt 1) {paramValue = listgetat(crumb,2,"=");} else {paramValue=" ";}
			if(paramName eq "expires"){
				thisCookie.expires = paramValue;
			} else {
			if(paramName eq "path"){
				thisCookie.path = paramValue;
			} else {
			if(paramName eq "domain"){
				thisCookie.domain = paramValue;
			} else {
			if(paramName eq "secure"){
				thisCookie.secure = paramValue;
			} else {
				thisCookie.name = paramName;
				thisCookie.value = paramValue;
			}}}}
		}
		arrayAppend(cookies,thisCookie);
	}
}
return cookies;
}
</cfscript>