Referer speichern beim Aufruf eines Scriptes

[magic]

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? Die Referer sollen dabei fortlaufend gespeichert werden.
Für Tipps wäre ich sehr dankbar.

[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

[magic]

Das ging ja schnell. Vielen Dank!
Ich werde es gleich ausprobieren.

[magic]

Funktioniert wunderbar.
Danke nochmals!