Counter mit IP-Sperre

[Candid Dauth]

Hallo du da draußen,

und wie erstellt man sowas?

Weil mit gerade langweilig ist, verstoße ich mal gegen die Forumsregeln und schreibe dir eine Funktion, die den Counterstand bei Bedarf erhöht und den erhöhten zurückliefert. Die Datei "counter" wird bei Nicht-Existieren erzeugt, andere Dateien brauchst du nicht. Du kannst natürlich auch einen anderen Dateinamen von "; # Der Dateiname  und nach $filename = " angeben.

function counter()
{
 $filename = "counter"; # Der Dateiname
 $trenner = "\t";

global $_SERVER;
 if(!is_file($filename))
 {
  if(file_exists($filename))
   return false;
  else
  {
   if(!$fh = @fopen($filename, "w") || !@fwrite($fh, "1\n".$_SERVER['REMOTE_ADDR'].$trenner.time()."\n"))
    return false;
   else
   {
    @fclose($fh);
    return 1;
   }
  }
 }
 else
 {
  $counter_file = @file($filename);
  if(!$counter_file)
   return false;
  else
  {
   $counterstand = trim(array_shift($counter_file));
   $inside = false;
   $new_file = "";
   foreach($counter_file as $line)
   {
    $spl = explode($trenner, trim($line));
    if($spl[0] == $_SERVER['REMOTE_ADDR'])
     $inside = true;
    if(time()-$spl[1] < 3600)
     $new_file .= $line;
    elseif($spl[0] == $_SERVER['REMOTE_ADDR'])
     $inside = false;
   }
   if(!$inside)
   {
    $new_file .= $_SERVER['REMOTE_ADDR'].$trenner.time()."\n";
    $counterstand++;
   }
   if($fh = @fopen($filename, "w"))
   {
    @fwrite($fh, $counterstand."\n".$new_file);
    @fclose($fh);
   }
   return $counterstand;
  }
 }
}

Wenn du den Counterstand erhöhen willst (oder, wenn die IP-Adresse eingetragen ist, auch nicht), rufst du die Funktion counter() auf. Willst du den Counterstand erfahren, machst du es folgendermaßen:
$counterstand = counter();
if(!$counterstand)
 die("Ein Fehler trat auf!");

Kann nicht in die Counterdatei geschrieben werden, wird der Counterstand nicht erhöht (wie auch?) aber er wird trotzdem zurückgeliefert.

Man möge mich um meinen Verstoß gegen die Regeln lünchen...

Grüße von hier drinnen, aus Biberach an der Riss (http://www.stadt-biberach.de/),
Candid Dauth (Dogfish)