define_type(
	'laposte',
	-description='Tarifs d\'expédition de la poste'
);

	// flatten arrays passed as params 
    local: 'flattenedparams' = js_flattenparams: params; 
    // replace the current params with the flattened params 
    params = #flattenedparams -> params; 
    // autocreate locals from params 
    locals = #flattenedparams -> locals; 

	local(
		'cookiejar' = map,
		'debug' = string,
		'price' = decimal,
	);	
	
	define_tag(
		'oncreate',
		-req='weight',
		-req='cc',
		-optional='rec',
		-optional='eco',
		-optional='cr'
	);
		

		local('jsessionid') = string;	
		local('category') = string;
		local('om') = array('GP','GF','MQ','YT','NC','PF','RE','PM','WF');		
		local('rf') = #om;
		#rf->(insert:'F');
			
		select(true);
		
			case(#cc == 'F'); 
				#category = string('8N');  //Colissimo normal
			case(#om >> #cc); 
				#category = string('8Y'); //Colissimo OM
			case;
				#category = string('CC'); // Colissimo international
			
		/select;
		
		//si -eco et international, c'est un international economique
		local_defined('eco') && #category == 'CC' ? local('category') = string('CE');
		
		//si -eco et OM, c'est un Colissimo OM economique
		local_defined('eco') && #om >> #cc ? local('category') = string('XE');
		
		
		//recommandé France
		local_defined('rec') && #cc == 'F' ? local('category') = string('8U');
		
		//recommandé Outre-Mer
		local_defined('rec') && #om >> #cc ? local('category') = string('8Z');
				
		fail_if(local_defined('rec')&&(#rf!>>#cc), -1, 'Erreur : Pas de recommande pour l\'international'); 		
		
		local('pp') = array(
			'forward'				=	'success',
			'codeOffre'				=	#category,
			'codePaysDestination'	=	#cc,
			'poids'					=	#weight,
			'page'					=	'tarificationParticulier'
		);
		
		local_defined('rec')? #pp->(insert: 'choixTauxOptionObligatoire' = #rec);

///// fin config		

		protect;
			local('page') = include_url(
				'http://www.coliposte.fr/cotation/gp/tarificationParticulier.do',
				-getparams = array('codeOffre'=#category),
				-SendMIMEHeaders=(array:'User-Agent'='Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; fr; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11'),
				-retrievemimeheaders='hdr',
				-timeout=15
			);
		/protect;
			
	
		local('debug_cookie_sent') = ((self->cookiejar)->values->join:'
find('Set-Cookie'), local('i'));
			#i->value >> 'JSESSIONID'? #jsessionid = #i->value;
		/iterate;
		#jsessionid->(Replace: 'JSESSIONID=','');
		#jsessionid->(Replace: 'path=/','');
		
		
		//global routine for getting and updating cookiemap, should be ctagged or something
		iterate($hdr->find('Set-Cookie'), local('i'));
			local('debug_cookie_rcvd') += (#i->value)+'
';
			//we are given an array of cookies statements		
			local('ivalue') = (#i->value)->(split:';');
			// this way for each of each cookie statement , we get an array like this:
			// array ((NAME=VALUE),(Domain=.example.com),(/Path=/),(Expires:....))
			
			local('valuename') = ((#ivalue->Get:1)->(split:'='))->First;		
			
			(self->cookiejar)->(insert: #valuename = #i->value);
			//we update the cookiejar map, and the key is the value of the cookie
			//limitations is that we don't care about domains so this is only for a single-domain transaction				

		/iterate;


		self->debug += '
1. Calling first page to get a cookie
'
		'
Cookie sent : 
'#debug_cookie_sent'
'
		'
Cookie received : 
'#debug_cookie_rcvd'
'
		'
Cookie stored : 
'((self->cookiejar)->values->join:'
')'
'
		//'
HTML : 
'#page'
'
		;
		

////////////step (2)		
	
		
		protect;
			local('page2') = include_url('http://www.coliposte.fr/cotation/gp/tarificationParticulier.do;jsessionid='+#jsessionid,
				-postparams = #pp,
				-SendMIMEHeaders=(array:'User-Agent'='Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; fr; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11', 'Cookie'=((self->cookiejar)->values->join:';')),
				-retrievemimeheaders='hdr',
				-timeout=15
			);
		/protect;

		local('debug_cookie_sent') = ((self->cookiejar)->values->join:'
');		
			
		iterate($hdr->find('Set-Cookie'), local('i'));		
			local('debug_cookie_rcvd') += (#i->value)+'
';
			local('ivalue') = (#i->value)->(split:';');
			local('valuename') = ((#ivalue->Get:1)->(split:'='))->First;		
			(self->cookiejar)->(insert: #valuename = #i->value);		
		/iterate;
		
		
		#page2->(replace:'\r\n', '');
		#page2->(replace:'\t', '');
		#page2->(replace:' ', '');
		local('data') = #page2->(ExportString: 'iso-8859-1');

		
		local('computed_price')=(String_FindRegExp: #data, -Find='resest:(.*?)€*', -IgnoreCase);

		
		self->debug += '
2. POST results
'
		'
POST params passed : '#pp'
'
		'
Cookie sent : 
'#debug_cookie_sent'
'
		'
Cookie received : 
'#debug_cookie_rcvd'
'
		'
Cookie stored : 
'((self->cookiejar)->values->join:'
')'
'	
		//'
HTML : 
'encode_html(#data)'
'
		'
Prix : 
'#computed_price'
'
		;
		
		
		local('final_price') = decimal(#computed_price->Get:2);
		decimal(#final_price);
		local_defined('cr')? #final_price = (#final_price + 11.72);
		
		
		self->price = #final_price;
	
	/define_tag;	
	
/define_type;