$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"); } } ?>
| Startseite | | Produkte | | Projekte | | Beispiele | | Händler | | Lebenslust | | Pflastermacher |