<?
################################################
# Geht zu zufälliger Seite aus Datei "dir.txt" #
################################################

  //Seiten-Datei einlesen
  $seiten = file("dir.txt");

  //Zufallsgenerator initiieren
  srand ((double)microtime()*1000000);

  //Zufällige Seite auswählen
  do { $i = rand(0,count($seiten)-1); } while ($seiten[$i][0] == "#");

  //Datei öffnen zum Anhängen
  $fp=@fopen("zufall.log", "a");

  //Fehler beim Öffnen --> Ende
  if (!$fp) { die("2"); }

  //Sharing = false
  $op=2;

  //Datei sperren, im Fehlerfalle --> freigeben, Ende
  if (!@flock($fp,$op)) { @flock($fp,3); die("3"); }

  //Umbruch entfernen
  $seiten[$i] = str_replace("\n", "", $seiten[$i]);
  $seiten[$i] = str_replace("\r", "", $seiten[$i]);

  //Datei schreiben
  $log = "$REMOTE_ADDR - -  ".date( "d/M/Y:H:i:s" )." \"$seiten[$i]\" \"$HTTP_REFERER\" \"$HTTP_USER_AGENT\"\n";
  fputs($fp,$log);

  //Datei freigeben
  @flock($fp,3);

  //Datei schließen
  @fclose($fp);

  //Zur zufällig ausgewählten Datei gehen
  Header ("Location: http://arnep.de/$seiten[$i]");
?>