<?
$infoip = getenv ("REMOTE_ADDR"); 
$infoserver = gethostbyaddr ($infoip); 

$abjahr = 2007;			// DIESE ZAHL BESTIMMT DAS STARTJAHR DES COUNTERS

if ($infoserver == "0.0.0.0")
	{
	// BLOCKED USER
	}
else
	{

$komplett = time ();
$tag = gmdate("d", $komplett); 		# 01-31
$monat = gmdate("m", $komplett);	# 01-12
$jahr = gmdate("Y", $komplett);		# 2004-
$uhr = getdate ($komplett);
$uhrzeit = $uhr["hours"] . ":" . $uhr["minutes"];
$datei = fopen ("../_counter/cnd.csv", "r");
$zeil = 1;
while ($lesen = fgetcsv ($datei, 255, ","))
	{
	for ($i=1; $i<33; $i++)
		{
		$tabell[$zeil][$i] = $lesen[$i-1];
		}
	$zeil++;
	}	
fclose ($datei);
$tabell[1][1]++;
$jj = 2 + (13 * ($jahr - $abjahr));
$tabell[$jj][2]++;
$mm = 2 + $monat + (13 * ($jahr - $abjahr));
$tabell[$mm][$tag+1]++;
$datei = fopen ("../_counter/cnd.csv", "w");
for ($i=1; $i<67; $i++)
	{
	for ($j=1; $j<33; $j++)
		{
		fwrite ($datei, $tabell[$i][$j].",");
		}
	fwrite ($datei, "\n");	
	}
fclose ($datei);

$datei = fopen ("../_counter/zugriffe.txt", "r");
for ($i=1; $i<41; $i++)
	{
	$wer[$i] = fgets ($datei, 255);
	}
fclose ($datei);
$infoip = getenv ("REMOTE_ADDR"); 
$infoserver = gethostbyaddr ($infoip); 
$datei = fopen ("../_counter/zugriffe.txt", "w");
fwrite ($datei, "( $infoserver ) $tag.$monat.$jahr $uhrzeit\n");
for ($i=1; $i<40; $i++)
	{
	fwrite ($datei, $wer[$i]);
	}
fclose ($datei);

// LAENDER

$datei = fopen ("../_counter/laender.txt", "r");
$toplevel[1] = fgets ($datei, 255); // AT
$bezeichn[1] = fgets ($datei, 255);
$wieviele[1] = fgets ($datei, 255);
settype ($wieviele[1], "integer");
$toplevel[2] = fgets ($datei, 255); // DE
$bezeichn[2] = fgets ($datei, 255);
$wieviele[2] = fgets ($datei, 255);
settype ($wieviele[2], "integer");
$toplevel[3] = fgets ($datei, 255); // CH
$bezeichn[3] = fgets ($datei, 255);
$wieviele[3] = fgets ($datei, 255);
settype ($wieviele[3], "integer");
$toplevel[4] = fgets ($datei, 255); // HU
$bezeichn[4] = fgets ($datei, 255);
$wieviele[4] = fgets ($datei, 255);
settype ($wieviele[4], "integer");
$toplevel[5] = fgets ($datei, 255); // IT
$bezeichn[5] = fgets ($datei, 255);
$wieviele[5] = fgets ($datei, 255);
settype ($wieviele[5], "integer");
$toplevel[6] = fgets ($datei, 255); // COM
$bezeichn[6] = fgets ($datei, 255);
$wieviele[6] = fgets ($datei, 255);
settype ($wieviele[6], "integer");
$toplevel[7] = fgets ($datei, 255); // CZ SK
$bezeichn[7] = fgets ($datei, 255);
$wieviele[7] = fgets ($datei, 255);
settype ($wieviele[7], "integer");
$toplevel[8] = fgets ($datei, 255); // FR
$bezeichn[8] = fgets ($datei, 255);
$wieviele[8] = fgets ($datei, 255);
settype ($wieviele[8], "integer");
$toplevel[9] = fgets ($datei, 255); // YU
$bezeichn[9] = fgets ($datei, 255);
$wieviele[9] = fgets ($datei, 255);
settype ($wieviele[9], "integer");
$toplevel[10] = fgets ($datei, 255); // ES
$bezeichn[10] = fgets ($datei, 255);
$wieviele[10] = fgets ($datei, 255);
settype ($wieviele[10], "integer");
$toplevel[11] = fgets ($datei, 255); // NL
$bezeichn[11] = fgets ($datei, 255);
$wieviele[11] = fgets ($datei, 255);
settype ($wieviele[11], "integer");
$toplevel[12] = fgets ($datei, 255); // DK
$bezeichn[12] = fgets ($datei, 255);
$wieviele[12] = fgets ($datei, 255);
settype ($wieviele[12], "integer");
$toplevel[13] = fgets ($datei, 255); // NO
$bezeichn[13] = fgets ($datei, 255);
$wieviele[13] = fgets ($datei, 255);
settype ($wieviele[13], "integer");
fclose ($datei);

$rest = substr($infoserver, -3);

switch ($rest) {
	case ".at":
	$landzahl = 1; break;
	case ".de":
	$landzahl = 2; break;
	case ".ch":
	$landzahl = 3; break;
	case ".hu":
	$landzahl = 4; break;
	case ".it":
	$landzahl = 5; break;
	case "com":
	case "net":
	case "org":
	$landzahl = 6; break;
	case ".sk":
	case ".cz":
	$landzahl = 7; break;
	case ".fr":
	$landzahl = 8; break;
	case ".ba":
	case ".hr":
	case ".si":
	case ".yu":
	$landzahl = 9; break;
	case ".es":
	case ".pt":
	$landzahl = 10; break;
	case ".nl":
	$landzahl = 11; break;
	case ".dk":
	$landzahl = 12; break;
	case ".no":
	case ".se":
	case ".fi":
	$landzahl = 13; break;
}

$wieviele[$landzahl]++;

$datei = fopen ("../_counter/laender.txt", "w");
for ($u=1; $u<14; $u++) {
fwrite ($datei, $toplevel[$u]); fwrite ($datei, $bezeichn[$u]); fwrite ($datei, $wieviele[$u] . "\n"); }

}
	
