#*****************************************************************#
  # ROBOTER:                                                        #
  # Apache-Logfiles auswerten                                       #
  #*****************************************************************#
  

  my $lzeit = 0;
  my $ldatei = '';

  $logordner = '/home/htdocs/web0/log/old/';
  $output    = '/home/htdocs/web0/log/bot.txt';

  # Dateien eines Ordners auflisten
  opendir(FOLDER, $logordner);
    @FD = readdir(FOLDER);
  closedir(FOLDER);

  foreach $file (@FD)
  {
    # stat ermitteln Dateiattribute (9:Zeitstempel)
    unless((@FLAG) = stat($logordner.$file))
    {
      warn "can't stat() $file: $!\n";
    }
    else
    {
      if ($letzte < $FLAG[9]) {
        # jüngste Datei ermitteln
        $ldatei = $file;
      }
    }
  }

  # Datei entpacken
  open(GZIP, "gunzip $logordner$ldatei | ") or die "error";

  # Quelltext durchsuchen

  $ldatei =~ s/\.gz//;

  open(IN, $logordner.$ldatei);
    my @Zeilen = <IN>;
  close(IN);

  open(FILE, '>>'.$output);
  foreach(@Zeilen)
  {
    if ($_ =~ /Googlebot\/index/)
    {
       print FILE $_;
    }
  }
  close(FILE);