Schlagwort: perl

#!/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;