//  V3.5.202
var WrPlano = "E";

var WrN = navigator;
var WrD = document;
var WrL = document.location;
var WrS = screen;

var WrPath = WrL.protocol + '//www.akna.com.br/webreport/tracker/?';

var WrUpCount = 0;
var WrUpTime = new Array();

WrUpTime[0] = 20000;
WrUpTime[1] = 60000;
WrUpTime[2] = 300000;
WrUpTime[3] = 600000;
WrUpTime[4] = 1200000;
WrUpTime[5] = 2400000;
WrUpTime[6] = 3600000;

var WrDomainWhiteList = new Array();
var WrDomainBlackList = new Array();
var WrParametersWhiteList = new Array();
var WrParametersBlackList = new Array('gclid');
var WrPathWhiteList = new Array();
var WrPathBlackList = new Array();

var WrUrlPassValidate = true;
var wrload = 0;
var WrParameters = new Array();

WrParameters[0]  = {name:'identificacao', value:''};
WrParameters[1]  = {name:'client', value:'12078'};
WrParameters[2]  = {name:'resolucao', value:''};
WrParameters[3]  = {name:'cores', value:''};
WrParameters[4]  = {name:'flash', value:''};
WrParameters[5]  = {name:'java', value:''};
WrParameters[6]  = {name:'hostname', value:''};
WrParameters[7]  = {name:'url', value:''};
WrParameters[8]  = {name:'origem', value:''};
WrParameters[9]  = {name:'title', value:''};
WrParameters[10] = {name:'cookie', value:''};
WrParameters[11] = {name:'id', value:'87'};
WrParameters[12] = {name:'externo', value:'0'};
WrParameters[13] = {name:'nome', value:''};
WrParameters[14] = {name:'email', value:''};
WrParameters[15] = {name:'contabilizar', value:'1'};
WrParameters[16] = {name:'akacao', value:''};
WrParameters[17] = {name:'akcnt', value:''};
WrParameters[18] = {name:'akvkey', value:''};
WrParameters[19] = {name:'perfis', value:''}; // TODO: Remover - depreciado
WrParameters[20] = {name:'pontos', value:''}; // TODO: Remover - depreciado
WrParameters[21] = {name:'secao', value:''};
WrParameters[22] = {name:'evento', value:''};
WrParameters[23] = {name:'quantidade', value:''};
WrParameters[24] = {name:'valor', value:''};
WrParameters[25] = {name:'item', value:''};
WrParameters[26] = {name:'area', value:''};
WrParameters[27] = {name:'conversao.nome', value:''};
WrParameters[28] = {name:'conversao.valor', value:''};

var parameters = WrParameters;

WrSetData('resolucao', WrS.width+"x"+WrS.height);
WrSetData('cores', WrS.colorDepth);
WrSetData('flash', WrflashVersion());
WrSetData('java', (WrN.javaEnabled()?1:0));
WrSetData('hostname', WrTrataHostname(WrL.hostname));
WrSetData('url', WrTrataUrl(WrL));
WrSetData('origem', WrD.referrer);
WrSetData('title', WrD.title);

WrLoadMetaTags();

function WrLoadMetaTags()
{
    WrSetData('perfis', WrGetMeta('perfis')); // TODO: Remover - depreciado
    WrSetData('pontos', WrGetMeta('pontos')); // TODO: Remover - depreciado
    WrSetData('identificacao', WrGetMeta('visitante.identificacao'));
    if(WrGetMeta('visitante.nome') != '')
	  WrSetData('nome', WrGetMeta('visitante.nome'));
    if(WrGetMeta('visitante.email') != '')
	  WrSetData('email', WrGetMeta('visitante.email'));
    WrSetData('secao', WrGetMeta('secao'));
    WrSetData('evento', WrGetMeta('evento'));
    WrSetData('quantidade', WrGetMeta('quantidade'));
    WrSetData('valor', WrGetMeta('valor'));
    WrSetData('item', WrGetMeta('item'));
    WrSetData('area', WrGetMeta('area'));
    WrSetData('conversao.nome', WrGetMeta('conversao.nome'));
    WrSetData('conversao.valor', WrGetMeta('conversao.valor'));
}

