Referer speichern beim Aufruf eines Scriptes

[Norbert Klein]

Hallo.

welchen Code muss ich in ein Perl-Script einfügen, damit beim Aufruf des Scriptes der Referer in einer externen Logdatei (referer.txt) gespeichert wird?

Sowas hier sollte reichen:
if($ENV{HTTP_REFERER})
 {
  open(FILE,">>referer.txt") || die $!;
  print FILE "$ENV{HTTP_REFERER}\n";
  close(FILE);
 }
Sollte ein Referrer übergeben worden sein, wird die Datei referer.txt zum Schreiben geöffnet und am Ende der Datei wird der entsprechende Referrer angehängt. Und BING! - Fertig.

Gruß
Norbert