?>

<html>
<head>
<title>klinker</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #BCBDC0;
	background-image: url(../images/frameset/top.jpg);
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<table width="100%" height="90%"  border="0" cellpadding="0" cellspacing="0" class="nav">
  <tr valign="bottom">
    <td width="12%"><div align="center"><a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nax.htm','parent.frames[\'kmain\']','../sites/fuer_haendler.htm');return document.MM_returnValue">f&uuml;r H&auml;ndler</a> </div></td>
    <td width="13%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nax.htm','parent.frames[\'kmain\']','main.htm');return document.MM_returnValue">Startseite</a></td>
    <td width="12%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nav_produkte.htm','parent.frames[\'kmain\']','../sites/produkte.htm');return document.MM_returnValue">Produkte</a></td>
    <td width="13%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nav_projekte.htm','parent.frames[\'kmain\']','../sites/projekte/projekte1.htm');return document.MM_returnValue">Projekte</a></td>
    <td width="12%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nav_beispiele.htm','parent.frames[\'kmain\']','../sites/beispiele/beispiele1.htm');return document.MM_returnValue">Beispiele</a></td>
    <td width="13%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nax.htm','parent.frames[\'kmain\']','../sites/haendler.php');return document.MM_returnValue">H&auml;ndler</a></td>
    <td width="12%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nax.htm','parent.frames[\'kmain\']','../sites/lebenslust.htm');return document.MM_returnValue">Lebenslust</a></td>
    <td width="13%">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onClick="MM_goToURL('parent.frames[\'knav\']','nax.htm','parent.frames[\'kmain\']','../sites/pflastermacher/pflaster1.htm');return document.MM_returnValue">Pflastermacher</a></td>
  </tr>
</table>
</body>
</html>