IP-Adresse abgleichen
Kurt Kaus
ich bin leider kein Profi-Programmierer und kann eignetlich nur vorhandene
Perl-Scripts etwas umstellen. Bin aber am Dazulernen...
Nun habe ich bei einem Gästebuch folgendes Problem. Es werden immer wieder
beleidigende Einträge von einem bestimmten Rechner aus vorgenommen. Da beim
Gästebucheintrag die IP mittels der Variablen $ENV{'REMOTE_HOST'} mitgeloggt
wird, konnte ich festellen, dass diese Einträge immer von einem Rechner mit
einer IP, welche mit 62.224.8 (beispielhaft) beginnt (die vierte Zahl der
IP-Adresse variiert) vorgenommen wurden.
Nun würde ich gerne in das Script eine Abfrage einbauen, welche die IP nach
dem Eintragen überprüft und im Falle des Übereinstimmes der ersten 3 Zahlen
der IP-Adresse zu einer Subroutine springt in welcher ich einen Text auf dem
Bildschirm ausgebe.
Könnte mir jemand einen solchen Perl-Schnipsel erstellen?
Für jede Hilfe bedanke ich mich schon jetzt im Voraus!
MfG
Kurt
Dirk Ohme
> Könnte mir jemand einen solchen Perl-Schnipsel erstellen?
if( $ENV{REMOTE_ADDR} =~ /^62\.224\.8\./ ) {
# böse!
} else {
# gut!
}
REMOTE_ADDR ist besser als REMOTE_HOST, denn in ersterem steht immer
die IP-Adresse, in letzterem auch mal der DNS-Name, wenn gefunden.
So long,
-+- Dirk -+-