function WrTrataUrl(url)
{
    url = url.toString();
    
    url = WrCacheGoogle(url);
    url = WrCacheYahoo(url);

    WrSetData('akacao', WrCapturaValorArgumento(url, '__akacao'));
    WrSetData('akcnt', WrCapturaValorArgumento(url, '__akcnt'));
    WrSetData('akvkey', WrCapturaValorArgumento(url, '__akvkey'));

    url = WrSortUrl(url);  

    // Remove variaveis que não estão na WhiteList
    if (WrParametersWhiteList.length > 0)
    {
        var varname = WrListParametersVarsName(url);
        for (var i = 0; i < varname.length; i++)
            if (WrArraySearch(varname[i].toLowerCase(), WrParametersWhiteList) !== false)
                url = WrRemoveArgumento(url, varname[i]+'=');
    }
    else
    {
        if(WrCapturaValorArgumento(url, "sid").length == 32)
            url = WrRemoveArgumento(url, "sid");

        url = WrRemoveArgumento(url, "__ak");
        url = WrRemoveArgumento(url, "utm_");
        url = WrRemoveArgumento(url, "gclid=");
        url = WrRemoveArgumento(url, "PHPSESSID=");

        // Remove variaveis que estão na BlackList
        if (WrParametersBlackList.length > 0)
        {
            var varname = WrListParametersVarsName(url);
            for (var i = 0; i < varname.length; i++)
                if (WrArraySearch(varname[i].toLowerCase(), WrParametersBlackList) === false)
                    url = WrRemoveArgumento(url, varname[i]+'=');
        }
    }

    // Remove todos as variaveis se o cliente nunca configurou uma regra (Regra pra clientes novos 09/04/2010)
    if (WrParametersWhiteList.length == 0 && WrParametersBlackList.length == 0)
    {
        var varname = WrListParametersVarsName(url);
        for (var i = 0; i < varname.length; i++)
            url = WrRemoveArgumento(url, varname[i]+'=');
    }

    // Verifica se o endereço não está nas regras de BlackList
    if (WrPathBlackList.length > 0)
    {
        var path = WrGetPath(url);
        for (var i = 0; i < WrPathBlackList.length; i++)
            if (WrSearchText(WrPathBlackList[i].type, WrPathBlackList[i].text, path))
            {
                WrUrlPassValidate = false;
                break;
            }
    }

    // Verifica se o endereço está nas regras de WhiteList
    if (WrPathWhiteList.length > 0)
    {
        var path = WrGetPath(url);
        WrUrlPassValidate = false;
        for (var i = 0; i < WrPathWhiteList.length; i++)
            if (WrSearchText(WrPathWhiteList[i].type, WrPathWhiteList[i].text, path))
            {
                WrUrlPassValidate = true;
                break;
            }
    }

    url = WrTrim(url);
    url = url.replace("?&", "?");

    return url;
}

function WrCacheGoogle(url)
{
    var expr = /\/search\?q=cache:/;
    
    if(url.search(expr) == -1)
        return url;
        
    return 'http://'+unescape(url.split(":")[3]).split("+")[0];
}

function WrCacheYahoo(url)
{
    var expr = /\/search\/cache\?ei=UTF-8/;

    if(url.search(expr) == -1)
        return url;
        
    return 'http://'+unescape(url.substring(url.search(/&u=/)+3).split("&")[0]);
}

function WrSortUrl(url)
{
    if(url.search(/\?/) == -1)
        return url;

    var params = WrListParameters(url);
    var args = '';

    url = url.split('?');
    
    var ancora = url[1].split('#');
    
    ancora = ((ancora[1]) ? '#' + ancora[1] : '');

    for(var i = 0; i < params.length; i++)
    {
        if(i == 0) args = '?';
        args += params[i];
        if(i < (params.length-1)) args += "&";
    }

    return url[0] + args + ancora;
}

function WrGetPath(url)
{
    if(url.search(/\?/) == -1)
        return url;

    url = url.split('?');

    return url[0];
}

function WrListParameters(url)
{
    var arrParams = new Array();

    if(url.search(/\?/) == -1)
        return arrParams;

    url = url.split('?');

    var arrParams = url[1].split('#')[0].split('&');

    arrParams = arrParams.sort();

    return arrParams;
}

function WrListParametersVarsName(url)
{
    var params = WrListParameters(url);
    var arrVars = new Array();
    var v;

    for (var i = 0; i < params.length; i++)
    {
        v = params[i].split('=');
        arrVars[i] = v[0].toLowerCase();
    }

    return arrVars;
}

function WrRemoveArgumento(url, arg)
{
    return eval("url.replace(/([&]?"+ arg +"[^&#]*)/ig, \"\")");
}

