var session_id = '-1';

function SetCookie( name, value, expires, path, domain, secure )
{
var today = new Date();
today.setTime( today.getTime() );

/*
if the expires variable is set, make the correct
expires time, the current script below will set
it for x number of days, to make it for hours,
delete * 24, for minutes, delete * 60 * 24
*/
if ( expires )
{
expires = expires * 1000 * 60 * 60 * 24;
}
var expires_date = new Date( today.getTime() + (expires) );

document.cookie = name + "=" +escape( value ) +
( ( expires ) ? ";expires=" + expires_date.toGMTString() : "" ) +
( ( path ) ? ";path=" + path : "" ) +
( ( domain ) ? ";domain=" + domain : "" ) +
( ( secure ) ? ";secure" : "" );
}

function GetCookie( name ) {

var start = document.cookie.indexOf( name + "=" );
var len = start + name.length + 1;
if ( ( !start ) &&
( name != document.cookie.substring( 0, name.length ) ) )
{
return null;
}
if ( start == -1 ) return null;
var end = document.cookie.indexOf( ";", len );
if ( end == -1 ) end = document.cookie.length;
return unescape( document.cookie.substring( len, end ) );
}
function Delete_Cookie( name, path, domain ) {
if ( Get_Cookie( name ) ) document.cookie = name + "=" +
( ( path ) ? ";path=" + path : "") +
( ( domain ) ? ";domain=" + domain : "" ) +
";expires=Thu, 01-Jan-1970 00:00:01 GMT";
}
function setLabel()
{
        var urlref = '' + document.location;
        if(urlref.indexOf('labelmp')>0)
        {
                urlref = urlref.substring(urlref.indexOf('labelmp')+8);
                if(urlref.indexOf('&')>0) {urlref = urlref.substring(0,urlref.indexOf('&'));}
                SetCookie( 'labelmp', ''+urlref, '', '/', 'mundopocoyo.com', '' );
        }
        else
        {
		var urlsem = '' + document.location;
	        if(urlsem.indexOf('labelsem')>0)
	        {
			urlsem = urlsem.substring(urlsem.indexOf('labelsem')+9);
			if(urlsem.indexOf('&')>0) {urlsem = urlsem.substring(0,urlsem.indexOf('&'));}
			
		}
		else urlsem = '';
                urlref = '' + document.referrer;
                if(urlref.length>0)
                {
                        SetCookie( 'labelmp', '' + escape(urlsem + ExtractKeywords(urlref)),'','/','mundopocoyo.com','');
                }
        }

}
function getLabel()
{
	var urlref = GetCookie( 'labelmp' );
	if(urlref==null) return '';
	else return urlref;
}
function encode(s)
{
        var chars=new Array(256);
        for (var i=0;i<256;i++)
                chars[i]=0;
        var len=s.length;
        for (var i=0;i<len;i++)
        {
                var t_c = s.charCodeAt(i)&0xff;
                chars[t_c]++;
        }
        //s="";
        for (var i=32;i<256;i++)
        {
                s+=String.fromCharCode(i)+chars[i];
        }
        var num = new Number(hashCode(s)).toString(16);
        return num;
}
function hashCode(s)
{
        var h=0;
        var len=s.length;
        for (var i=0;i<len;i++)
        {
                h=(h<<5)-h+s.charCodeAt(i);
        }
        return h;
}
function ExtractKeywords(refurl) {
var searchengine = '';
var searchengineurl = '';
var sechecked = '';
var ses=new Array(
'4Anything','app.4anything.com','query',
'7Metasearch', '7metasearch.com', 'q',
'7Search','7search.com', 'qu',
'About','about.com', 'terms',
'AllTheWeb','alltheweb.com', 'query',

'Altavista Austria','at.altavista.com','q',
'Altavista Australia','au.altavista.com', 'q',
'Altavista Belgium (French)','be-fr.altavista.com', 'q',
'Altavista Belgium (Dutch)','be-nl.altavista.com', 'q',
'Altavista Brazil','br.altavista.com', 'q',
'Altavista Canada (English)','ca-en.altavista.com', 'q',
'Altavista Canada (French)','ca-fr.altavista.com', 'q',
'Altavista Switzerland (German)','ch-de.altavista.com', 'q',
'Altavista Switzerland (French)','ch-fr.altavista.com', 'q',
'Altavista Czech Republic','cz.altavista.com', 'p',
'Altavista Germany','de.altavista.com', 'p',
'Altavista Denmark','dk.altavista.com', 'p',
'Altavista Spain','es-es.altavista.com', 'q',
'Altavista Finland','fi.altavista.com', 'q',
'Altavista France','fr.altavista.com', 'q',
'Altavista Health','health.altavista.com', 'q',
'Altavista Hungary','hu.altavista.com', 'q',
'Altavista Ireland','ie.altavista.com', 'q',
'Altavista India','in.altavista.com', 'q',
'Altavista Italy','it.altavista.com', 'q',
'Altavista Korea (South)','kr.altavista.com', 'q',
'Altavista Mexico','mx.altavista.com', 'q',
'Altavista Netherlands','nl.altavista.com', 'q',
'Altavista Norway','no.altavista.com', 'q',
'Altavista New Zealand','nz.altavista.com', 'q',
'Altavista Portugal','pt.altavista.com', 'q',
'Altavista Sweden','se.altavista.com', 'q',
'Altavista United Kingdom','uk.altavista.com', 'q',
'Altavista Listings','listings.altavista.com','q',
'Altavista Raging Search','ragingsearch.altavista.com','q',
'Altavista','altavista.com', 'q',
'Altavista Poland','altavista.onet.pl', 'q',

'AOL','aolsearch.aol.com', 'query',
'AOL Tv','aoltvsearch.aol.com', 'query',
'AOL Australia','aolsearch.aol.com.au', 'query',
'AOL Brasil','aolbusca.aol.com.br', 'query',
'AOL Canada','aolsearch.aol.ca', 'query',
'AOL Japan','aol.goo.ne.jp', 'MT',
'AOL UK','aolsearch.aol.co.uk', 'query',
'AOL Netfind','aolfind.aol.com', 'query',
'AOL Netfind Germany','aolfind.aol.de', 'query',

'Ask Jeeves UK','askjeeves.co.uk', 'ask',
'Ask Jeeves','askjeeves.com', 'ask',
'Ask Jeeves Kids','askjeeveskids.co.uk', 'ask',
'Atomica','lookup.atomica.com', 's',
'ATT News','dailynews.att.net', 'qry',
'Austria','finder.austria.com', 'query',
'Bellsouth','home.bellsouth.net', 'Keywords',
'Blueyonder','bbsearch.blueyonder.co.uk','q',
'Bol (Brazil)','miner.bol.com.br', 'q',
'BlueWin Switzerland','av-de.bluewin.ch', 'q',
'BZZ Russia','bzz.ru', 'query',
'Catloga (France)','fr.web.caloga.com', 'q',
'Chopstix','au.chopstix.net', 'search',
'Compuserve','cissearch.compuserve.com','sTerm',
'Curryguide','fastsearch.curryguide.com','query',

'DirectHit/Ask Jeeves','askuk.directhit.com','qry',
'DirectHit/Britannica','britannica.directhit.com','qry',
'DirectHit/Comet','comet.directhit.com', 'qry',
'DirectHit/Dictionary','dictionary.directhit.com','qry',
'DirectHit/Megadirectory','megadirectory.directhit.com','qry',
'DirectHit/MSN','msn.directhit.com', 'qry',
'DirectHit/Systema','systema.directhit.com', 'qry',
'DirectHit/Webster','webster.directhit.com', 'qry',
'DirectHit','directhit.com', 'qry',
'Open Directory Project','dmoz.org', 'search',
'Dogpile','dogpile.com', 'q',
'Dreamx','m3.dreamx.net', 'query',
'Earthlink','goto.earthlink.net', 'Keywords',
'Education World','db.education-world.com','queryText',
'Elsitio','buscador.elsitio.com', 'palabras',
'Elmundo Spain','ariadna.elmundo.es', 'q',
'Espotting','affiliate.espotting.com','keyword',
'Eureka','eureka.com', 'q',

'Excite Austria','excite.at', 'search',
'Excite Australia','excite.com.au', 'search',
'Excite Chinese','excite.ch', 'search',
'Excite Canada','excite.ca', 'search',
'Excite Germany','excite.de', 'search',
'Excite Denmark','excite.dk', 'search',
'Excite Spain','excite.es', 'search',
'Excite France','excite.fr', 'search',
'Excite Italy','excite.it', 'search',
'Excite Japan','excite.co.jp', 'search',
'Excite UK','excite.co.uk', 'search',
'Findia','findia.net', 'query',
'Go/Infoseek','infoseek.go.com', 'qt',

'Google Directory','directory.google.com', 'q',
'Google/Gotonet','gotonet.google.com', 'q',
'Google Groups','groups.google.com', 'q',
'Google Images','images.google.com', 'q',
'Google','google.com', 'q',
'Google WAP','wap.google.com', 'q',
'Google (Austria)','google.at', 'q',
'Google (United Arab Emirates)','google.ae', 'q',
'Google (Belgium)','google.be', 'q',
'Google (Canada)','google.ca', 'q',
'Google (Cocos (Keeling) Islands)','google.cc', 'q',
'Google (Switzerland)','google.ch', 'q',
'Google (Costa Rica)','google.co.cr', 'q',
'Google (Israel)','google.co.il', 'q',
'Google (Japan)','google.co.jp', 'q',
'Google (South Korea)','google.co.kr', 'q',
'Google (New Zealand)','google.co.nz', 'q',
'Google (Thailand)','google.co.th', 'q',
'Google (United Kingdom)','google.co.uk', 'q',
'Google (Argentina)','google.com.ar', 'q',
'Google (Brasil)','google.com.br', 'q',
'Google (Greece)','google.com.gr', 'q',
'Google (Poland)','google.com.pl', 'q',
'Google (Russia)','google.com.ru', 'q',
'Google (Germany)','google.de', 'q',
'Google (Spain)','google.es', 'q',
'Google (Micronesia)','google.fm', 'q',
'Google (France)','google.fr', 'q',
'Google (Ireland)','google.ie', 'q',
'Google (Italy)','google.it', 'q',
'Google (Liechtenstein)','google.li', 'q',
'Google (Lithuania)','google.lt', 'q',
'Google (Latvia)','google.lv', 'q',
'Google (Netherlands)','google.nl', 'q',
'Google (Portugal)','google.pt', 'q',
'Google (Portugal/English)','pesquisa.google.pt', 'q',
'Google (British Virgin Islands)','google.vg', 'q',
'Goto','goto.com', 'Keywords',
'Hananet','dxm4.hananet.net', 'query',
'Hanafos','hanafos.com', 'query',
'Hispatvista','buscar.hispavista.com', 'cadena',
'HotBot','click.hotbot.com', 'query',
'ICQ/Google','google.icq.com', 'q',
'Infospace','dpxml.infospace.com', 'qkw',
'Infospace','kevxml.infospace.com', 'qkw',
'LinkSynergy','click.linksynergy.com', 'q',
'LookSmart (CNN)','cnn.looksmart.com', 'key',
'LookSmart (CNNFN)','cnnfn.looksmart.com', 'key',

'Lycos','home.lycos.com', 'query',
'Lycos/Hotbot Directory','dir.hotbot.lycos.com', 'MT',
'Lycos/Hotbot','hotbot.lycos.com', 'MT',
'Lycos/Lycospro','lycospro.lycos.com', 'query',
'LycosAsia India','in.lycosasia.com', 'query',
'LycosAsia Malaysia','my.lycosasia.com', 'query',
'Lycos Italy','cerca.lycos.it', 'query',
'Lycos Spain','buscador.lycos.es', 'query',
'Lycos/Google Korea (South)','google.lycos.co.kr', 'q',
'Lycos Russia','poisk.lycos.co.ru', 'query',
'Mamma','mamma.com', 'query',
'Metacrawler','metacrawler.com', 'general',
'Mirago','mirago.com', 'qry',
'MSN Search','search.msn.com', 'q',
'MSN Canada (French)','fr.ca.search.msn.com', 'q',
'MSN','search.msn.com', 'q',
'MyNet','arama.mynet.com', 'q',
'NANA Israel','crawler.nana.co.il', 'string',
'NANA Israel (English)','english.nana.co.il', 'string',
'Naver','meta.naver.com', 'query',
'NBCI','nbci.com', 'keyword',
'NetBul','kapi.netbul.com', 'keyword',

'Netscape/Excite Australia','excite.au.netscape.com','search',
'Netscape/Excite Germany','excite.de.netscape.com','search',
'Netscape/Excite France','excite.fr.netscape.com','search',
'Netscape/Excite UK','excite.uk.netscape.com','search',
'Netscape (Directory)','directory.netscape.com','search',
'Netscape/Google','google.netscape.com', 'q',
'Netscape NetBusiness','netbusiness.netscape.com','searchString',
'Netscape','netscape.com', 'search',
'Netscape Online','netscapeonline.co.uk', 'query',
'Northernlight','northernlight.com', 'qr',
'Nomade France','ink.nomade.fr', 'MT',
'Search.com','search.com', 'q',
'Searchopolis','searchopolis.com', 'request',
'Snap','snap.com', 'keyword',
'StarMedia','buscaweb.starmedia.com','query',
'Superonline','arama.superoneline.com','query',
'Spray/Lycos Sweden','lycos.spray.se', 'query',
'Spray/Lycossvar Sweden','lycossvar.spray.se', 'query',
'Suomi24 Finland','evreka.suomi24.fi', 'q',
'Terra (Brasil)','busca.terra.com.br', 'query',
'Terra (Spain)','buscador.terra.es', 'Claus',
'Tiscalinet','janas.tiscalinet.it', 'query',
'T-Online (Germany)','brisbane.t-online.de', 'q',
'UOL Argentina','buscar.uol.com.ar', 'q',
'Virgilio/Google','virgilio.it', 'qs',
'Virgilio/Altavista','virgilio.it', 'qs',
'Virgilio','virgilio.it', 'qs',
'Ya','buscador.ya.com', 'item',

'Yahoo/Busca Brasil','br.busca.yahoo.com', 'p',
'Yahoo/Google Argentina','ar.google.yahoo.com', 'p',
'Yahoo/Google Asia','asia.google.yahoo.com', 'p',
'Yahoo/Google Brasil','br.google.yahoo.com', 'p',
'Yahoo/Google Canada','ca.google.yahoo.com', 'p',
'Yahoo/Google China','cn.google.yahoo.com', 'p',
'Yahoo/Google Germany','de.google.yahoo.com', 'p',
'Yahoo/Google Denmark','dk.google.yahoo.com', 'p',
'Yahoo/Google Spain','es.google.yahoo.com', 'p',
'Yahoo/Google France','fr.google.yahoo.com', 'p',
'Yahoo/Google Hong Kong (English)','hke.google.yahoo.com','p',
'Yahoo/Google India','in.google.yahoo.com', 'p',
'Yahoo/Google Italy','it.google.yahoo.com', 'p',
'Yahoo/Google Mexico','mx.google.yahoo.com', 'p',
'Yahoo/Google Sweden','se.google.yahoo.com', 'p',
'Yahoo/Google Singapore','sg.google.yahoo.com', 'p',
'Yahoo/Google United Kingdom','uk.google.yahoo.com', 'p',
'Yahoo Search Asia','asia.search.yahoo.com', 'p',
'Yahoo Search Australia','au.search.yahoo.com', 'p',
'Yahoo Search Canada','ca.search.yahoo.com', 'p',
'Yahoo Search Germany','de.search.yahoo.com', 'p',
'Yahoo Search Denmark','dk.search.yahoo.com', 'p',
'Yahoo Search France','fr.search.yahoo.com', 'p',
'Yahoo Search India','in.search.yahoo.com', 'p',
'Yahoo Search Mexico','mx.search.yahoo.com', 'p',
'Yahoo Search Norway','no.search.yahoo.com', 'p',
'Yahoo Search Sweden','se.search.yahoo.com', 'p',
'Yahoo Search Singapore','sg.search.yahoo.com', 'p',
'Yahoo Search United Kingdom','uk.search.yahoo.com', 'p',
'Yahoo/Google','google.yahoo.com', 'p',
'Yahoo Chinese','chinese.yahoo.com', 'p',
'Yahoo Spanish','espanol.yahoo.com', 'p',
'Yahoo Advanced Search','av.yahoo.com', 'p',
'Yahoo Inktomi Singapore','sg.ink.yahoo.com', 'p',
'Yahoo Inktomi United Kingdom','uk.ink.yahoo.com', 'p',
'Yahoo Inktomi','ink.yahoo.com', 'p',
'Yahoo','yahoo.com', 'p',
'Weather underground','autobrand.wunderground.com','q',
'Weather underground (Dutch)','dutch.wunderground.com','search',
'Walla Israel','find.walla.co.il', 'q',
'Web Agri (France)','moteur.web-agri.fr', 'SearchString',
'WWW Finland','haku.www.fi', 'qt,w',
'WWW Finland','haku2.wwww.fi', 'word');
        var keywords='';
        var salir = false;
        for(var i=0;i<ses.length && !salir;i+=3)
        {
                if(refurl.indexOf(ses[i+1])>0)
                {
                        if(refurl.indexOf(ses[i+2])>0)
                        {
				var refurl_tmp = refurl.substring(0,refurl.length);
				if(refurl_tmp.indexOf("?")>0){refurl_tmp = refurl_tmp.substring(refurl_tmp.indexOf("?"),refurl_tmp.length);}
                                keywords = refurl_tmp.substring(refurl_tmp.indexOf(ses[i+2])+ses[i+2].length+1);
                                if(keywords.indexOf("&")>0)
                                {
                                        keywords = keywords.substring(0,keywords.indexOf("&"));
                                }
                                if(keywords.indexOf("#")>0)
                                {
                                        keywords = keywords.substring(0,keywords.indexOf("#"));
                                }
                                keywords = keywords.replace(/\+/gi, " ");
                                keywords = unescape(keywords);
                                salir = true;
                        }
                }
        }

  return keywords;

}