/* **********************************************************
       Author:        Zdenek Benak
       Emai:          zdenek.benak@centrum.cz
       year:          2003
       Description:   skript pro sber statistik o uzivateli
                      a zavolani php skriptu ktery statistiky
                      ulozi do databaze
   * **********************************************************/


  function UrlEncode2(str)
  {
    var hex_tab = "0123456789ABCDEF", result = "", ascii_tab = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������� �����������������������������������������������������������������������������������������������";
    for (var i=0; i<str.length; i++)
    {
      var chr = str.charAt(i), ord = ascii_tab.indexOf(chr)+32;
      if (ord==32) result += "+";
      else if  (((ord>47)&&(ord<58))||((ord>64)&&(ord<91))||((ord>95)&&(ord<122))||(chr==".")||(chr=="/")) result += chr; else result += "%"+hex_tab.charAt(Math.floor(ord/16))+hex_tab.charAt(ord%16);
    }
    return result;
  }

  function GetParam2(param_name,default_value,search_str)
  {
    search_str = self.top.document.location.search.substr(1).replace("%20", " ");
    params = search_str.split("&");
    for (i=0;i<params.length;i++)
    {
      p = params[i].split("=");
      if (p.length>=2)
      {
        if (p[0]==param_name)
        {
          pstr = p[1];
          for (i=2;i<p.length;i++) pstr += ("="+p[i]);
          return pstr;
        }
      }
    }
    return default_value;
  }
  // ----- init vars -----
    var page_name;
    var page_description;
    var stats_server = 2;
    if (document.location.toString().indexOf("www.koralky-perlicky.cz")>-1) stats_server=2;
    if (stats_server == 1)
    {
      web_folder = "";
      stats_script = "/stats/stats.php";
    }
    else if (stats_server == 2)
    {
      web_folder   = "";
      stats_script = "http://www.koralky-perlicky.cz/modules/stats/stats.php";
    }
    //alert(stats_script);

  // ----- sber dat o uzivateli -----
    Md  = document;
    Mnv = navigator;
    Mrn = Math.random();
    ref = self.top.document.referrer;
    if (ref == "") ref = GetParam2("referrer_str","");
    Ms  = screen;
    Mn  = (Mnv.appName.substring(0,2)=="Mi")?0:1
    rd  = (Mn==0)?Ms.colorDepth:Ms.pixelDepth;
    rw  = Ms.width;
    rh  = Ms.height;
  // ----- jmeno a popis stranky -----
    if (!page_name)
    {
      loc = document.location.toString();
      //strip args
      pos = loc.indexOf("?");
      loc = (pos==-1)?loc:loc.substring(0,pos);
      //strip http://
      pos = loc.indexOf("http://");
      loc = (pos==-1)?loc:loc.substring(pos+7);
      //strip server adres
      pos = loc.indexOf("/");
      loc = (pos==-1)?loc:loc.substring(pos+1);
      //strip folders
      pos = loc.indexOf(web_folder);
      loc = (pos==-1)?loc:loc.substring(pos+web_folder.length);
      //if (loc=="cz/" || loc=="uk/" || loc=="") loc = loc + "index.php";
      page_name = loc;
    }
    if (!page_description) page_description = Md.title;
    page_name        = UrlEncode2(page_name);
    page_description = UrlEncode2(page_description);
  // ----- uplna cesta ke scriptu vcetne potrebnych prarametru  -----
    src_str = stats_script + "?page_name="+page_name+"&page_description="+page_description+"&ref="+ref+"&rd="+rd+"&rw="+rw+"&rh="+rh+"&mrn="+Mrn;
  // ----- zavolani skriptu pro statistiku vlozenim odkazu na statistku jako src obrazku  -----
    //alert(src_str);
    stats_img = new Image();
    stats_img.src = src_str;
    //window.open(src_str,"","");
    //document.write("<img src='"+src_str+"' width='100' height='1' border='0'>");