function WrCapturaValorArgumento(url, arg)
{
    var qs = url.split(/[&\?]/);

    for (var i=1; i < qs.length; i++)
    {
        qs[i] = qs[i].split('=');
        if(qs[i][0] == arg)
            return qs[i][1];
    }

    return "";
}

function WrTrataHostname(host)
{
    // Verifica se o endereço não está nas regras de BlackList
    if (WrDomainBlackList.length > 0)
    {
        for (var i = 0; i < WrDomainBlackList.length; i++)
            if (WrSearchText(WrDomainBlackList[i].type, WrDomainBlackList[i].text, host))
            {
                WrUrlPassValidate = false;
                break;
            }
    }

    // Verifica se o endereço está nas regras de WhiteList
    if (WrDomainWhiteList.length > 0)
    {
        WrUrlPassValidate = false;
        for (var i = 0; i < WrDomainWhiteList.length; i++)
            if (WrSearchText(WrDomainWhiteList[i].type, WrDomainWhiteList[i].text, host))
            {
                WrUrlPassValidate = true;
                break;
            }
    }

    return host;
}

function WrSearchText(type, needle, haystack)
{
    var ret = false;
    if (type == "C")
      ret = (haystack.indexOf(needle) != -1);
    if (type == "I")
      ret = (haystack.indexOf(needle) == 0);
    if (type == "F")
      ret = (haystack.indexOf(needle, haystack.length - needle.length) != -1);

    return ret;
}

