✔ IP-BlackList für Counter (Perl)

[FRitter]

Hallo an alle!

Ich habe einen bestehenden CGI-WebCounter um eine IP-BlackList erweitert - leider funktioniert dies nicht zuverlässig, so dass manchmal die IP der BlackList doch noch protokolliert wird. Hier ist der Scriptauszug:

...
# require 'F:\.....\WebCounter\BlackList.ini';
my $actip=$ENV{'REMOTE_ADDR'};
my @blacklist=("66.249.65.65","212.112.231.6","80.132.90.128");
my %blacklist=(@blacklist,@blacklist);
if ( exists $blacklist{$actip} ) {
exit;
}
...

Datei "BlackList.ini":

my @blacklist=(
"66.249.65.65",
"212.112.231.6",
"80.132.90.128"
);

Kann es sein, dass der Exit-Befehl nicht so einfach funktioniert (arbeite sonst mit ASP oder PHP)? Auch das Includen funktioniert leider so nicht, dass ich das Array in die erste Datei (das eigentliche Script) schreiben musste.

Danke für einen Tipp! (Und viel Spass heute beim Start der WM06 im eigenen Land! )

 

[FRitter]

Hallo nochmal,

ich habe festgestellt, dass ich im Original-SourceCode die Require-Anweisung nicht auskommentiert hatte... :-( es funktioniert jetzt ohne "require" wie gewünscht - aber jetzt habe ich noch das wohl kleinere Problem, dass ich gerne folgende Zeile nutzen möchte: (so funktioniert doch bei Perl ein Include bzw. Require, oder? Muss die einzubindende Datei eine .pl- / .plx-Datei sein?)

require 'F:\.....\WebCounter\BlackList.ini';

Schonmal danke!

 

[FRitter]

Das Problem hat sich inzwischen erledigt.


Für alle, die einmal ein ähnliches Problem haben: Es lag nur an der Include-Datei selbst, die wie folgt aussehen muss:

@blacklist=(
"....."
);

(also ohne "my" vor dem Array "@blacklist...")