#!/usr/bin/perl -w use POSIX qw(strftime); $client = $ENV{'HTTP_USER_AGENT'}; $camefrom = $ENV{'HTTP_REFERER'}; $addrin = $ENV{'REMOTE_ADDR'}; @ip = split (/\./, $addrin); $binip = pack ("C4", @ip); $isp = gethostbyaddr ($binip, 2); my $LogFileLocation = "log/log_ip.txt"; # Ordner und Datei sollten 755 als Rechte haben $datestring = strftime "%Y.%m.%d %H:%M:%S", localtime; open W,">>$LogFileLocation"; print W "$datestring\n$isp\t$ENV{REMOTE_ADDR}\n$ENV{HTTP_USER_AGENT}\n\n"; print W "Hostname (IP): $isp ($addrin)\n\n"; print W "OS und Browser: $client\n\n"; print W "Referrer: $camefrom\n\n"; close W;