<?

// (c) 2002 Michal Kebrt
// michalek.k@seznam.cz


// zabraníme cashování
Header("Cache-Control: no-cache");
Header("Pragma: no-cache");
Header("Expires: ".GMDate("D, d M Y H:i:s")." GMT");

// počítadlo voláme jako obrázek (možno použít i jiné formáty obrázku)
//dl("php_gd.dll");
Header("Content-type: image/png");

// připojení k databázi
require("db.php");

// DATUM
$date = Date("Y-m-d H:i:s"); // aktuální datum a čas

// VISIT - unikátní návštěvník / den
SetCookie("visit", "PAGEVIEW", MkTime(23,59,59, Date("m"), Date("d"), Date("Y")), "/"); // cookie platí pouze dnes

// IP ADRESA
if(IsSet($HTTP_X_FORWARDED_FOR)):
        $explode_ip = Explode(",", $HTTP_X_FORWARDED_FOR);
    $ip = $explode_ip[0];
else:
    $ip = $REMOTE_ADDR;
endif;

// pokud cookie existuje, nejedná se o visit
// v opačném případě zjistíme, zda daná IP adresa přistoupila v posledních 20 minutách (pokud ne, jedná se o visit)
if(IsSet($visit)):
        $visit = 0;
else:
        $query = MySQL_Query("SELECT access_date FROM access WHERE ip = '$ip' AND DATE_ADD(access_date, INTERVAL 20 MINUTE) > NOW() LIMIT 0,1");
        if($result = MySQL_Fetch_Array($query))
                $visit = 0;
        else
                $visit = 1;
endif;

$http_user_agent = StrToLower($HTTP_USER_AGENT); // převede na malá písmena

// zjistíme informace o počítači (prohlížeč, operační systém, rozlišení, barevná hloubka)
// "0" označuje neznámý prohližeč, OS, ...

// BROWSER
$query = MySQL_Query("SELECT id FROM browser WHERE '$http_user_agent' REGEXP browser_regexp ORDER BY id LIMIT 0,1");
if ($result = MySQL_Fetch_Array($query))
        $browser = $result["id"];
else
        $browser = 0;

// OS
$query = MySQL_Query("SELECT id FROM os WHERE '$http_user_agent' REGEXP os_regexp ORDER BY id LIMIT 0,1");
if ($result = MySQL_Fetch_Array($query))
        $os = $result["id"];
else
        $os = 0;
        
// ROZLIŠENÍ
$query = MySQL_Query("SELECT id FROM resolution WHERE screenres = '$screenres'");
if ($result = MySQL_Fetch_Array($query))
        $resolution = $result["id"];
else
        $resolution = 0;
        
// BAREVNÁ HLOUBKA
$query = MySQL_Query("SELECT id FROM colordepth WHERE depth = '$colordepth'");
if ($result = MySQL_Fetch_Array($query))
        $depth = $result["id"];
else
        $depth = 0;

// REFERER - odkud přišel návštěvník
$no_referer = "jiskradomazlice";        // pokud bude $referer obsahovat tuto hodnotu, jedná se o přechod v rámci serveru
$http_referer = URLDecode(StrToLower($referer));        // rozkóduje URL a převede na malá písmena

if ($http_referer == ""):        // přímé volání
        $referer = 1;

elseif (EregI($no_referer, $http_referer)):        // přechod v rámci serveru
        $referer = 2;