function WrTrim(value) 
{
    return value.replace(/^[/?#\s&]+|[/?#\s&]+$/, "");
}

function WrSetData(name, value)
{
    for(param in WrParameters)
    {
        if(WrParameters[param].name == name)
        {
            WrParameters[param].value = WrEncode(value);
            parameters[param].value = WrEncode(value);
            return;
        }
    }
  
    return false;
}

function WrSendFlash(page)
{
    WrSetData("title", page);
    WrSetData("url", WrL.protocol + '//' + WrGetData('hostname') + '/flash/' + escape(page));
    WrSend(WrParameters, false, false);
}

function WrSendEvent(evento)
{
    var argv = WrSendEvent.arguments;
    var argc = argv.length;

    WrSetData('perfis', (argc>1)?argv[1]:null);
    WrSetData('pontos', (argc>2)?argv[2]:null);
    WrSetData("origem", WrGetData("url"));
    WrSetData("url", "event://" + evento);
    WrSetData('title', "");
    
    WrSend(WrParameters, false, false);

    WrSetData('url', WrTrataUrl(WrL));
    WrSetData('origem', WrD.referrer);
    WrSetData('title', WrD.title);

    WrLoadMetaTags();
}

function WrSendParams(evento)
{
    var argv = WrSendEvent.arguments;
    var argc = argv.length;
    
    var ssecao         = WrGetMeta('secao');
    var squantidade    = WrGetMeta('quantidade');
    var svalor         = WrGetMeta('valor');
    var sitem          = WrGetMeta('item');
    var sevento        = WrGetMeta('evento');
    var sarea          = WrGetData('area');
  
    WrSetData('perfis', (argc>1)?argv[1]:null);
    WrSetData('pontos', (argc>2)?argv[2]:null);
    WrSetData("origem", WrGetData("url"));
    WrSetData("url", "event://" + evento);
    WrSetData('title', "");

    WrSetData('secao',  (argc>3)?argv[3]:'' );
    WrSetData('evento',     (argc>3)?argv[3]:'' );
    WrSetData('quantidade', (argc>4)?argv[4]:'0');
    WrSetData('valor',      (argc>5)?argv[5]:'0');    
    WrSetData('item',    (argc>5)?argv[5]:'0');
    
    WrSend(WrParameters, false, false);

    WrSetData('url', WrTrataUrl(WrL));
    WrSetData('origem', WrD.referrer);
    WrSetData('title', WrD.title);

    WrLoadMetaTags();
}

function WrGetData(name)
{
    for(param in WrParameters)
    {
        if(WrParameters[param].name == name)
            return WrParameters[param].value;
    }
  
    return false;
}


function WrSetCookieUrl(url)
{
    if(!WrGetCookie("url"))
        WrSetCookie("url", url);
}

function SetIdentificacao(id)
{
    WrSetData("identificacao", id);
}

function WrSend(params, consisteUrl, reloadMetaTags)
{
    // ======= Parametros não obrigatorios ========
    if (consisteUrl != 'undefined') consisteUrl = true;
    if (reloadMetaTags != 'undefined') reloadMetaTags = true;

    // Verifica se pageview deve ser enviado
    var envia = !(consisteUrl && !WrUrlPassValidate);

    if (envia)
    {
        if (reloadMetaTags)
            WrLoadMetaTags();

        var i=new Image(1,1);

        if(!WrGetCookie("wrkey"))
        {
            var wrkey = WrGetKey();
            var validade;

            var diasDuracao = 2920;
            var validade = new Date();
            validade.setTime(validade.getTime() + (diasDuracao * 24 * 3600 * 1000));

            WrSetCookie("wrkey", wrkey, validade, "/");
        }

        params[10].value = WrGetCookie("wrkey");

        if(params)
            for(var x=0; x < params.length; x++)
                WrPath += params[x].name + '=' + params[x].value + '&';

        i.src = WrPath;

        i.onload = function()
        {
            i.onload = null;
        }

        WrSetData("type", "");
      
        if(WrGetData('contabilizar') == '1')
        {
            setTimeout("UpdateTime()", WrUpTime[WrUpCount]);
        }
    }

    /* Marca views dos objetos dinamicos */
    var strUrl = '';
    for (var i in WrObjectsDisplay)
        if (WrObjectsDisplay[i].objId != undefined)
            strUrl += WrObjectsDisplay[i].objId+'_'+WrObjectsDisplay[i].perfilId+'_'+WrObjectsDisplay[i].itemId+'-';

    if (strUrl != '')
    {
        var i=new Image(1,1);
  
        i.src = "www.akna.com.br/webreport/tracker/?id=87&client="+WrParameters[1].value+"&objView="+strUrl;

        i.onload = function()
        {
            i.onload = null;
        }
    }
}

function UpdateTime()
{
    var i=new Image(1,1);

    // Carrega Cookie
    cookie = WrGetCookie("wrkey");

    // Carregar path dinamico
    WrPath += "updateTime=1&cookie="+cookie+"&url="+WrEncode(WrL)+"&client="+WrParameters[1].value+"&id="+WrParameters[11].value;
    i.src = WrPath;

    if(WrUpCount <=6)
    {
        WrUpCount++;
        setTimeout("UpdateTime()", WrUpTime[WrUpCount]);
    }
}

function WrEncode(s,u)
{
    if (typeof(encodeURIComponent) == 'function')
    {
        if (u) return encodeURI(s);
        else return encodeURIComponent(s);
    }
    else
    {
        return escape(s);
    }
}

function WrflashVersion()
{
    var f = "-";
    var n = navigator;

    if (n.plugins && n.plugins.length)
    {
        for (var ii=0; ii<n.plugins.length; ii++)
        {
            if (n.plugins[ii].name.indexOf('Shockwave Flash')!=-1)
            {
                f = n.plugins[ii].description.split('Shockwave Flash ')[1];
                break;
            }
        }
    }
    else
        if (window.ActiveXObject)
        {
            for (var ii=10;ii>=2;ii--)
            {
                try
                {
                    var fl = eval("new ActiveXObject('ShockwaveFlash.ShockwaveFlash."+ii+"');");
                    if (fl) { f = ii + '.0'; break; }
                }
                catch(e) {}
            }
        }
    return f;
}

function WrGetKey()
{
    var dCur = new Date();
    var co_f = "2";
    var cur = dCur.getTime().toString();
    for (var i=2; i<=(32-cur.length); i++)
    {
        co_f += Math.floor(Math.random()*16.0).toString(16);
    }
    co_f += cur;

    return co_f;
}

function WrGetCookie (name)
{
    var arg = name + "=";
    var alen = arg.length;
    var clen = document.cookie.length;
    var i = 0;
    while (i < clen)
    {
        var j = i + alen;
        if (document.cookie.substring(i, j) == arg)
            return WrGetCookieVal (j);
        i = document.cookie.indexOf(" ", i) + 1;
        if (i == 0) break;
    }
    return false;
}

function WrGetCookieVal (offset)
{
    var endstr = document.cookie.indexOf (";", offset);
    if (endstr == -1)
        endstr = document.cookie.length;
    return unescape(document.cookie.substring(offset, endstr));
}

function WrSetCookie (name, value)
{
    var argv = WrSetCookie.arguments;
    var argc = WrSetCookie.arguments.length;
    var expires = (argc > 2) ? argv[2] : null;
    var path = (argc > 3) ? argv[3] : null;
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    document.cookie = name + "=" + escape (value) +
    ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
    ((path == null) ? "" : ("; path=" + path)) +
    ((domain == null) ? "" : ("; domain=" + domain)) +
    ((secure == true) ? "; secure" : "");
}

function WrMonitor()
{
    var links = document.getElementsByTagName("a");

    for(i=0;i < links.length;i++)
    {
        // Verificar se o dominio que o usuario está acessando é diferente do clicado
        if(links[i].href.search(WrL.hostname)<0 && (links[i].href.search(/^http:/i)>-1 || links[i].href.search(/^https:/i)>-1))
            WrAdicionarEvento(links[i], "click", WrSendClick );
    }
}

function WrSendClick(obj)
{
    if(obj.currentTarget)
    {
        // Firefox
        var url = obj.currentTarget;
    } else {
        // IE
        if(typeof(obj.srcElement) == 'object')
        {
            var url = obj.srcElement.parentElement;
        } else {
            var url = obj.srcElement;
        }
    }
    
    WrSetData('origem', WrL);
    WrSetData('title', '');
    WrSetData('externo', '1');
    WrSetData('url', url);
    
    WrPath = "www.akna.com.br/webreport/tracker/?";

    WrSend(WrParameters, false, false);
}

function WrAdicionarEvento(objeto, TipoEvento, funcao)
{
    // Todos navegadores menos IE
    if(objeto.addEventListener)
    {
        objeto.addEventListener(TipoEvento, funcao, false);
        return true;
    }
    else
        if (objeto.attachEvent)
        {
            // IE
            var r = objeto.attachEvent('on'+TipoEvento, funcao);
            return r;
        }
        else
        {
            return false;
        }
}

function WrGetMeta(mn)
{
    var m = document.getElementsByTagName('meta'); 
    for(var i in m)
    {
        if (!WrIsObject(m[i]))
            continue;
        if(m[i].name == "wr." + mn || m[i].name == "bt." + mn)
            return m[i].content; 
    }

    return '';
}

var WrObjects = Array();
var WrObjectsDisplay = Array();

function WrLoadObject(objName)
{
    for (var i in WrObjects)
      if (WrObjects[i].name == objName)
        return i;

    return false;
}

function WrGetObjectContent(objName)
{
    var argv = WrGetObjectContent.arguments;
    var argc = argv.length;

    objName = objName.toLowerCase();
    var iObj = WrLoadObject(objName);
    if (iObj === false)
    {
        iObj = WrObjects.length;
        WrObjects.push({name:objName,cObj:new WrObjDinamico(objName)});
    }

    if (WrObjects[iObj].cObj == undefined || WrObjects[iObj].cObj.id == undefined)
        return;

    var iPerf = WrSelectPerfil(iObj);
    var iItem = WrSelectItem(iObj, iPerf);

    if (iItem == undefined)
        return;

    var text = '';
    if (WrObjects[iObj].cObj.type == 'I')
    {
        var img_attr = '';
        var a_attr = '';
        if (argc > 1) img_attr = ' '+argv[1];
        if (argc > 2) a_attr = ' '+argv[2];

        if (WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].link != '')
          text += '<a href="www.akna.com.br/webreport/tracker/?id=87&client='+WrParameters[1].value+'&objClick='+WrObjects[iObj].cObj.id+'_'+WrObjects[iObj].cObj.perfil[iPerf].id+'_'+WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].id+'&objUrl='+WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].link+'"'+a_attr+'>';
        text += '<img src="'+WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].text+'"'+img_attr+' />';
        if (WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].link != '')
          text += '</a>';
    }
    if (WrObjects[iObj].cObj.type == 'F')
    {
        var flash_attr = '';
        var flash_param = {};
        if (argc > 1) flash_attr = ' '+argv[1];
        if (argc > 2 && typeof(argv[2]) == 'object') flash_param = argv[2];

        var paramObj = {allowScriptAccess:'sameDomain',
                        allowFullScreen:'false',
                        wmode:'transparent',
                        menu:'false',
                        quality:'high',
                        bgcolor:'#ffffff'};

        for (var i in flash_param)
            paramObj[i] = flash_param[i];

        text += '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0"'+flash_attr+'>\n';
        text += '<param name="movie" value="' + WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].text + '" />\n';
        var embled_attr = '';
        for (var i in paramObj)
        {
            if (paramObj[i] == "") continue;
            text += '<param name="'+i+'" value="'+paramObj[i]+'" />\n';
            embled_attr += ' '+i+'="'+paramObj[i]+'"';
        }

        text += '<embed src="' + WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].text + '"' + flash_attr + embled_attr + ' type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer"/>\n';
        text += '</object>\n';
    }
    if (WrObjects[iObj].cObj.type == 'T' || WrObjects[iObj].cObj.type == 'H')
    {
        text += WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].text;
    }

    WrObjectSetDisplay(iObj, iPerf, iItem);
    document.write(text);
}

