Reloadsperre

[Marcus Vieß]

Problem bei meinem Counter mit der Reloadsperre :

#############################

Überprüfen auf RELOAD

#############################
sub relaodsperre {
   foreach $IPEINTRAG (@logip) {
      if ("$ipAdresse\n" eq $IPEINTRAG) {
         &grafik;
         exit;
      }
   }
}

schreiben der letzten IP

while ($#logip >= 2){
    shift @logip;
  }

$ipAdresse=$ENV{'HTTP_CLIENT_IP'};
  if($ipAdresse eq ""){
  $ipAdresse=$ENV{'REMOTE_ADDR'};
  }
  push(@logip,$ipAdresse."\n");

open(logfile,">log.txt") &FEHLER("Kann Datei <b>log.txt</b> nicht erstellen.");
  print (logfile @logip);
  close(logfile);

laufen tut das scripte zwar aber er zählt und zählt ...