else:        // návštěvník přisel z cizích stránek
        $url = Parse_URL($http_referer); // rozdělí URL na části
        $host = EregI_Replace("^www\.", "", $url["host"]); // odstraní "www."

        // je stránka v databázi ? (pokud ne, přidáme ji)
        $query = MySQL_Query("SELECT id FROM referer WHERE server = '$host'");
        if ($result = MySQL_Fetch_Array($query)):
                $referer = $result["id"];
        else:
                $query = MySQL_Query("INSERT INTO referer VALUES ('', '$host')");
                $referer = MySQL_Insert_ID();
        endif;
        
        // VYHLEDÁVAČE - jaká fráze byla použitá při vyhledávání
        $explode = Explode(".", $url["host"]);        // rozdělí adresu serveru  ($url["host"]) na jednotlivé části
        $host_domain = $explode[Count($explode)-2] . "." . $explode[Count($explode)-1];        // doména 2. úrovně
        
        // jedná se o vyhledávač ?
        $query = MySQL_Query("SELECT * FROM searchengine WHERE server = '$host_domain'");
        if($result = MySQL_Fetch_Array($query)):
                // zjistíme použitou frázi  - přes proměnnou, kterou vyhledávač používá
                $variables = Explode("&", $url["query"]);
                for($i=0;$i<Count($variables);$i++):
                        $explode = Explode('=', $variables[$i]);
                        if($explode[0] == $result["variable"]):
                                $searchtext = $explode[1];        // fráze použitá při vyhledávání
                                break;
                        endif;
                endfor;

                // pokud se podařilo zjistit frázi, zapíšeme vše do databáze
                if($searchtext != ""):
                        $server = $result["id"];
                        // je fráze v databázi ? (pokud ne, přidáme ji)
                        $query = MySQL_Query("SELECT id FROM searchtext WHERE query = '$searchtext'");
                        if ($result = MySQL_Fetch_Array($query)):
                                $search_id = $result["id"];
                        else:
                                $query = MySQL_Query("INSERT INTO searchtext VALUES ('', '$searchtext')");
                                $search_id = MySQL_Insert_ID();
                        endif;
                        $query = MySQL_Query("INSERT INTO searched VALUES ('', '$date', '$server', '$search_id')");
                endif;
        endif;
endif;

// STRÁNKA
$request_uri = StrToLower($HTTP_REFERER); // převede na malá písmena

// je stránka v databázi ? (pokud ne, přidáme ji)
$query = MySQL_Query("SELECT id FROM path WHERE page = '$request_uri'");
if ($result = MySQL_Fetch_Array($query)):
        $path = $result["id"];
else:
        // název stránky
        $fp = FOpen($request_uri, "r");
        ERegI("<title>(.*)</title>", FRead($fp, 300), $title);
        FClose($fp);
        if($title[1]!="")
                $title = $title[1];
        else
                $title = 0;
        
        $query = MySQL_Query("INSERT INTO path VALUES ('', '$request_uri', '$title')");
        $path = MySQL_Insert_ID();
endif;

// DOMÉNOVÁ ADRESA
if($REMOTE_HOST!=""):
    $ip_name = $REMOTE_HOST;
else:
        $ip_name = GetHostByADDR($ip);
endif;

$ip_name = StrToLower($ip_name);

if($ip_name == "") $ip_name = 0;
// pokud se nepodařilo IP adresu převést na doménovou adresu, vložíme do $ip_name "0"
if(EregI("[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}", $ip_name))        $ip_name = 0;

// DOMÉNA NEJVYŠŠÍ ÚROVNĚ
if($ip_name!="0"):
        // doména nejvyšší úrovně je poslední částí doménové adresy
        $explode = Explode(".", $ip_name);
        $domain = $explode[Count($explode)-1];
        
        // je doména v databázi ?
        $query = MySQL_Query("SELECT id FROM domain WHERE code = '$domain'");
        if($result = MySQL_Fetch_Array($query))
                $domain = $result["id"];
        else
                $domain = 0;
else:
        $domain = 0;
endif;

// OBLAST
// odpovídá doménová adresa nějakému záznamu v databázi ?
if($ip_name!="0"):
        $query = MySQL_Query("SELECT id FROM town WHERE '$ip_name' REGEXP ip_regexp ORDER BY id LIMIT 0,1");
        if ($result = MySQL_Fetch_Array($query))
                $area = $result["id"];
        else
                $area = 0;
else:
        $area = 0;
endif;

// do tabulky access vložíme informace o každém přístupu na stránku
$add = MySQL_Query("INSERT INTO access VALUES ('', '$date', '$visit', '$browser', '$os', '$resolution', '$depth', '$referer', '$path', '$area', '$ip', '$ip_name', '$domain')");

// obrázek (transparentní pozadí)
$img = ImageCreate(1,1);
$bgcolor = ImageColorAllocate($img, 0, 0, 0);
ImageColorTransparent($img, $bgcolor);
ImagePNG($img);
?>