function WrObjectSetDisplay(iObj, iPerf, iItem)
{
    WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].display = true;
    WrObjects[iObj].cObj.perfil[iPerf].noviews--;
    WrObjectsDisplay.push({objId: WrObjects[iObj].cObj.id, perfilId: WrObjects[iObj].cObj.perfil[iPerf].id, itemId: WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].id});
    var nameVar = 'view_' + WrObjects[iObj].cObj.id + '_' + WrObjects[iObj].cObj.perfil[iPerf].id + '_' + WrObjects[iObj].cObj.perfil[iPerf].elements[iItem].id;
    var tot = parseInt(WrGetCookie(nameVar));
    if (isNaN(tot)) tot = 0;
    tot++;
    WrSetCookie(nameVar, tot);
}
function WrArraySearch(needle, haystack)
{
    var key = '';
 
    for (key in haystack)
        if (haystack[key] == needle)
            return key;
 
    return false;
}

function WrSelectPerfil(iObj)
{
    var AllPerfsUser = WrGetUsuPerfil();
    AllPerfsUser[0].push("0"); // Itens padroes
    AllPerfsUser[1].push("0"); // Só mostrar quando não tiver mais nada
    var ObjPerfsUser = Array(Array(),Array(),Array());

    /* Se já mostrou todos itens padrões reinicia as propriedades display */
    for (var i in WrObjects[iObj].cObj.perfil)
        if (WrObjects[iObj].cObj.perfil[i].id == 0 && WrObjects[iObj].cObj.perfil[i].noviews == 0)
            WrObjects[iObj].cObj.cleanDisplay();

    /* Loop que verifica quais perfis desse objeto o usuário se encaixa */
    var soma_perc = 0;
    for (var i in WrObjects[iObj].cObj.perfil)
    {
        // Se todos elementos já foram visualizados e não é padrão não coloca na lista
        if (WrObjects[iObj].cObj.perfil[i].noviews == 0)
            continue;

        var pos = WrArraySearch(WrObjects[iObj].cObj.perfil[i].id, AllPerfsUser[0]);
        if (pos !== false)
        {
            ObjPerfsUser[0].push(WrObjects[iObj].cObj.perfil[i].id);
            ObjPerfsUser[1].push(AllPerfsUser[1][pos]);
            ObjPerfsUser[2].push(i);
            soma_perc += parseInt(AllPerfsUser[1][pos]);
        }
    }

    if (soma_perc == 0)
      soma_perc = 1;

    /* Loop que preenche o array de numeros de sorteio do perfil */
    var nsort = 0;
    for (var i in ObjPerfsUser[1])
    {
        nsort = Math.ceil((ObjPerfsUser[1][i]/soma_perc)*1000) + parseInt(nsort);
        ObjPerfsUser[1][i] = nsort;
    }

    /* Sorteia um numero randomico entre 1 e 1000 para escolher o perfil que sera usado */
    var sort = Math.round(Math.random()*1000)+1;

    var iPerf = 0; //Default
    for (var i in ObjPerfsUser[1])
    {
        if (ObjPerfsUser[1][i] >= sort)
        {
            var iPerf = ObjPerfsUser[2][i];
            break;
        }
    }

    return iPerf;
}

