#referer check foreach (@ref) geht nicht?

[Alain]

Hallo,

hallo CK,

Da ist ein Logik-Fehler drin. Besser so:

Danke für den hinweis

my $ref   = $ENV{HTTP_REFERER};
@referers = ('http://www.meine.domain.de','http://meine.domain.de');
my $found = 0;

foreach(@referers) {
  if($_ eq $ref) {
    $found = 1;
    break;
  }
}

if($found) {
  print "Content-Type: text/plain\n\nJucheissa!";
}
else {
  print "Content-Type: text/plain\n\nbad guy! You came from $ref.";
  SendMail();
}

Du solltest dir ueberigens mal einen vernuenftigen Formatierungs-Stil
angewoehnen. Dein Quelltext ist grauenhaft.

von welchem quelltext sprichst du? vom perl beispiel?
if ($perl) {warum?} :)

Gruesse,
CK

gruss vom Alain