CGI Fehler !?!

[AlexBausW]

Hallo Marcus,

Bist Du Dir sicher, daß Du das erneut posten wolltest, oder hast Du nur Deinen Thread vom Dienstag nicht gefunden? ;-)
Lies auch mal <109037.html>

Um Dein Problem zu lösen, solltes Du wenigstens ein wenig Perl beherrschen, sonst wird das nicht das einzige Skript bleiben, mit dem Du Schwierigkeiten hast.
Aber mal schauen, was Dein Skriptsnippet macht.

schreiben der letzten IP

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

Hier entfernst Du aus einer Liste von IPs die ersten, und behälst die letzten drei.

$ipAdresse=$ENV{'HTTP_CLIENT_IP'};
  if($ipAdresse eq ""){
  $ipAdresse=$ENV{'REMOTE_ADDR'};
  }

Hierzu bitte den obigen Link beachten

push(@logip,$ipAdresse."\n");

Hier wird die User-IP der Liste hinzugefügt

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

Das Unterprogramm reloadsperre überprüft für jede IP in der Liste @logip, ob die User-IP damit identisch ist.
Wo wird denn das Unterprogramm überhaupt aufgerufen? Somit kann es vielleicht nicht nur an dem obigen Codeauszug liegen :-)

Gruß AlexBausW

P.S.: http://www.activestate.com/Products/ActivePerl/docs/index.html :-)
P.P.S: Wo hast Du das Skript eigentlich her, wenn man fragen darf?

Please visit my SELFvisitingcard @ http://www.atomic-eggs.com/selfspezial/daten/150.html