function WrSelectItem(iObj, iPerf)
{
    var qtde_elements = WrObjects[iObj].cObj.perfil[iPerf].noviews;

    if (qtde_elements <= 0)
      return; 

    var soma_ctr = 0;
    var soma_ctr_ind = 0;
    var ctr_ind = Array();
    for (var i in WrObjects[iObj].cObj.perfil[iPerf].elements)
    {
        if (WrObjects[iObj].cObj.perfil[iPerf].elements[i].display)
            continue;

        soma_ctr += parseFloat(WrObjects[iObj].cObj.perfil[iPerf].elements[i].ctr);
        var NameInf = WrObjects[iObj].cObj.id + '_' + WrObjects[iObj].cObj.perfil[iPerf].id + '_' + WrObjects[iObj].cObj.perfil[iPerf].elements[i].id;
        var v = parseInt(WrGetCookie('view_'+NameInf));
        if (isNaN(v)) v = 0;
        var c = parseInt(WrGetCookie('click_'+NameInf));
        if (isNaN(c)) c = 0;

        var ctr = 0;
        if (v > 0) ctr = parseFloat((c/v)*100);
        if (ctr < 1)  ctr = 1;

        ctr_ind[i] = ctr;
        soma_ctr_ind += ctr;
    }

    var soma_peso = 0;
    for (var i in WrObjects[iObj].cObj.perfil[iPerf].elements)
    {
        // Se já apareceu não mostrar denovo
        if (WrObjects[iObj].cObj.perfil[iPerf].elements[i].display)
        {
            WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso = 0;
            continue;
        }

        if (WrObjects[iObj].cObj.criterio == 'U')
            WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso = Math.ceil(1000 / qtde_elements);
        if (WrObjects[iObj].cObj.criterio == 'Q')
            WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso = Math.ceil((1000 / soma_ctr_ind) * (soma_ctr_ind - ctr_ind[i]));
        if (WrObjects[iObj].cObj.criterio == 'C')
            WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso = Math.ceil((1000 / soma_ctr) * WrObjects[iObj].cObj.perfil[iPerf].elements[i].ctr);

        soma_peso += WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso;
    }

    /* Sorteia um numero randomico entre 1 e 1000 para escolher o item do perfil que sera usado */
    var sort = Math.round(Math.random()*1000)+1;

    var sum_pos = 0;
    for (var i in WrObjects[iObj].cObj.perfil[iPerf].elements)
    {
        if ((WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso + sum_pos) >= sort)
        {
            var iItem = i;
            break;
        }

        sum_pos += parseInt(WrObjects[iObj].cObj.perfil[iPerf].elements[i].peso);
    }

    return iItem;
}

function WrItem(id, text, link, view, click)
{
    this.id = id;
    this.text = text;
    this.link = link;
    this.view = view;
    this.click = click;
    var ctr = 1;
    if (view > 0) ctr = parseFloat((click/view)*100);
    if (ctr < 1)  ctr = 1;
    this.ctr = ctr;
    this.peso = 100;
    this.display = false;
}

function WrIsObject(mixed_var)
{
    if (mixed_var instanceof Array)
        return false;
    else
        return (mixed_var !== null) && (typeof(mixed_var) == 'object');
}

// --------- Uso antigo ----------
function GetData(name)        { return WrGetData(name); }
function SetData(name, value) { return WrSetData(name, value); }
function Send(params)         { return WrSend(params); }
function GetKey()             { return WrGetKey(); }
// -------------------------------

WrSetCookieUrl(WrL);
WrAdicionarEvento(window, "load", function(){ WrMonitor() } );

wrload = 1;


// 
function WrObjDinamico(objName)
  {
  this.WrElem = {
};
    if (eval('this.WrElem.'+objName.toLowerCase()) == undefined) return;
    this.getAttribute = function(objName, attName)
        {
        return eval('this.WrElem.'+objName.toLowerCase()+'.'+attName);
        }
    this.cleanDisplay = function()
        {
        for (var i in this.perfil)
            {
            for (var j in this.perfil[i].elements)
                this.perfil[i].elements[j].display = false;
            this.perfil[i].CountNoDisplayElements();
            }
        }
    this.id = this.getAttribute(objName, 'id');
    this.criterio = this.getAttribute(objName, 'criterio');
    this.type = this.getAttribute(objName, 'type');
    this.perfil = new Array();
    this.perfil[0] = new WrItensPerfil(this.id, 0);
}
function WrItensPerfil(objID, perfID)
  {
  this.elements = new Array();
  this.id = perfID;
  this.CountNoDisplayElements = function()
    {
    this.noviews = 0;
    for (var i in this.elements)
      if (!this.elements[i].display)
        this.noviews++;
    }
  this.CountNoDisplayElements();
  }


// 38.107.191.116 ()
function WrGetUsuPerfil()
  {
    return Array(
                 Array(''),
                 Array('')
                );
  }